View Full Version : سوال: جابجایی کنترل
hihi59
یک شنبه 30 فروردین 1388, 17:53 عصر
دوستان سلام
من یه تازه وارد و یه تازه کارم البته با vb6
بنابر این اگه سوالم خیلی سادس ببخشید سوالم اینه کدوم یکی از اشیا در vb قابلیت جابجایی روی فرم هنگام اجرای برنامه دارند بهتر بگم کدام یک از اشیا و کنترلها را هنگامی که برنامه درحال اجراست میتوان با موس جابجا کرد لطفا اگه کد مربوطه را هم بزارین ممنون:لبخندساده:
butterfly8528
یک شنبه 30 فروردین 1388, 19:55 عصر
hihi59 جان سلام
برای حرکت دادن اشیا در زمان اجرا از کد زیر استفاده کن
فقط کافیه یک label رو فرمت بزاری
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Drag
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Label1.Left = X
Label1.Top = Y
End Sub
vbhamed
یک شنبه 30 فروردین 1388, 20:16 عصر
سلام
با اجازه butterfly8528 عزيز
براي اينكه اگر روي خودش درگ كردي هم درست كار كنه و ضمن موقعيت ماوس نسبت به شيء به هم نخوره كد اصلاح شده زير رو استفاده كنيد
Dim xo&, yo&
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
Label1.Left = X - xo + Label1.Left
Label1.Top = Y - yo + Label1.Top
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xo = X
yo = Y
Label1.Drag
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Label1.Left = X - xo
Label1.Top = Y - yo
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.