Перемещение картинки клавишами - 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

Оцени полезность:

9   голосов , оценка 4.444 из 5
Похожие ответы