VB如何将缩小的图片复制到剪贴板中去？
Private Sub Command2_Click()
Image1.Stratch=true
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
End Sub
虽然我可以用上面的代码缩小图片，但我如何将缩小的图片放入剪贴板中去呢？
追问：如何办？我不会，我是说缩小后的图片。不保存，直接将缩小后的图片放到剪贴板中不可以吗？为什么不可以直接在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
