۱۱-آذر-۱۳۸۸, ۱۶:۰۳:۲۴
سلام دوستان من يه کد به شکل زير دارم که ميتونم با دکمه های مکان نما کيبرد shapo تکون بدم
اما ميخواستم کاری کنم که وقتی خورد به ديواره فرم پيغام بده بهم ميشه کمک کنيد
End Select
اما ميخواستم کاری کنم که وقتی خورد به ديواره فرم پيغام بده بهم ميشه کمک کنيد
کد:
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