راهنمای در مورد حرکت دادن يک shape

[saman999]

سلام به دوستان گل

چطوری ميتونم فرمی طراحی کنم که وقتی يه shape رو فرم باشه اونهارو با کيليد های مکان نما به اينور اونور ببررم؟ ميشه راهنمايی کنيد

[parselearn]

https://barnamenevis.org/showthread.php?t=149174

[MahmoodGH]

سلام
دوست عزیز میشه بگید چطور میشه با Musce (موس) یک Shape یا یه آبجکت رو جابجا کردن. البته بصورت کنترل شده منظورمه.
یعنی وقتی با موس روی یه شیء خاص کلیک کردیم اون شیء به دنبال موس حرکت کنه و حرجا که ما کلیک کردیم شی در همون جا قرار بگیره.

[parselearn]

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