vb如何做剪切、复制、粘贴按钮

获得文字直接用

韩城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

vb2010 剪切板

我用的是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);

VB 复制文件到剪切板

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

vb.net 如何把窗口内容作为图元(Meta)格式拷贝到剪切板中？

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放到剪切板中

当前标题：vb.net裁剪 vb裁剪图片
分享网址：http://cdweb.net/article/docchoe.html