求vb.net监视剪切板的实例，最好是经过调试的。

[张大嘴的鳄鱼]

求vb.net监视剪切板的实例，最好是经过调试的。

[threenewbee]

以前写过一个 https://download.csdn.net/download/caozhy/10504161 VB.NET的和C#你知道是一回事，自己修改下

[张大嘴的鳄鱼]

Declare Auto Function SetClipboardViewer Lib "user32" (ByVal HWnd As IntPtr) As IntPtr Declare Auto Function ChangeClipboardChain Lib "user32" (ByVal HWnd As IntPtr, ByVal HWndNext As IntPtr) As Boolean Declare Auto Function SendMessage Lib "User32" (ByVal HWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Long 上面这些代码是放在form1中吗，还是放在新建的模块中 'Override WndProc to get messages... Protected Overrides Sub WndProc(ByRef m As Message) Select Case m.Msg Case Is = WM_DRAWCLIPBOARD 'The clipboard has changed... '########################################################################## ' Process Clipboard Here :)........................ '########################################################################## SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam) '显示剪贴板中的文本信息 If Clipboard.ContainsText() = True Then Label1.Text = Clipboard.GetText() End If '显示剪贴板中的图片信息 If Clipboard.ContainsImage() = True Then PictureBox1.Image = Clipboard.GetImage() PictureBox1.Update() End If Case Is = WM_CHANGECBCHAIN 'Another clipboard viewer has removed itself... If m.WParam = CType(mNextClipBoardViewerHWnd, IntPtr) Then mNextClipBoardViewerHWnd = m.LParam Else SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam) End If End Select MyBase.WndProc(m) End Sub 上面这部分代码是放在form1中吗，还是放在新建的类中

[面向医学编程]

不是有个clipboard的类吗？用起来很简单啊。想要监视有没有变化把它复制给一个label，然后用label的textchange就知道有没有改变了。不用api的吧

[轻鸿万里]

My.Computer.Clipboard.