|
VB.Net剪贴板实例 代码如下：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetText.Click
'将文本框中的数据引入到剪贴板
My.Computer.Clipboard.SetData(DataFormats.Text.ToString(), TextBox1.Text)
End Sub
Private Sub btnGetIMG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetImage.Click
Dim clipboardImage As Image
clipboardImage = My.Computer.Clipboard.GetImage()
PictureBox1.Image = clipboardImage
End Sub
'更多vb.net源代码和实例，请关注乐博网lob.cn
Private Sub btnSetImage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetImage.Click
'将图片框中的数据复制到剪贴板
My.Computer.Clipboard.SetData(DataFormats.Bitmap.ToString(), PictureBox1.Image)
End Sub
Private Sub btnGetText_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetText.Click
TextBox1.Text = My.Computer.Clipboard.GetData(DataFormats.Text.ToString()).ToString()
End Sub
End Class
|
