vb 区域截图是黑屏，哪里错了

Question

只看了你的窗体代码
   1、截图区域是黑色 ：看到你的文件里面有CSI 格式文件，你截图的是视频区域？这个普通方法不能截图（你的代码好像是用bitblt的方法截图的）。
   2、截图区域小  ：在窗体的初始化过程里面有两句话Lab.Width = 320 '* 15 Lab.Height = 240 '* 15
把后面的注释去掉，这里的320和240的单位是缇，需要乘以十五转换为像素。
    没细看你代码只能说那么多了。

Answer 1

CSI 文件没有用的
我截的是一般图片，不是视频，截出来的图片保存后也是纯黑色的，什么都看不到
Lab.Width = 320  * 15 Lab.Height = 240 * 15 ，乘以15后，截图框的大小和QQ截图框大小一样了，但是保存的图片尺寸不是320*240了。
用qq的截图320*240的框，保存的文件尺寸也是320*240的不知道该怎么改，请再帮忙看看

Answer 2

请看函数ScrnCap里的
SourceDC = CreateDC("DISPLAY", 0, 0, 0)
DestDC = CreateCompatibleDC(SourceDC)
BHandle = CreateCompatibleBitmap(SourceDC, rWidth, rHeight)
Ret = SelectObject(DestDC, BHandle)
Ret = BitBlt(DestDC, 0, 0, rWidth, rHeight, SourceDC, Left, Top, &HCC0020)
还是去查查BitBlt吧，你好像没明白DestDC，SourceDC的关系啊，还正SourceDC错了