[RESOLVED] BitBlt not working?? well... its odd...
I have 2 picture boxes.. 1 is the source img (400x40 bmp) the other is destination...
the BitBlt isnt copying from the pctSrc? its grabbing from the screen!???
(like the excel grid slides by.. or Outlook.. or whatever the form is over?)
VB Code:
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
Const SRCCOPY As Long = &HCC0020
Private Sub tmrAni_Timer()
Dim returnresult&
Static animationcount&
'pctAni.Refresh
returnresult = BitBlt(pctAni.hDC, 0, 0, 40, 40, pctSrc.hDC, animationcount&, 0, SRCCOPY)
animationcount& = animationcount& + 40
If animationcount& = (40 * 10) Then animationcount& = 0: countup = 0
countup = Val(countup) + 1 'counts frames (or sections) cut out of the picturebox
End Sub
Ive used this before on a 33x20 ani.. (330x20) but this should work!!
any clue?
Re: BitBlt not working?? well... its odd...
Set the AutoRedraw property of the source picturebox to True.
Re: BitBlt not working?? well... its odd...
LOL.. just found that and was coming back to mark resolved!
Thanks!
now I have a new problem... new post.. lol