Question

vb 求教Clipboard.SetData函数和Clipboard.GetData函数？？？下面这段代码哪里错了？？附带窗体界面图片

Private Sub Command1_Click()
On Error Resume Next
'设置错误处理
Clipboard.SetData LoadPicture(App.Path & "\123.jpg")
If Err Then MsgBox "没有找到图片", , "断涯软件提示"
Else
MsgBox "已经将图片复制到剪贴板", , "断涯软件提示"
End If
Clipboard.GetData (App.Path & "\123.jpg")
End Sub
Private Sub Form_Load()
a = MsgBox("在打开软件时需要将剪贴板内容清楚 , 是否确定清除内容？", 1, "断涯软件提示")
If a = 1 Then
Clipboard.Clear
End If
Picture = LoadPicture(App.Path & "\123.jpg")
End Sub

Answer 1

Private Sub Command1_Click()
Clipboard.SetData Me.Picture
MsgBox "已经将图片复制到剪贴板", , "断涯软件提示"
End Sub

Private Sub Form_Load()
If MsgBox("在打开软件时需要将剪贴板内容清楚 , 是否确定清除内容？", vbOKCancel, "断涯软件提示") = vbOK Then Clipboard.Clear
Me.Picture = LoadPicture(App.Path & "\123.jpg")
End Sub

追问

我看着你的代码觉得是行的，可是调试后也不能复制到剪切，这是怎么回事，我觉得应该不是代码的问题，而是我电脑的问题，可是我电脑运行正常啊，什么情况？？？

追答

我这里测试后是没问题的。当然我用的是自己电脑里的图片。也许你换其他图片试试，多换几种格式的，bmp jpg gif

Answer 2

很好的 程序

你编译生成 exe 文件后，这个图片要和 exe 文件放一起

祝好

追问

我知道要放在一起，可是不知道怎么回事，就是复制不了到剪贴板？

Answer 3

图片是放在PictureBox控件中的吗？

追问

不是，是加载到背景的，知道哪里错了吗，

追答

Private Sub Command1_Click()
Clipboard.SetData Picture, vbCFBitmap '此方法不引发异常，错误语句不起作用，删除之
MsgBox "已经将图片复制到剪贴板", , "断涯软件提示"
End Sub

Private Sub Form_Load()
a = MsgBox("在打开软件时需要将剪贴板内容清楚 , 是否确定清除内容？", 1, "断涯软件提示")
If a = 1 Then
Clipboard.Clear
End If
Picture = LoadPicture(App.Path & "\123.jpg")
End Sub

追问

还是不行，我就觉得是电脑的区别，我的是win7,谢谢，懒得麻烦，把这问题过滤掉，不想了

追答

我也是win7，我测试是成功的！点击按钮之后，打开画图软件，CTRL-V就可以粘贴从vb中复制的图像了！

追问

我那个郁闷哦，原来要在画图中粘贴才行，我说怎么回事呢，原来如此，
可是用画图有点麻烦耶，就不能像平常一样的粘贴图片吗？？？

追答

除了画图，其它的能接收图像的软件也可以啊，例如Word等。
你点按钮，相当于按选中图像，按Ctrl-C，也就是复制，想看到图像，那还需要粘贴啊！