Question

vb 界面截图 我的意思是把生成出来的程序，点按钮截取这个程序的平面图。

我会屏幕截图，我现在想只截取这个程序的截面图，应该怎么写代码啊。

Answer 1

'还是用printscreen，需要一个Image控件
Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event 44, 1&, 0&, 0&
DoEvents
Image1.Stretch = True
Image1.Picture = Clipboard.GetData(vbCFDIB)
'保存图像到桌面
SavePicture Image1, "C:\Documents and Settings\Administrator\桌面\TEST.BMP"
End Sub

追问

很棒。

keybd_event 44, 1&, 0&, 0&
是模拟的那几个按键？

Clipboard.GetData(vbCFDIB)
这句是啥意思

追答

模拟的alt+printscreen其中44就是printscreen键对应代码，第二个参数置为0&用以获得全屏快照，置为1&（仅获得活动窗口的快照）。

Clipboard.GetData(vbCFDIB)
获得粘贴板上的图像数据

Answer 2

只截程序的图可以不用vb编。
键盘alt+printscreen就可以截获当前活动窗口的图，用vb的话貌似要用到dx方面，还是很麻烦的

Answer 3

你好，你可以参考下我博客的这篇文章，《位图操作(截图，复制，保存)》
调用下面的函数，就可获取指定区域的内容，你可以先获取自身的窗体在屏幕中的位置，然后调用下面的函数，获取。
HBITMAP juesImage_CopyScreenToBitmap( RECT Rect );// 截图指定区域

但还有一种比较简单的方法，就是先获取自身的窗口DC ，然后获取得窗口内容截图.

虽然是VC写的，但可以参考一下，如果有问题可以留言，实在用VC不行的话，就可以留言上，我有空就发表一篇VB的，谢谢。

下面是文章的地址：

http://blog.sina.com.cn/s/blog_69eef8440100w5lm.html

Answer 4

你的意思不是很清楚。你是自己做的程序，希望有一个按钮，能把程序界面的一部分或者全部截取出来么？
截取出来放到哪？直接放到粘贴板上到其他程序里再ctrl－V？补充一下问题吧。类似的功能我做过。

追问

我是想只截取程序的界面，保存到桌面上。