重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
创新互联公司主要从事成都网站建设、成都做网站、网页设计、企业做网站、公司建网站等业务。立足成都服务蓟州,10余年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792
Clipboard.SetDataObject(TextBox1.Text)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
End Sub
Private Sub Form_Click()
MsgBox "剪贴板的内容为:" vbCrLf Clipboard.GetText
If Clipboard.GetText = "123" Then MsgBox "监控到剪贴板中的数据为'123',请求处理!"
End Sub
用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)
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
复制文件夹不用剪贴板,使用系统文件操作对象就好了
CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"