使用 WINDOWS API 關閉 iFIX
注意事項:使用 iFIX的版本不同,使用的程序命令也不一樣。
示例:
iFIX 2.0 中使用下列 VBA 程序代碼:
下列代碼加入按鈕的點擊事件中:
Dim lResult As Long
Dim iResult
Dim hw&, cnt&
hw& = Findwindow(vbNullString, "FIX Dynamics Startup")
cnt& = SendMessage(hw&, &H10, 0, 0&)
下列代碼加入畫面的 VBA申明部分:
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any)
Private Declare Function Findwindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)
*****************************************************************************
在iFIX 2.1 使用下列 VBA代碼:
下列代碼加入按鈕的點擊事件中:
|
Dim lResult As Long
Dim iResult
Dim hw&, cnt&
hw& = Findwindow(vbNullString, "iFIX Startup")
cnt& = SendMessage(hw&, &H10, 0, 0&)
下列代碼加入畫面的 VBA申明部分:
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any)
Private Declare Function Findwindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String)