以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]点击按钮实现指定路径的图片剪切在粘贴板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135281)
--  作者：湛江智
--  发布时间：2019/5/22 17:03:00
--  [求助]点击按钮实现指定路径的图片剪切在粘贴板
如题，点击按钮实现指定路径的图片剪切在粘贴板，狐表是否可以实现？
实现效果相当于，打开图片全屏显示时截屏并复制在粘贴板，ctrl+v可以粘贴
--  作者：有点甜
--  发布时间：2019/5/22 17:18:00
--  

参考

 

ClipBoard.setImage(getimage("d:\\test.jpg"))

 

或者

 

Dim ls As new System.Collections.Specialized.StringCollection
ls.add("d:\\test.jpg")
ls.add("d:\\test.xls")
My.Computer.Clipboard.SetFileDropList(ls)


 

获取，如代码

 

Dim ls As System.Collections.Specialized.StringCollection = My.Computer.Clipboard.getFileDropList
msgbox(ls.count)
For Each s As object In ls
    msgbox(s)
Next