Question

VB BitBlt函数 CAPTUREBLT标志 无法截取半透明窗口 在线等 急！

BitBlt(目标DC, 0, 0, 宽度,高度, 源DC,源x, 源y, SRCCOPY Or CAPTUREBLT) '画图
上面是口述的伪代码，其意思是说在VB里使用CAPTUREBLT标志却不能截到半透明窗口？
求解！！！！
只有5分，不够悬赏见谅！
这是源代码，求救！无法将半透明窗体打印到自身窗口上。
Private Const SRCCOPY = &HCC0020
Private Const CAPTUREBLT = &H40000000

Private Sub Command2_Click()
Dim dc As Long
Dim ret As Long
dc = GetDC(0)
ret = BitBlt(Me.hdc, 0, 0, 373, 210, dc, 300, 330, SRCCOPY Or CAPTUREBLT) '画图
End Sub

Answer 1

最好把 OR 换成加号 + 进行加法运算，另外是否楼主忘记了Me.refresh刷新窗体，窗体的AutoRedraw也忘记设置为True了吧？。。。看来楼主对API参数原理不太了解。问问题时应该多找几个平台多问一些人，仅仅借助于一个平台很容易被学艺不精的人误导！

Answer 2

记得Bitblt本来就不可以抓取半透明窗体的，所以楼主换个思路吧

Answer 3

GetDC是个API函数，需要提前声明