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)
If Tit Then '标题行
Tit = False
ListView1.Columns.Add(k)
Next
Else '非标题行.
For k = 1 To Index
ListView1.Items.Add(lv)
End If
Catch ex As Exception
End Try
End Sub
你可以在EXEL中把这个过程录制成宏,然后把代码复制到.net中,一般情况稍加修改就可以了
新建一个控件测试窗体工程,添加一个DataGridView控件,添加前面我们做的扩展控件DataGridViewExt的引用,并在Form1.Designer.vb文件中中将
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Me.DataGridView1 = New System.Windows.Forms.DataGridView
分别改为:
Friend WithEvents DataGridView1 As DataGridViewExt.DataGridViewExt
Me.DataGridView1 = New DataGridViewExt.DataGridViewExt
然后就可以从Excel,记事本等程序往DataGridView粘贴数据了.
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb?"复制(C)"
Clipboard.SetDataObject(TextBox1.Text)
TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)
以上就是土嘎嘎小编为大家整理的vb.net复制黏贴相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!