十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
用Computer类里的Clipboard的几个Get函数
在岚县等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站设计、成都网站建设 网站设计制作按需定制开发,公司网站建设,企业网站建设,成都品牌网站建设,成都全网营销推广,外贸网站制作,岚县网站建设费用合理。
如获取剪贴板里的文本
Dim c As New Microsoft.VisualBasic.Devices.Computer
MsgBox(c.Clipboard.GetText())
可以直接用My 里的
MsgBox(My.Computer.Clipboard.GetText())
获取图片
Me.BackgroundImage = My.Computer.Clipboard.GetImage()
在获取前确定剪贴板里有没有文本
If My.Computer.Clipboard.ContainsText Then
MsgBox(My.Computer.Clipboard.GetText)
End If
设置剪贴板里的文本
My.Computer.Clipboard.SetText(Now)
'vb.net2008
Dim b
b = Clipboard.GetText '文字
b = Clipboard.GetImage '图片
b = Clipboard.GetAudioStream '音乐
复制文件夹不用剪贴板,使用系统文件操作对象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"