Simple Problem - Xtreme Visual Basic Talk

05-17-2005, 05:05 PM

TwigX

Newcomer

Join Date: May 2005

Posts: 6

Simple Problem

Im working on a small RPG and its been awhile since Ive worked with VB and I seem to be rusty. Im trying to make an image (IMGSelf) to change its .Picture property between 3 different images on keydown. Harder to explain, but maybe the code can help:

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If IMGSelf.Picture = IMGwalk(0).Picture Then
IMGSelf.Picture = IMGwalk(1).Picture
End If
If IMGSelf.Picture = IMGwalk(1).Picture Then
IMGSelf.Picture = IMGwalk(2).Picture
End If
If IMGSelf.Picture = IMGwalk(2).Picture Then
IMGSelf.Picture = IMGwalk(0).Picture
End If
If KeyCode = vbKeyUp Then
IMGSelf.Top = IMGSelf.Top - 435
End If
If KeyCode = vbKeyDown Then
IMGSelf.Top = IMGSelf.Top + 435
End If
If KeyCode = vbKeyLeft Then
IMGSelf.Left = IMGSelf.Left - 300
End If
If KeyCode = vbKeyRight Then
IMGSelf.Left = IMGSelf.Left + 300
End If


End Sub


Private Sub Form_Load()
IMGSelf.Picture = IMGwalk(0).Picture

End Sub

As you can see, Im trying to make it check to see what picture it is using on every keydown, and then rotate to the next one. Heres a screenshot if it helps anything:
http://img283.echo.cx/img283/9774/snap00857sy.jpg
Thanks in advance.

05-17-2005, 05:14 PM

webbone

Hydrogen Powered

Administrator
* Expert *

Join Date: Jul 2003

Location: Sacramento, CA

Posts: 6,090

You probably just want to use either a global variable or a local, static variable to retain your pointer to which picture is being used. An example might be:

Code:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Static iImgPtr as Integer  'will be initialized to 0 on the first call to this routine!

iImgPtr = (iImgPtr + 1) Mod 3  'this will make iImgPtr sequence 0,1,2,0,1...
IMGSelf.Picture = IMGwalk(iImgPtr).Picture 'update yourself with new image

If KeyCode = vbKeyUp Then
IMGSelf.Top = IMGSelf.Top - 435
End If
If KeyCode = vbKeyDown Then
IMGSelf.Top = IMGSelf.Top + 435
End If
If KeyCode = vbKeyLeft Then
IMGSelf.Left = IMGSelf.Left - 300
End If
If KeyCode = vbKeyRight Then
IMGSelf.Left = IMGSelf.Left + 300
End If


End Sub

__________________
"With the appearance of the AddressOf operator, an entire industry has developed among authors illustrating how to do previously impossible tasks using Visual Basic. Another industry is rapidly developing among consultants helping users who have gotten into trouble attempting these tasks." -Dan Appleman

05-17-2005, 05:17 PM

TwigX

Newcomer

Join Date: May 2005

Posts: 6

I knew it wasnt hard to figure out, thanks a bunch