Question

VB,如何打开一个文件夹中的图片并将其拷贝到剪贴板？

如何缩小图片再拷贝入剪贴板。

Answer 1

用Clipboard.SetData()可以将图片放入剪贴板，语法：SetData(Picture As IPictureDisp, [Format])。打开图片文件可以用LoadPicture()，语法：LoadPicture([FileName], [Size], [ColorDepth], [X], [Y]) As IPictureDisp。用StretchBlt()缩放图片，声明：
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (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

追问

声明必须有？

追答

StretchBlt是API函数，声明当然有，且必须。

Answer 2

Private Declare Function icePub_imgFileToClipboard Lib "icePubDll.dll" (ByVal strImgFilename As String) As Integer

Dim a2 As Integer

a2 = icePub_imgFileToClipboard("d:\d.png")

追问

这是打开一个图片文件然后拷贝到剪贴板？

Answer 3

复制呗 选中要复制的图片 同时按ctrl+c就可以了