[led]

ارغب بتحريك الفورم بدون اطار

بحثت فوجدت مثال الاخ سعود
https://vb4arb.com/vb/thread-4117.html

مثال ممتاز ولكن لا يعمل في حال كان الفورم من نوع ( اب) وابن

حاولت ومانجحت معي

ارجوا المساعدة

[mudz]

ارغب بتحريك الفورم بدون اطار

بحثت فوجدت مثال الاخ سعود
https://vb4arb.com/vb/thread-4117.html

مثال ممتاز ولكن لا يعمل في حال كان الفورم من نوع ( اب) وابن

حاولت ومانجحت معي

ارجوا المساعدة

 تفضل ان شاء الله يكون طلبك
اضف عارض الصور واجعل الفور بدون ادوات التحكم  

كود :

Public Class Form1
    Dim NewPoint As New System.Drawing.Point()
    Dim X, Y As Integer
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        X = Control.MousePosition.X - Me.Location.X
        Y = Control.MousePosition.Y - Me.Location.Y
    End Sub

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

 

[led]

ارغب بتحريك الفورم بدون اطار

بحثت فوجدت مثال الاخ سعود
https://vb4arb.com/vb/thread-4117.html

مثال ممتاز ولكن لا يعمل في حال كان الفورم من نوع ( اب) وابن

حاولت ومانجحت معي

ارجوا المساعدة

 تفضل ان شاء الله يكون طلبك
اضف عارض الصور واجعل الفور  بدون ادوات التحكم   

كود :

Public Class Form1
   Dim NewPoint As New System.Drawing.Point()
   Dim X, Y As Integer
   Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
       X = Control.MousePosition.X - Me.Location.X
       Y = Control.MousePosition.Y - Me.Location.Y
   End Sub

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

 

يعجز اللسان عن الشكر , فعلا هذا المطلوب

اكرر شكري لك , بارك الله فيك

[mudz]

ولو اخوي نحنا هنا نساعد بعض