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
.net随笔-vb.net 剪粘板(1)
最新推荐文章于 2023-04-11 15:57:32 发布