جا به جا كردن فرم بوسيله موس

[vr_bahrami]

سلام كسي ميدونه كه چطور ميشه بوسيله موس فورم رو جا به جا كرد. (Drag & Drop)

[sari-1369]

Dim x, y As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
x = e.X
y = e.Y
End Sub


Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Left = Windows.Forms.Cursor.Position.X - x
Me.Top = Windows.Forms.Cursor.Position.Y - y
End If
End Sub

[anooshiran]

سلام دوست عزيز

به لينك زير سري بزن . كلاسي است براي جابجايي و تغيير اندازه تمام كنترل ها

http://barnamenevis.org/forum/showthread.php?t=150927