جابجایی کنترل

[hihi59]

دوستان سلام
من یه تازه وارد و یه تازه کارم البته با vb6
بنابر این اگه سوالم خیلی سادس ببخشید سوالم اینه کدوم یکی از اشیا در vb قابلیت جابجایی روی فرم هنگام اجرای برنامه دارند بهتر بگم کدام یک از اشیا و کنترلها را هنگامی که برنامه درحال اجراست میتوان با موس جابجا کرد لطفا اگه کد مربوطه را هم بزارین ممنون:لبخندساده:

[butterfly8528]

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]

سلام

با اجازه 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