如何读出系统剪切板中的内容? VB高手帮帮忙啊?

来源：百度知道 编辑：UC知道 时间：2024/06/06 01:43:18
如何用VB开发工具读出WINDOWS系统剪切板中的内容 如何读出剪切板中的内容并改变其中的内容?
有原码最好,谢谢了!

Option Explicit

Private Sub Command1_Click()
If Clipboard.GetFormat(vbCFText) Then
'剪贴板中保存的是文字
MsgBox Clipboard.GetText, , "TEXT"
'设置剪贴板文字
Clipboard.SetText "Quick fox"
ElseIf Clipboard.GetFormat(vbCFBitmap) Then
'剪贴板中保存的是位图
MsgBox "BITMAP"
'在窗口上显示
Me.Picture = Clipboard.GetData(vbCFBitmap)
Else
'其他格式请自行处理
MsgBox "Unknown format"
End If
End Sub