سلام به دوستان گل
چطوری ميتونم فرمی طراحی کنم که وقتی يه shape رو فرم باشه اونهارو با کيليد های مکان نما به اينور اونور ببررم؟ ميشه راهنمايی کنيد
Private Sub Form_Load()
KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
Shape1.Move Shape1.Left - 30
Case vbKeyRight
Shape1.Move Shape1.Left + 30
Case vbKeyUp
Shape1.Move Shape1.Left, Shape1.Top - 30
Case vbKeyDown
Shape1.Move Shape1.Left, Shape1.Top + 30
End Select
End Sub
ممنون از دوست گرامی واسه کمک حالا ميشه کاری کرد که به ديوار فرم خورد بيشتر نره اونور تر؟ ممنون بازم
Dim PicBox As PictureBox
Private Sub Form_Load()
Set PicBox = Controls.Add("VB.PictureBox", "PicBox")
KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
Shape1.Move Max(Shape1.Left - 30, 0)
Case vbKeyRight
Shape1.Move Min(Shape1.Left + 30, PicBox.Left + PicBox.Width - Shape1.Width)
Case vbKeyUp
Shape1.Move Shape1.Left, Max(Shape1.Top - 30, 0)
Case vbKeyDown
Shape1.Move Shape1.Left, Min(Shape1.Top + 30, PicBox.Top + PicBox.Height - Shape1.Height)
End Select
End Sub
Private Function Min(a As Single, b As Single) As Single
Min = IIf(a < b, a, b)
End Function
Private Function Max(a As Single, b As Single) As Single
Max = IIf(a > b, a, b)
End Function
Private Sub Form_Resize()
PicBox.Align = vbAlignBottom
PicBox.Align = vbAlignRight
End Sub
نمی دونم کجای کار اشتباه کردید، به هر حال پروژه رو ضمیمه کردم.ممنون از دوست عزيز بابت پاسخگويی سريع
اما دوست گرامی اين کد وقتی اجرا ميکنه اون shap که گزاشته بودم نا پديد ميشه و نيست ديگه روی فرم و وقتی از دکمه های مکان نما استفاده ميکنه eror ميده شايد من بد متوجه شدم ميشه پرژه رو ضميمه کنيد ممنون
دوست گرامی آقای king ميشه برنامرو جوری تغيير بديد که اگه shape بخوره به ديواره فرم يه msg box بياد ممنون از شما
سلام دوست گرامی من يه پرژه دانلود کردم که به شکل زير ضميمه کردم
ميخواستم چندتا چيز بهش اضافه کنم
1. بشه اگه فرم هم muximize بشه توپ بخوره بهش و پيغام بده
2. سرعت توپ رو بشه با دوتا دکمه کمو زياد کرد
3. مختصات که توپ ميره نشون بده
ممنون از شما