vb.net操作剪切板 vb 剪贴板

VB.Net 复制Excel数据到剪贴板，然后粘贴到Listview1，最好提供代码，多谢！

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、小程序定制开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了王屋免费建站欢迎大家使用！

Dim Str As String = Clipboard.GetText '获取剪切板数据。

ListView1.View = View.Details

Dim Tit As Boolean = True

Dim Index As Integer = 0 '标题行的列数。

Try

For Each i In Str.Replace(vbLf, "").Split(vbCr)

Dim Str2() As String = i.Split(" ")

If Tit Then '标题行

Tit = False

For Each k In Str2

ListView1.Columns.Add(k)

Index = Str2.Length - 1

Else '非标题行。

Dim lv As New ListViewItem(Str2(0))

For k = 1 To Index

lv.SubItems.Add(Str2(k))

ListView1.Items.Add(lv)

End If

Catch ex As Exception

End Try

End Sub

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

用clipboard方法虽然只能在程序内部使用，但写入的就是系统的剪切板啊，你在任何一个地方都可以用ctrl+V进行粘贴的。

我测试了，没问题的。不知是否是你的系统有异常。

我又按你的代码试了，没问题。依我看，问题还是出在你的系统上，你不妨用其他软件试试，比如WPS、WORD。

网站名称：vb.net操作剪切板 vb 剪贴板
文章路径：http://kswsj.cn/article/doooied.html