(21-12-14, 01:58 PM)mudz كتب : (21-12-14, 11:33 AM)led كتب : ارغب بتحريك الفورم بدون اطار
بحثت فوجدت مثال الاخ سعود
http://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
يعجز اللسان عن الشكر , فعلا هذا المطلوب
اكرر شكري لك , بارك الله فيك