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

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

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

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

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

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

(21-12-14, 11:33 AM)led كتب : [ -> ]ارغب بتحريك الفورم بدون اطار

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

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

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

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

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


 

(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

 

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

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