View Full Version : سوال: جا به جا كردن فرم بوسيله موس
vr_bahrami
جمعه 27 شهریور 1388, 16:07 عصر
سلام كسي ميدونه كه چطور ميشه بوسيله موس فورم رو جا به جا كرد. (Drag & Drop)
sari-1369
جمعه 27 شهریور 1388, 17:16 عصر
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
جمعه 27 شهریور 1388, 21:09 عصر
سلام دوست عزيز
به لينك زير سري بزن . كلاسي است براي جابجايي و تغيير اندازه تمام كنترل ها
http://barnamenevis.org/forum/showthread.php?t=150927
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.