منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم جميعآ
يمكن تحريك اداه عن طريق السحب ولافلات ؟

كود :

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

لا اقدر على سحب الاداه بهذا الكود

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

تفضل اخي هذا الكود

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد.احمد

سعود

beep