PDA

View Full Version : راهنمای در مورد حرکت دادن يک shape



saman999
سه شنبه 10 آذر 1388, 21:21 عصر
سلام به دوستان گل

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

parselearn
چهارشنبه 11 آذر 1388, 00:01 صبح
http://barnamenevis.org/forum/showthread.php?t=149174

MahmoodGH
پنج شنبه 12 آذر 1388, 10:35 صبح
سلام
دوست عزیز میشه بگید چطور میشه با Musce (موس) یک Shape یا یه آبجکت رو جابجا کردن. البته بصورت کنترل شده منظورمه.
یعنی وقتی با موس روی یه شیء خاص کلیک کردیم اون شیء به دنبال موس حرکت کنه و حرجا که ما کلیک کردیم شی در همون جا قرار بگیره.

parselearn
پنج شنبه 12 آذر 1388, 11:07 صبح
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