.net随笔-vb2015 剪粘板(1)

版权声明：本博客所有文章版权归博主刘兴所有，转载请注意来源 https://blog.csdn.net/AI_LX/article/details/88710425

Public Class Form1
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        My.Computer.Clipboard.SetText(TextBox1.Text) '写入
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = My.Computer.Clipboard.GetText() '读取
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.Clipboard.Clear() '清空
    End Sub
End Class