VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > VB.net教程 >
  • VB.NET实现Windows剪贴板监视器

Windows剪贴板

剪贴板(ClipBoard)是内存中的一块区域,是Windows内置的一个非常有用的工具,通过小小的剪贴板,架起了一座彩桥,使得在各种应用程序之间,传递和共享信息成为可能。然而美中不足的是,剪贴板只能保留一份数据,每当新的数据传入,旧的便会被覆盖。

相关Windows API

最主要的是SetClipboardViewer,每当剪贴板的内容发生变化时,该函数通过WM_DRAWCLIPBOARD消息将窗口加入被通知的窗口链。
由于剪贴板观察器链中下一个窗口的句柄还没有返回,应用程序不应传递它在SetClipboardViewer
调用过程中接收到的WM_DRAWCLIPBOARD消息。
如果要从剪贴板观察器链中去掉窗口链,则应用程序必须调用ChangeClipboard成员函数。

 


  1.  
    Declare Auto Function SetClipboardViewer Lib "user32" (ByVal HWnd As IntPtr) As IntPtr
  2.  
    Declare Auto Function ChangeClipboardChain Lib "user32" (ByVal HWnd As IntPtr, ByVal HWndNext As IntPtr) As Boolean
  3.  
    Declare Auto Function SendMessage Lib "User32" (ByVal HWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Long

wndproc函数

操作系统向应用程序发送一系列消息,如左键按下和左键抬起,应用程序将通过GetMessage等方法最终将消息提交到窗口过程(WndProc[英文全称windows process])指向一个应用程序定义的窗口过程的指针。

我们需要重写该函数来处理剪贴板内容改变事件:

 


  1.  
    'Override WndProc to get messages...
  2.  
    Protected Overrides Sub WndProc(ByRef m As Message)
  3.  
    Select Case m.Msg
  4.  
    Case Is = WM_DRAWCLIPBOARD 'The clipboard has changed...
  5.  
    '##########################################################################
  6.  
    ' Process Clipboard Here :)........................
  7.  
    '##########################################################################
  8.  
    SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
  9.  
     
  10.  
    '显示剪贴板中的文本信息
  11.  
    If Clipboard.ContainsText() = True Then
  12.  
    Label1.Text = Clipboard.GetText()
  13.  
    End If
  14.  
    '显示剪贴板中的图片信息
  15.  
    If Clipboard.ContainsImage() = True Then
  16.  
    PictureBox1.Image = Clipboard.GetImage()
  17.  
    PictureBox1.Update()
  18.  
    End If
  19.  
     
  20.  
    Case Is = WM_CHANGECBCHAIN 'Another clipboard viewer has removed itself...
  21.  
    If m.WParam = CType(mNextClipBoardViewerHWnd, IntPtr) Then
  22.  
    mNextClipBoardViewerHWnd = m.LParam
  23.  
    Else
  24.  
    SendMessage(mNextClipBoardViewerHWnd, m.Msg, m.WParam, m.LParam)
  25.  
    End If
  26.  
    End Select
  27.  
     
  28.  
    MyBase.WndProc(m)
  29.  
    End Sub

效果:

源码下载:VB.NET实现Windows剪贴板监视器

http://download.csdn.net/detail/testcs_dn/8299111

相关教程