حرکت عکس با کلید

[Beginner67]

سلام.
چجوری میتونم با کلید های کیبرد عکسی را حرکت دهم؟
ویژال بیسیک.

[the king]

سلام.
چجوری میتونم با کلید های کیبرد عکسی را حرکت دهم؟
ویژال بیسیک.

تصویر تون رو در Image1 قرار بدهید (یک کنترل Image) و اینطوری جابجایش کنید :

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
Image1.Left = Image1.Left - 2
Case vbKeyRight
Image1.Left = Image1.Left + 2
Case vbKeyUp
Image1.Top = Image1.Top - 2
Case vbKeyDown
Image1.Top = Image1.Top + 2
End Select
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
Me.ScaleMode = vbPixels
End Sub