Flytta en bild med piltangenterna
Hejsan, jag undrar hur man flyttar en bild med piltangenerna??
lr hur man gör så att tex gubben ändras mellan varje tryck typ 4 frames lr nått... tack //3rror
Svara
Sv: Flytta en bild med piltangenterna
I KeyDown skriver du vart i formen som bilden ska visas
/Sune
Svara
Sv: Flytta en bild med piltangenterna
Testa detta.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 37 ' Vänsterpil
Picture1.Move Picture1.Left - 10
Case 38 ' Pil Upp
Picture1.Move Picture1.Left, Picture1.Top - 10
Case 39 ' Högerpil
Picture1.Move Picture1.Left + 10
Case 40 ' Pil Ner
Picture1.Move Picture1.Left, Picture1.Top + 10
End Select
End Sub
'OBS!! Glöm inte att sätta Form.KeyPreview till TRUE
/Wolf
Svara