58问答库 > 高手请给我分析个vb代码：PrevWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubWndProc)

高手请给我分析个vb代码：PrevWndProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf SubWndProc)

2025-02-27 20:18:50

推荐回答（1个）

回答（1）：

【VB声明】
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
【别名】
SetWindowLongA
【说明】
在窗口结构中为指定的窗口设置信息
【返回值】
Long，指定数据的前一个值
【参数表】
hwnd ----------- Long，欲为其取得信息的窗口的句柄
nIndex --------- Long，请参考GetWindowLong函数的nIndex参数的说明
nIndex --------- Long，欲取回的信息，可以是下述任何一个常数：
GWL_EXSTYLE
扩展窗口样式
GWL_STYLE
窗口样式
GWL_WNDPROC
该窗口的窗口函数的地址
GWL_HINSTANCE
拥有窗口的实例的句柄
GWL_HWNDPARENT
该窗口之父的句柄。不要用SetWindowWord来改变这个值
GWL_ID
对话框中一个子窗口的标识符
GWL_USERDATA
含义由应用程序规定
DWL_DLGPROC
这个窗口的对话框函数地址
DWL_MSGRESULT
在对话框函数中处理的一条消息返回的值
DWL_USER
含义由应用程序规定
dwNewLong ------ Long，由nIndex指定的窗口信息的新值
==============================================================
'Create a new project, add a module to it
'Add a command button to Form1
'In the form
Private Sub Form_Load()
HookForm Me
'Register this form as a Clipboardviewer
SetClipboardViewer Me.hwnd
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Unhook the form
UnHookForm Me
End Sub
Private Sub Command1_Click()
'Change the clipboard
Clipboard.Clear
Clipboard.SetText "Hello !"
End Sub

'In a module
'These routines are explained in our subclassing tutorial.
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetClipboardViewer Lib "user32" (ByVal hwnd As Long) As Long
Public Const WM_DRAWCLIPBOARD = &H308
Public Const GWL_WNDPROC = (-4)
Dim PrevProc As Long
Public Sub HookForm(F As Form)
PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
If uMsg = WM_DRAWCLIPBOARD Then
MsgBox "Clipboard changed ..."
End If
End Function

最新问答

男朋友生日了我想送他特别的礼物他喜欢篮球喜欢听歌我想送个品牌的包包希望有些参考

办理身份证申请书怎么写

爸爸姓王，妈妈姓郭，孩子出生11年15点45分，女孩，懂的朋友帮我切一下八字

西红柿炒鸡蛋怎么炒才好吃？

阳绿翡翠手镯跟满绿翡翠有分别吗

有闪电一定有打雷声吗?

光速是恒速吗？光在任何地方速度都是一样的吗？

父亲的房子给了儿子,父亲要求儿子在他在世前不允许儿子卖这栋房子有没有法律

新GRE一道小阅读逻辑推理题，求解答

你好，我想知道近期领结婚证的好日子