Question

vb中在本程序中一定范围内截取图片到剪切板

如题，题目不太好说明，我来举例：
窗体中一个image（加载了图片），一个text（加载了文字），我的目的是把image内容和text内容整体作为一个图片到剪贴板。
1、我试着建一个picture，然后把image和text放进picture，然后clicpboard.setdata picture1.picture，内容是空的，我以为只要那两个控件放进picture，就可以当成picture1的picture内容。
2、上面的办法行不通，那怎么样截取picture1内的内容（也可以不借助picture1，个人以为借助picture1可能会方便一些）？

Answer 1

Picture1.Picture 这个只是Picture1的背景图片，与上面的控件是没有直接关系，控件也不可能是图片的一部分。就像你家的地毯，与上面摆放的家具是没有直接的关系的。
你应该使用截屏的方式才能实现你的目的。要截屏有多种方式，下面是比较简单的一种：

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 vbKeySnapshot, 1, 0, 0
End Sub

点击Command1后，窗体就被复制到剪贴板了。如果你想截取图片的某一部分，那么你可以用图片框调入这个图片（直接从剪贴板调入即可），再在图片框进行剪裁即可。

追问

在按钮事件中，不加Clipboard.Clear，就会有可能保留之前的剪切板内容），加了clear，就会剪切板出错，把Clipboard.Clear加到form_load里，就会点两次按钮才能出图，这种该怎么处理呀
Clipboard.Clear

keybd_event vbKeySnapshot, 1, 0, 0
Picture2.Picture = Clipboard.GetData()

追答

不加Clipboard.Clear，并不会保留之前的剪切板内容的（我不知道你是听谁说的），就像你按了一次Ctrl+C，过一会再按Ctrl+C，第二次复制的内容会自动覆盖前一次的内容的，因为Windows系统的剪贴板只能保留一次的复制或剪切的数据的。一般情况下Clipboard.Clear是不需使用的，在特殊情况下才要用到。

追问

keybd_event vbKeySnapshot, 1, 0, 0
Picture2.Picture = Clipboard.GetData()

第一次点击按钮，图片框会有一个窗体，多点几次按钮，就会出现多个（像上图一样）。

这时，我关闭程序，再次打开程序，点击一次按钮，就会直接像上图一样。

另外，我在打开程序前，先用qq截一个图，然后打开程序，点击按钮，图片框里不会是窗体的截图，而是qq的截图。

追答

由于程序截取的是整个窗体，所以如果你的窗体中放入一个图片框，而图片框的内容又恰恰是截取的窗体内容，那么当你再次截取窗体时，图片框里的内容又会被再次截取，这样图片框里显示的就会是两个窗体，这样每点一次就会多一个窗体的图像。就像你拿着摄像头正对着拍摄你的显示器，而显示器显示的就是你拍摄的画面，那么你会发现显示器上会出现一个显示器里面又有一个显示器，这样一个套一个逐渐变小，就像一个长长的隧道那样的奇景。
你的题目中只是说截取窗体内容到剪贴板，并没有要求怎么导出剪贴板中的内容，所以我上面的代码并没有附加其他代码。当keybd_event过程执行完毕后，是不能够立刻读取剪贴板的内容的，因为这时候截取的屏幕内容尚未发送到剪贴板，这时候剪贴板中还是上一次的剪贴内容（比如你说的qq的截图）。程序应该改成这样：

keybd_event vbKeySnapshot, 1, 0, 0
DoEvents
Picture2.Picture = Clipboard.GetData()