1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Private Sub UserForm_Activate()
perso.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Pirate_front_stand.gif")
End Sub
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.perso.Tag = IIf(Val(Me.perso.Tag) = 2, 0, Val(Me.perso.Tag) + 1)
it = IIf(perso.Tag <> 0, perso.Tag, "stand")
Select Case KeyCode
Case 38
If perso.Top > 1 Then perso.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Pirate_back_" & it & ".gif"): perso.Top = perso.Top - 2
Case 40
If perso.Top < Me.InsideHeight - perso.Height Then perso.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Pirate_front_" & it & ".gif"): perso.Top = perso.Top + 2
Case 37
If perso.Left > 1 Then perso.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Pirate_left_" & it & ".gif"): perso.Left = perso.Left - 2
Case 39
If perso.Left < Me.InsideWidth - perso.Width Then perso.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Pirate_right_" & it & ".gif"): perso.Left = perso.Left + 2
End Select
End Sub |
Partager