Bevægelse af person

Prøv dette. Du kan nu flytte imgperson i alle retninger med piletasterne.

/Jan



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Me.Caption = KeyCode

  select case me.caption
  case \"38\"
    imgperson.top = imgperson.top - 25
  case \"40\"
    imgperson.top = imgperson.top + 25
  case \"37\"
    imgperson.left = imgperson.left - 25
  case \"39\"
    imgperson.left = imgperson.left + 25
  end select
End Sub

Ok, jeg prøver det lige. Har ikke programmet herhjemme, desværre.
Jan du skal nok få dine point hvis det virker.

Desuden så er jeg også interesseret i (skal nok hæve pointene) at lave vægge og lign. ting som personen ikke kan gå ind i. Hvordan laves dette.
Jeg kan godt lave det hvis man skal angive hvilke koordinater han ikke må gå ind i for hver enkelt ting, men er der ikke en nemmere metode. Fx noget med array eller lign., så man kun behøver at skrive noget EN gang og så virker det på en masse...? (Håber Du/I forstår)...

Hej:

I general:
public TrueFalse as boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    truefalse=true
End Sub

Private Sub TimerPerson_Timer()
    If truefalse=true Then
    imgPerson.Top = imgPerson.Top + 1
    truefalse=false
    End If
End Sub

Du kan IKKE skrive if keyascii = og så videre i en timer!.

> Magic Star <

prøv at sætte keypreview i egenskaber for formen til true

Jansoft, du får pointene. Tak for svarene...