19-04-22, 11:08 PM
السلام عليكم ورحمة الله وكل عام وانتم بخير
عملت هذا الاجراء وذلك لتحريك اداة button داخل الفورم
ولكن في حال غيرت خصائص الفورم الى ( Right to left layout ) = True
اجد ان الكود السابق يتلخبط
هل من حل
ولكم الشكر
عملت هذا الاجراء وذلك لتحريك اداة button داخل الفورم
كود :
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
Dim NewPoint As New Point
If e.Button = MouseButtons.Left Then
NewPoint = Control.MousePosition
NewPoint.X -= (X)
NewPoint.Y -= (Y)
Button1.Location = NewPoint
End If
End Sub
ولكن في حال غيرت خصائص الفورم الى ( Right to left layout ) = True
اجد ان الكود السابق يتلخبط
هل من حل
ولكم الشكر
اللهم صلي على نبينا محمد