关于vb.net赋值给剪切板的信息

vb.net中怎么样把文本放入剪贴板呢，一定要仔细啊，从头到尾写出来给我吧。

Clipboard.SetDataObject(TextBox1.Text)

复制textbox1.text的内容的剪贴板

相关问答

Q1: VB.NET怎么复制文件到剪切板，不是复制文件内容！

例如，把文件"E:\新建文件夹\a.txt"复制到剪贴板

CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"

Q2: 请问怎样用VB把选中的内容复制到剪切板

窗体新建一个按钮Command1和文本框Text1

Private Sub Command1_Click()

Dim i As Integer, result As String '定义整型变量i,字符串变量result

For i = 1 To Text1.Text Step 1 '循环过程开始将i的最小值和最大值限定为1和Text1的内容，步距为1

result = result InputBox("") '弹出InputBox并且与之前的合并赋给result

Next '循环过程完毕

Clipboard.Clear '清空剪贴板

Clipboard.SetText result '将剪贴板内容设置为result

End Sub

运行程序后在文本框里面输入要弹出的InputBox个数即可。

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

Q4: VB.net 剪切板的操作

复制文件夹不用剪贴板，使用系统文件操作对象就好了

CreateObject("scripting.filesystemobject").copyfolder "c:\Program Files", "D:\Program Files"

Q5: 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)

Next

Index = Str2.Length - 1

Else '非标题行。

Dim lv As New ListViewItem(Str2(0))

For k = 1 To Index

lv.SubItems.Add(Str2(k))

Next

ListView1.Items.Add(lv)

End If

Next

Catch ex As Exception

End Try

End Sub