获得文字直接用
韩城ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为成都创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:18982081108(备注:SSL证书合作)期待与您的合作!
Clipboard.GetText
获得图片可以用
Clipboard.GetData
设置文字直接用
Clipboard.SetText
设置图片可以用
Clipboard.SetData
清空
Clipboard.Clear
检测剪贴板中的内容
Clipboard.GetFormat(1)
返回True则文字
返回False则其他
不用剪切板可以这样
Dim s
Private Sub Command1_Click()
s = Text1.Text
Text1.Text = ""
End Sub
Private Sub Command2_Click()
s = Text1.Text
End Sub
Private Sub Command3_Click()
Text1.Text = Text1.Text + s
End Sub
Private Sub Form_Load()
Command1.Caption = "剪切"
Command2.Caption = "复制"
Command3.Caption = "粘贴"
End Sub
我用的是C#不知道你用的是什么语言,不过.net的类库应该是通用的 你可以看下Clipboard这个类 下面代码我测试成功了
System.Collections.Specialized.StringCollection sc=new System.Collections.Specialized.StringCollection();
sc.Add(@"C:\Users\Lenovo\Desktop\练习2010\练习2010\bin\Debug\练习2010.exe");
Clipboard.SetFileDropList(sc);
VB6.0只能复制一个,例如把文件 "D:\aaaa.xml" 复制到剪贴板。
XP系统可用的代码:
CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").InvokeVerb "复制(C)"
XP和win7都能用的代码:
For Each v In CreateObject("Shell.Application").NameSpace("D:").ParseName("aaaa.xml").Verbs
If v.Name = "复制(C)" Then v.DoIt
Next
Dim p1 As New Point(0, 0)
Dim p2 As New Point(My.Computer.Screen.WorkingArea.Width, My.Computer.Screen.WorkingArea.Height) '除工具栏全屏
Dim pic As New Bitmap(p2.X, p2.Y)
Using g As Graphics = Graphics.FromImage(pic)
g.CopyFromScreen(p1, p1, p2)
PictureBox1.Image = pic
End Using
Clipboard.SetImage(PictureBox1.Image)
截图到PictureBox1中显示,然后在把PictureBox1.image放到剪切板中