Newbie code needs help with BitBlt
:( I am using BitBlt, but only my background is showing up, and not the player's unit (a 'tank')
no, this isn't ALL the code, but i tried to keep it at a minimum 4 u.
Here are some things u should know that appear in my code:
main = form (visible)
pic = form (invisible)
mask(0 - 7) = picture boxes
tank(0 - 7) = picture boxes
desert = picture box (background image)
'-------------GLOBAL .BAS CODE----------------------------------------
Type TypeTank
X As Integer
Y As Integer
Width As Integer
Height As Integer
Alive As Integer
Ammo As Integer
Score As Integer
Lives As Integer
XSpeed As Integer
YSpeed As Integer
Direction As Integer
End Type
'-------------FORM MAIN CODE------------------------------------------
Private Sub DrawTank()
' Erase old contents
BitBlt pic.Buffer.hdc, 0, 0, 32, 32, pic.Desert.hdc, Player1.X, Player1.Y, vbSrcCopy
' Mask
BitBlt pic.Buffer.hdc, 0, 0, 32, 32, pic.Mask(Player1.Direction), 0, 0, vbSrcAnd
' Fill Mask with tank
BitBlt pic.Buffer.hdc, 0, 0, 32, 32, pic.Tank(Player1.Direction), 32, 32, vbSrcPaint
' Copy buffer to form
BitBlt main.hdc, Player1.X, Player1.Y, 32, 32, pic.Buffer.hdc, 0, 0, vbSrcCopy
End Sub
'----------------------------------------------------------------------------
Click HERE to email me the answer
What am i doing wrong?
It used to work until it got messed somewhere along the line...
-theplant:p
