救命!有关ACTIVEMOVIE控件的屏幕捕图

[BigWrist]

哪位(些)大虾请尽快帮小弟一个忙,越快越好!!!!

我在WINDOWS下用VB编了如下程序(其功能是:在ACTIVEMOVIE播放一帧图像后停
止,然后用此程序取下此刻ACTIVEMOVIE上的图象,再放再取...),在16色时工作正常
(显卡没有驱动),但在增强16位下全为黑屏.
为何???请指教!!!!!特特特特特急!!!!!,最好能给出解决办法,谢谢!

Private Sub ScreenCapture(Lt, Top, Rt, Bot)

Dim rWidth As Long
Dim rHeight As Long
Dim SourceDC As Long
Dim DestDC As Long
Dim BHandle As Long

rWidth = Rt - Lt
rHeight = Bot - Top
SourceDC = CreateDC("DISPLAY", vbNullString, vbNullString, 0)
DestDC = CreateCompatibleDC(SourceDC)
BHandle = CreateCompatibleBitmap(SourceDC, rWidth, rHeight)
SelectObject DestDC, BHandle
BitBlt DestDC, 0, 0, rWidth, rHeight, SourceDC, Lt, Top, &HCC0020
OpenClipboard hwnd
EmptyClipboard
SetClipboardData 2, BHandle
CloseClipBoard
DeleteDC DestDC
ReleaseDC DHandle, SourceDC

End Sub

Private Sub getpic
......

ScreenCapture ...
imgPic.picture=clipboard.getdata
savepicture....

........
End Sub

[知行职场-雷曼]

关注