VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 1213|回復: 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 很給力

查看全部評分

回復 支持 0 反對 1

使用道具 舉報

推薦
發表于 2019-9-5 12:45:42 | 只看該作者
代碼執行后粘貼板上的是數據,電腦上按粘貼需要的是文件格式,你可以在QQ里粘貼,就有 了

評分

參與人數 1威望 +10 人氣 +2 收起 理由
bruly + 10 + 2 贊一個

查看全部評分

回復 支持 1 反對 0

使用道具 舉報

推薦
發表于 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 贊一個

查看全部評分

回復 支持 1 反對 0

使用道具 舉報

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, 2020-2-5 19:59

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
广西快3开奖结果直播 二尾中特王 网址谁有 北京pk10app破解版 上海申城棋牌 西甲联赛回放 湖南全来麻将辅助器下载 澳门彩资料 加拿大快乐8网址 曾道正版资料 海南麻将有番规则图解 捕鱼大富翁免费下载