Перемещение картинки клавишами - VB

Формулировка задачи:

Нужно перемещать image1 по picturebox(image лежит внутри picturebox) вот этот код вроде но он не перемещает , может его куда вставить надо , я вставлял в форму
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

Код к задаче: «Перемещение картинки клавишами - VB»

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


СОХРАНИТЬ ССЫЛКУ