剪贴板实例学习笔记.01.

Private Sub button1_Click(sender As Object, e As System.EventArgs)
    '从TextBox控件中把选中的文字内容复制到剪贴板.
    If textBox1.SelectedText <> "" Then
        Clipboard.SetDataObject(textBox1.SelectedText)
    Else
        textBox2.Text = "你还没从textBox1控件中选中任何文本内容！"
    End If
End Sub
'更多原创VB.Net学习笔记，来自lob.cn乐博网
Private Sub button2_Click(sender As Object, e As System.EventArgs)
    ' 定义一个IDataObject对象来获取剪贴板的内容.
    Dim iData As IDataObject = Clipboard.GetDataObject()
    
    ' 判断从剪贴板获取的数据类型是否为可用的格式.
    If iData.GetDataPresent(DataFormats.Text) Then
        ' 如果是文本格式的，那就把他显示出来.
        textBox2.Text = CType(iData.GetData(DataFormats.Text), String)
    Else
        ' 如果不是可用格式.
        textBox2.Text = "无法从剪贴板获取数据."
    End If
    Clipboard.Clear() '清空剪贴板内容
End Sub