使用 WINDOWS API 关闭 iFIX

使用 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)