请详解下面的VB代码 谢谢

来源:百度知道 编辑:UC知道 时间:2024/05/08 08:25:32
模块声明部分
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WM_CLOSE = &H10

窗体代码

Private Sub Command1_Click()
Dim hwnd, result As Long
hwnd = FindWindow(vbNullString, "运行")
If hwnd = 0 Then
MsgBox "未找到窗口"
Else
result = PostMessage(hwnd, WM_CLOSE, 0&, 0&)
If result = 0 Then
MsgBox "关闭窗口失败"
Else
MsgBox "关闭OK"
End If
End If

End Sub
主要是findwindows 后面为什么要跟vbNullString
还有就是PostMessage是什么意思 后面跟的0&, 0& 是什么意思 他们有什么用

务必详解 请高手不吝赐教 谢谢了

FindWindow (要找的窗口的类,要找的窗口的标题)

0&=vbNullString,这里的0&就表示忽略类名...

PostMessage函数:将一个消息放到与指定窗口创建的线程相关的消息队列中,不等线程处理消息就返回。

你这段代码的意思是寻找当前"运行"窗口是否已打开,如果打开了就关闭.

WM_CLOSE是关闭窗口的意思!

那些都是函数带的 参数
输入参数函数才能调用