If there are API declarations in codes, how to do setting in object. What to be set in Business Object Properties on Initiate Page and what to be write in code stage?
May I have your help based on the below codes:
Option Explicit
Private 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
Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_CLOSE = &H10
Private Sub Command1_Click()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString,
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "错误！"
Else
MsgBox "成功关闭WINDOWS窗口！"
End If
Else
MsgBox "WINDOWS窗口没有发现！"
End If
End Sub
------------------------------
Eric Li
Operation Analysis
AIG
Asia/Hong_Kong
------------------------------
