主题：[求助]点击按钮实现指定路径的图片剪切在粘贴板

如题，点击按钮实现指定路径的图片剪切在粘贴板，狐表是否可以实现？
实现效果相当于，打开图片全屏显示时截屏并复制在粘贴板，ctrl+v可以粘贴

参考

 

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