Question

VB问题，这段代码是问题在·什么地方？

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
Picture2.Refresh
'Picture1 = Clipboard.GetData
StretchBlt Picture2.hdc, 0, 0, Picture2.Width - Text2.Text, Picture2.Height - Text1.Text, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Clipboard.Clear
Clipboard.SetData Picture2, vbCFBitmap
End Sub

我的目的是要将Picture2中的图放入剪贴板中，以便粘贴到WORD中去，但我发现执行后，剪贴板内是空的。

Answer 1

Private Sub Command1_Click()
Picture2.AutoRedraw = True
'Picture1 = Clipboard.GetData
StretchBlt Picture2.hdc, 0, 0, Picture2.Width - Text2.Text, Picture2.Height - Text1.Text, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Clipboard.Clear
Clipboard.SetData Picture2.Image
End Sub
这样才可以得到图像。

追问

没用，你说的方法没用，还是没有图像。

追答

怎么会，有图有真相，这是执行完程序，把剪贴板的内容粘贴到画图里面：

追问

用你给的代码还是不行，粘贴后出现两个图像，一上一下，一大，一小。当文本框比较小的时候。

追答

Picture2显示什么，你就能粘贴什么，我不知道你原始图像是什么样的。你肯定改过我的代码了。

追问

Private Sub Command1_Click()
Picture2.AutoRedraw = True
StretchBlt Picture2.hdc, 0, 0, Picture2.Width / Text1.Text, Picture2.Height / Text1.Text, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Clipboard.Clear
Clipboard.SetData Picture2.Image
End Sub
上面的图是要被缩小的图，下面的图则是缩小的结果，其中我们可以看到有一些不该有的竖线存在。如何使这些线不再存在？

追答

这么说图像还是有的，而不是你一开始说没图像，你再看看你的提问，我已经解决了你说的问题，至于什么多余的线，那是VB的问题，不影响你粘贴到WORD中

追问

但我贴到WORD中去也有这些线啊，这多不好。如何让这些线不出现呢？

追答

奇了，我怎么没有？你看我的图。是不是你的picture1设置了边框颜色？

追问

没设置也还是存在的。

追答

那就不知道了，我这里没有。

Answer 2

'Picture1 = Clipboard.GetData
前面的 ' 不会影响吗？