Quick question abouit flipping sprites *RESOLVED*
Okay guys, can someone tell me how you would flip a sprite (in other words make it facing horizontally the other way)? Here's my code:
Private picWidth As Single ' Picture width.
Private picHeight As Single ' Picture height.
Private Xpos As Single ' Sprite's X position.
Private Ypos As Single ' Sprite's Y position.
Private FrameCounter As Integer ' Keep track of the current frame.
' Declare the bit block transfer function.
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Sub cmdExit_Click()
' Close the form.
Unload Me
End Sub
Private Sub cmdAnimate_Click()
' Enable sprite's animation.
tmrAnimate.Enabled = True
End Sub
Private Sub cmdFrames_Click()
AniSprite ' Set the sprite's frames.
SetSprite ' Show the sprite.
End Sub
Private Sub cmdStop_Click()
' Disable sprite's animation.
tmrAnimate.Enabled = False
End Sub
Private Sub picDestination_KeyDown(KeyCode As Integer, Shift As Integer)
' Check for keypresses
Select Case KeyCode
' Move left
Case vbKeyLeft
'Draw the picture normally (left-facing deer)
Xpos = Xpos - 5 ' Move X position
SetSprite ' Draw the sprite
Exit Sub ' Exit the subroutine
' Move right
Case vbKeyRight
Xpos = Xpos + 5 ' Move X position
SetSprite ' Draw the sprite
Exit Sub ' Exit the subroutine
' Move up
Case vbKeyUp
Ypos = Ypos - 5 ' Move Y position
SetSprite ' Draw the sprite
Exit Sub ' Exit the subroutine
' Move down
Case vbKeyDown
Ypos = Ypos + 5 ' Move Y position
SetSprite ' Draw the sprite
Exit Sub ' Exit the subroutine
End Select
End Sub
Private Sub Form_Load()
With picMask
.AutoRedraw = True ' Redraw sprite mask
.AutoSize = True ' Size to source's size
.BorderStyle = 0 ' No border
.ScaleMode = 3 ' Pixels
.Visible = False ' Invisible
End With
With picMan
.AutoRedraw = True ' Redraw sprite mask
.AutoSize = True ' Size to source's size
.BorderStyle = 0 ' No border
.ScaleMode = 3 ' Pixels
.Visible = False ' Invisible
End With
With picDestination
.AutoRedraw = True ' Redraw sprite mask
.AutoSize = True ' Size to source's size
.ScaleMode = 3 ' Pixels
End With
With picSource
.AutoRedraw = True ' Redraw sprite mask
.AutoSize = True ' Size to source's size
.BorderStyle = 0 ' No border
.ScaleMode = 3 ' Pixels
.Visible = False ' Invisible
End With
FrameCounter = -1 ' Animation has not yet begun, set default
' Set picture of sprite
picMan.Picture = ImageList1.ListImages(1).Picture
picMask.Picture = ImageList1.ListImages(2).Picture
' Set sprite's height and width.
picWidth = picMan.Width
picHeight = picMan.Height
Xpos = 178 ' Sprite's X position
Ypos = 106 ' Sprite's Y position
SetSprite ' Show the sprite
End Sub
Private Sub tmrAnimate_Timer()
AniSprite ' Set current frame
SetSprite ' Display sprite update
End Sub
Public Sub AniSprite()
' Update sprite frame & redraw.
FrameCounter = FrameCounter + 2
If FrameCounter = 5 Then FrameCounter = 1
picMan.Picture = ImageList1.ListImages(FrameCounter).Picture
picMask.Picture = ImageList1.ListImages(FrameCounter + 1).Picture
End Sub
Public Sub SetSprite()
picDestination.Cls ' Clear frame and prepare for update.
' Move the background to the destination bitmap.
BitBlt picDestination.hDC, Xpos, Ypos, picWidth, picHeight, _
picSource.hDC, Xpos, Ypos, vbSrcCopy
' Move the mask to the destination bitmap.
BitBlt picDestination.hDC, Xpos, Ypos, picWidth, picHeight, _
picMask.hDC, 0, 0, vbMergePaint
' Move the sprite to the destination bitmap.
BitBlt picDestination.hDC, Xpos, Ypos, picWidth, picHeight, _
picMan.hDC, 0, 0, vbSrcAnd
picDestination.Refresh ' Refresh the background.
End Sub
So for example in the "Case Left" statement, what should I do!
Thanks in advance to anyone who wants to help this n00b. :D
