谁知道在VB下怎么通过调用FindWindow()获得当前窗口的句柄。

[invaders]

是不是这么声明：
Private Declare Function FindWindow Lib "user32" Alias
"FindWindow"(ByVal lpClassName As String，ByVal lpWindowName As String) As Long

我不知道VB下第一个参数lpClassName该怎么添。

[gbstar2021]

btw 这种技术在 vc 中被称作“子类化”，我真么没想到用在 vb 里。

[pgfun]

当然行得通的啦.这可是小弟我仔细研究了msdn后再经过n次死机后才搞定的.
在使用此方法时强烈建议先保存再运行,否则又是"..."

[pgfun]

小弟初访贵地,急需赚取分值,如果回答有帮助,望诸位高抬贵手.

[prefix]

自定义消息？RegisterMessage不算自定义的吗？

[invaders]

To pgfun()兄：

这个贴子暂不打算结束。　

请到 --答谢pgfun兄对于“VB如何响应自定义消息”的回答！--中点击一下。

[雨晨寒月]

看msdn.

[invaders]

SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WWndProc)
CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
在VB里应该怎么声明呀，我怎么老是找不到dll的入口？

[invaders]

老是报错："找不到dll的入口"

[invaders]

我是这么声明的：

Declare Function SetWindowLong Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long

[invaders]

Private Sub Form_Load()
preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
End Sub

SetWindowLong的返回值为0，说明操作失败。

/*------------------------------------------*/
If the function succeeds, the return value is the previous value of the specified 32-bit integer.
If the function fails, the return value is zero.
/*------------------------------------------*/

[kimryo]

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

在lpClassName中填入vbNullString,传到系统中是长整形的0.

[invaders]

让我试试！

[vbFly]

lpClassName中填入vbNullString或lpWindowName填入vbNullString都可以！你只要知道其中的一个就行了！SO EASY！

[prefix]

看《电脑爱好者》5月上半月的期刊。

[111222]

'下面代码是找到IE窗口句柄
'声明函数：
Option Explicit Private Declare Function FindWindow Lib"user32" Alias "FindWindowA"(ByVal lpClassname As String,ByVal lpWindowName As String) As Long

'应用
Dim sClassname As long
Dim lhwnd As long
sClassname=("IEFrame")
lhwnd=FindWindow(sClassname,NULL);

[invaders]

窗体句柄已可以知道，问题是VB窗体怎么接收dll传来的自定义的消息？

[invaders]

To pgfun()兄　:

我在模块中定义：
Public Function WWndProc(ByVal hw As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "hehe..."
preWndProc = CallWindowProc(preWndProc, hw, Msg, wParam, lParam)
End Function

在窗体文件中定义：
Private Sub Form_Load()
preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
End Sub

可是，WWndProc根本就执行不到，最大化，最小化总是消息吧？
这是怎么回事？

[cclp]

这么简单的问题,你也问

[invaders]

那你能告诉我为什么
preWndProc = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WWndProc)
操作失败吗？

[Taken]

通常来说FindWindow的第一个参数填入vbNullString就可以了，第二个参数是窗口的Caption；
至于得到当前窗口的句柄用GetForegroundWindow就行了
把一个窗口设为当前窗口用SetForegroundWindow
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Example:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [e-mail]
Dim lHandle As Long
'First we're going to retrieve the handle of this window
' "ThunderRT5Form" is the classname of a VB-window
lHandle = FindWindow("ThunderRT5Form", Me.Caption)
'Set this window to the foreground
lHandle = SetForegroundWindow(lHandle)
End Sub