Question

VB如何将缩小的图片复制到剪贴板中去？

Private Sub Command2_Click()
Image1.Stratch=true
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
End Sub
虽然我可以用上面的代码缩小图片，但我如何将缩小的图片放入剪贴板中去呢？

Answer 1

把Image1的图像贴到一个picture里，再把picture放到剪切板里即可

追问

如何办？我不会，我是说缩小后的图片。

追答

缩小后的图片，用PaintPicture贴到一个picture控件picture1里即可

然后
Dim pic As StdPicture
SavePicture Picture1.Image, "c:\1.bmp "
Set pic = LoadPicture( "c:\1.bmp ")

Clipboard.Clear
Clipboard.SetData pic , vbCFBitmap

追问

不保存，直接将缩小后的图片放到剪贴板中不可以吗？

追答

Picture1.refresh
Clipboard.Clear
Clipboard.SetData Picture1, vbCFBitmap
试试吧

追问

为什么不可以直接在picture缩小，然后再用你说的粘贴的方法，而非要在Image1中缩小，然后再转移到picture中，然后再用你说的粘贴的方法呢？

追答

Image1缩小了，但数据还是原始数据，只是视觉上小了而已
转移到picture中，数据变成小图的真实数据了，就可以直接操作了

追问

好像，不行，你写整个代码给看看。

追答

俺很早以前证件制作系统里就是这样处理的（采集的照片都是很大的，但数据库存储和最后打印都是要小的）

你的代码是如何写的？...

追问

Private Sub Command1_Click()
Image1.Stretch = True
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
Picture1.Refresh
Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height, 0, 0, Image1.Width, Image1.Height
Clipboard.Clear
Clipboard.SetData Picture1, vbCFBitmap
End Sub