چگونه می توان با کلیدهای حرکتی یک تانک را حرکت داد ؟
چگونه می توان با کلیدهای حرکتی یک تانک را حرکت داد ؟
خب خوندن کلید ها راه حل ساده ای دارن ! ساده ترینش که Api هست ! و سخت ترینشم که استفاده از Keyup event فرمت هست !!!، تا با زدن دکمه بالا کد 38 داخل keycode قرار میگیره و با زدن دکمه راست کد : 39 چپ : 37 پایین : 40
تا اینجاشو می دونم مسئله اینه که وقتی کلیدو شناخت فرضا اگه بخوام تانکو ببرم چپ باید چی کنم ؟
خب این تانک که میگید چی هست ؟؟؟
به فرض اگه یه label باشه، باید خصوصیات left و top اون رو تغییر بدید
به این صورت:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With Label1
Select Case KeyCode
Case 37
.Left = .Left - 100
Case 38
.Top = .Top - 100
Case 39
.Left = .Left + 100
Case 40
.Top = .Top + 100
End Select
End With
End Sub