VB6监视/操作剪贴板示例(VB6.0代码)

Option Explicit
'剪贴板监视与管理示例代码
'BY 嗷嗷叫的老马
'http://www.m5home.com

Private Declare Function SetClipboardViewer Lib "user32.dll" ( _
ByVal hwnd As Long) As Long
Private Const WM_DRAWCLIPBOARD As Long = &H308

Dim WithEvents objSC As cSubclass

Private Sub Command1_Click()
Me.Tag = 1
Clipboard.Clear
Clipboard.SetText Text1.Text
Me.Tag = 0
End Sub

Private Sub Command2_Click()
Me.Tag = 1
Clipboard.Clear
Clipboard.SetText Text2.Text
Me.Tag = 0
End Sub

Private Sub Form_Load()
Call SetClipboardViewer(Me.hwnd) '添加本句柄到剪贴板查看器列表
Set objSC = New cSubclass

objSC.AddWindowMsgs Me.hwnd
End Sub

Private Sub Form_Unload(Cancel As Integer)
objSC.DeleteWindowMsg Me.hwnd
Set objSC = Nothing
End Sub

Private Sub objSC_MsgCome(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, lng_hWnd As Long, uMsg As Long, wParam As Long, lParam As Long)
If bBefore Then
Select Case uMsg
Case WM_DRAWCLIPBOARD '剪贴板被改变
If Clipboard.GetFormat(vbCFText) And Me.Tag <> "1" Then '只对文本进行处理,自己复制时不处理
If Option1.Value Then Text1.Text = Clipboard.GetText
If Option2.Value Then Text2.Text = Clipboard.GetText
End If
End Select
End If
End Sub