Stop the flicker!!

[CyberCarsten]

How can I make my animation stop flicker!!!?!?!?
Can I do it in the same way as with DDRAW, where all the animations are done on the sec. buffer???
Could anyone give an example???

My code:

Dim MovePic As Integer
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 Timer1_Timer()
Me.Cls
'Draws the mask with vbSrcAnd raster operation
BitBlt Me.hdc, MovePic, 0, picMask.ScaleWidth, picMask.ScaleHeight, picMask.hdc, 0, 0, vbSrcAnd
'Draws the sprite witht the vbSrcPaint raster operation
BitBlt Me.hdc, MovePic, 0, picSprite.ScaleWidth, picSprite.ScaleHeight, picSprite.hdc, 0, 0, vbSrcPaint
 
End Sub
 
Private Sub Timer2_Timer()
MovePic = MovePic + 2
End Sub

[Mman]

Hi, why don't you try to do it without a timer. How about:

Sub_Main()

Do
DoEvents

'Yer code here

Loop

End Sub

And were are you blitting it to? Me.cls make the Form clear. Try making a backbuffer with StretchBlt.

Hope this helps!

[Fox]

Try making a backbuffer with StretchBlt.

? ? ?

[Mman]

Yes, like this:

Public Declare Function StretchBlt Lib "gdi32" (ByVal hdc 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 nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

this goes into the module

Then make a picture box and do this in the main loop sub:

StretchBlt hdc, 0, 0, DispWidth, DispHeight, PB.hdc, 0, 0, 800, 600, vbSrcCopy

'The DispWidth and DispHeight are just integers.
like this:

DispWidth = Screen.Height * 1.315 / Screen.TwipsPerPixelY
DispHeight = Screen.Height * 0.975 / Screen.TwipsPerPixelY

From now on, everything you blit, you have to do it on the "PB" picturebox.

If this doesn't help, wait a bit. I'm writing a tutorial on BitBlt. It will be on my site at www.geocities.com/mman76dev

Hope this helps!

[CyberCarsten]

thank you! I'll try it

[Fox]

StrechBlt is crap!

Ok to answer your question fast, you need a backbuffer indeed. Check out my website/tutorial to learn how

http://fox.acky.net/vb/