一个VB API的入门问题

显示全部楼层 · 2008-11-17 17:29:12

一个把屏幕图像传到窗体的代码是这样的
Private Sub Command1_Click()
Dim hDC As Long
hDC = GetDC(0)
ret = BitBlt(Form1.hDC, 0, 0, 768, 1024, hDC, 0, 0, SRCCOPY)
ret = ReleaseDC(0, hDC)
End Sub
为什么运行之后窗体上显示的是一片黑色，大侠们帮我看看是哪里出问题了，多谢！

千问 · 2008-11-17 17:29:12

'这里是测试通过的代码sDC = GetDC(0) ret = BitBlt(Form1.hDC, 0, 0, Screen.Width, Screen.Height, sDC, 0, 0, vbSrcCopy)...

千问 · 2008-11-17 17:29:12

GetDC(0) 这里有问题你可以用 GetDeskWindow 来代替 0...