首先画一个这样的对话框:
第一行的文本框名称为TextBox1,第二行文本框名称为TextBox2。
Button1将TextBox1中的内容复制到剪切板。
Button2将剪切板的内容粘贴到TextBox2。
示例代码如下:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text <> "" Then
Clipboard.SetText(TextBox1.Text)
Else
MessageBox.Show("There isn't text in textBox1")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Clipboard.ContainsText() Then
TextBox2.Text = Clipboard.GetText()
Else
MessageBox.Show("Could not retrieve data off the clipboard.")
End If
End Sub
End Class
GetText etrieves text data from the Clipboard in the Text or UnicodeText format, depending on the operating system.
This method returns text data in the UnicodeText format on Windows XP Home Edition, Windows XP Professional, Windows Server 2003 and Windows 2000. Otherwise, this method returns text data in the Text format.
Use the ContainsText method to determine whether the Clipboard contains text data before retrieving it with this method.
Use the SetText method to add text data to the Clipboard.
The Clipboard class can only be used in threads set to single thread apartment (STA) mode. To use this class, ensure that your Main method is marked with the STAThreadAttribute attribute.
SetText, ContainsText,GetText都可以包含一个TextDataFormat枚举参数。