VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 451|亚博足彩app下载安装: 5
打印 上一主题 下一主题

[求助] 如何复制本地图片到粘贴板?

[复制链接]
跳转到指定楼层
1
发表于 2019-9-2 09:54:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题,如何复制本地图片到粘贴板?
   我采用过这些方法,都行不通:
1、Clipboard.Clear
     Clipboard.SetData LoadPicture(图标地址)

2、Clipboard.Clear
     Clipboard.SetData Picture1.Image '复制控件上的图片到粘贴板 也不成
     Clipboard.SetDataPicture1.Picture ‘更改一下也不成
http://blog.sina.com.cn/s/blog_3fde61cd0100qn8p.html

3、老外的方法也不行:
    https://stackoverflow.com/questi ... board-as-one-object
推荐
发表于 2019-9-6 20:08:49 | 只看该作者
你这个标题不应该叫《如何复制本地图片到粘贴板》,应该叫《如何复制文件到粘贴板》,不然误会成把图片数据复制到剪贴板。
我找过一个老外写的剪贴板,可以复制文件到剪贴板、还可以读取剪贴板文件列表。是个类模块,有空可以下载研究一下。

评分

参与人数 1威望 +10 人气 +2 收起 理由
bruly + 10 + 2 很给力

查看全部评分

推荐
发表于 2019-9-5 12:45:42 | 只看该作者
代码执行后粘贴板上的是数据,电脑上按粘贴需要的是文件格式,你可以在QQ里粘贴,就有 了

评分

参与人数 1威望 +10 人气 +2 收起 理由
bruly + 10 + 2 赞一个

查看全部评分

推荐
发表于 2019-9-4 19:16:05 | 只看该作者
测试了一下
你的方法1、2 都是可行的。
Clipboard.Clear
Clipboard.SetData LoadPicture("C:\test\test.bmp")

先加载图片到控件,然后
Clipboard.Clear
Clipboard.SetData  Picture1.Picture

在画图中粘贴都是正常的,即使另外复制了图,只要使用代码设置剪贴板,马上更改过来。

评分

参与人数 1威望 +10 人气 +2 收起 理由
bruly + 10 + 2 赞一个

查看全部评分

3
 楼主| 发表于 2019-9-5 06:53:42 | 只看该作者
vbfans01 发表于 2019-9-4 19:16
测试了一下
你的方法1、2 都是可行的。
Clipboard.Clear

感谢您的热心帮助。
我前面之所以说不行,判断依据是执行代码后,在电脑上按粘贴,发现并没有把复制到的图片粘贴出来
5
 楼主| 发表于 2019-9-5 14:38:41 | 只看该作者
vbfans01 发表于 2019-9-4 19:16
测试了一下
你的方法1、2 都是可行的。
Clipboard.Clear

我使用这个方法好像可以了:
  1. For Each v In CreateObject("Shell.Application").NameSpace("D:\新建文件夹").ParseName("a.png").Verbs
  2.   If v.Name = "复制(&C)" Then v.DoIt
  3. Next
复制代码
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-10-30 04:54

VB爱好者乐园(VBGood)
快速亚博足彩app下载安装 返回顶部 返回列表