Question

vb问题，如何放大或缩小剪贴板中的图？

Answer 1

三步：
1 把剪贴板的图显示到PictureBox
2 用StretchBlt函数缩放图片
3 缩放后的图片再次放入剪贴板

追问

不太会用，举个例子吧？

追答

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()
Picture1 = Clipboard.GetData
StretchBlt Picture2.hdc, 0, 0, Picture2.Width - 1, Picture2.Height - 1, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcCopy
Clipboard.SetData Picture2
End Sub

追问

是不是可以解释解释？
如何用呢？我实验过，似乎用不起来啊。

追答

我试过可以啊，窗体里面要有两个图片框，1个按钮。剪贴板上要有一幅画。

追问

没见到缩小或放大的结果。

追答

不知道你怎么试的，明明我这里可以，看图：