منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تحريك اداه عن طريق السحب ولافلات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تحريك اداه عن طريق السحب ولافلات (/showthread.php?tid=2299)

تحريك اداه عن طريق السحب ولافلات - محمد.احمد - 19-03-14

السلام عليكم جميعآ
يمكن تحريك اداه عن طريق السحب ولافلات ؟
كود :
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Button1.Location = New Point(MousePosition.X And MousePosition.Y)
    End Sub
لا اقدر على سحب الاداه بهذا الكود

RE: تحريك اداه عن طريق السحب ولافلات - سعود - 19-03-14

تحتاج لعدة احداث
ويوجد للاخ ابي رائد مثال رائع
http://vb4arb.com/vb/thread-628.html

RE: تحريك اداه عن طريق السحب ولافلات - beep - 22-03-14

تفضل اخي هذا الكود
كود :
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        X = Control.MousePosition.X - Button1.Location.X
        Y = Control.MousePosition.Y - Button1.Location.Y
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Button1.Location = NewPoint
        End If
    End Sub