vb.net剪切 vb剪贴板

编程vb.net clipboard 剪切复制粘贴

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Clipboard.SetDataObject(TextBox1.Text)

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text, False)

End Sub

相关问答

Q1: VB.net 剪切板的操作

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

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

Q2: VB.NET如何获取剪切板里面的内容

用Computer类里的Clipboard的几个Get函数

如获取剪贴板里的文本

Dim c As New Microsoft.VisualBasic.Devices.Computer

MsgBox(c.Clipboard.GetText())

可以直接用My 里的

MsgBox(My.Computer.Clipboard.GetText())

获取图片

Me.BackgroundImage = My.Computer.Clipboard.GetImage()

在获取前确定剪贴板里有没有文本

If My.Computer.Clipboard.ContainsText Then

MsgBox(My.Computer.Clipboard.GetText)

End If

设置剪贴板里的文本

My.Computer.Clipboard.SetText(Now)

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怎么复制文件到剪切板，不是复制文件内容！

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

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

Q5: vb.net 对 RichTextBox 中 前三行进行 剪切 操作

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

Dim my_text() As String

my_text = RichTextBox1.Lines

System.Array.Reverse(my_text)

ReDim Preserve my_text(my_text.GetUpperBound(0) - 3)

System.Array.Reverse(my_text)

RichTextBox1.Lines = my_text

End Sub

关于vb.net剪切和vb剪贴板的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。