【vb】只要程序窗口为活动窗口就截获剪贴板数据

来源：百度知道 编辑：UC知道 时间：2024/05/23 10:52:01
只要当前窗口获得焦点，就将剪贴板数据截获到文本框，剪贴板数据为文本。
我使用了form的gotfocus事件发现不行，请高手赐教。不希望用timer控件

参考：http://www.graphics.net.cn/bbs/vb/0440/179.asp
http://blog.csdn.net/xinbin1122/category/90621.aspx
=================================================
第13楼 回复人：yefanqiu 2003-07-09 08:13:32 返回顶部

'窗体子类化（声明部分，你自己声明）
'设置
Public Sub SetSubClass(lpHwnd As Long, lngX As Long, lngY As Long)
If Not m_Hook Then
m_hWnd = lpHwnd
m_PrevWndProc = SetWindowLong(lpHwnd, GWL_WNDPROC, AddressOf WindowProc)
m_Hook = True
End If
End Sub
'取消
Public Sub UnSubClass()
If m_Hook Then
Call SetWindowLong(m_hWnd, GWL_WNDPROC, m_PrevWndProc)
m_Hook = False
End If
End Sub
Private Function