Перемещение картинки клавишами - VB
Формулировка задачи:
Нужно перемещать image1 по picturebox(image лежит внутри picturebox)
вот этот код вроде но он не перемещает , может его куда вставить надо , я вставлял в форму
Решение задачи: «Перемещение картинки клавишами»
textual
Листинг программы
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'определяем какая клавиша нажата Select Case KeyCode Case vbKeyRight: Image1.Left = Image1.Left + 25 ' двигаем картинку Case vbKeyLeft: Image1.Left = Image1.Left - 25 Case vbKeyDown: Image1.Top = Image1.Top + 25 Case vbKeyUp: Image1.Top = Image1.Top - 25 End Select KeyCode = 0 End Sub