我需要将图片框中的图像和文本框中的文本一起复制到Windows剪贴板,以便可以粘贴到Word中。
我正在使用以下代码:
Dim bmp As New Bitmap(pb1.Width, pb1.Height)
pb1.DrawToBitmap(bmp, New Rectangle(0, 0, pb1.Width, pb1.Height))
Dim dataobj As DataObject = New DataObject
dataobj.SetText("This image is a graph")
dataobj.SetImage(bmp)
Clipboard.SetDataObject(dataobj, True)
bmp.Dispose()
只有文本被复制,但注释掉SetText
行会导致图像被复制。
非常感谢您的帮助。