سلام به دوستان گل
چطوری ميتونم فرمی طراحی کنم که وقتی يه shape رو فرم باشه اونهارو با کيليد های مکان نما به اينور اونور ببررم؟ ميشه راهنمايی کنيد
Printable View
سلام به دوستان گل
چطوری ميتونم فرمی طراحی کنم که وقتی يه shape رو فرم باشه اونهارو با کيليد های مکان نما به اينور اونور ببررم؟ ميشه راهنمايی کنيد
سلام
دوست عزیز میشه بگید چطور میشه با Musce (موس) یک Shape یا یه آبجکت رو جابجا کردن. البته بصورت کنترل شده منظورمه.
یعنی وقتی با موس روی یه شیء خاص کلیک کردیم اون شیء به دنبال موس حرکت کنه و حرجا که ما کلیک کردیم شی در همون جا قرار بگیره.
Dim M As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If M = True Then
Image1.Top = Y - (Image1.Height / 2)
Image1.Left = X - (Image1.Width / 2)
M = False
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If M = True Then
Image1.Top = Y + 100
Image1.Left = X + 100
End If
End Sub
Private Sub Image1_Click()
M = True
End Sub