|
|
|
|
发表人：ifixonline |
发表时间：2009/11/19 9:39:00 |
|
 发表新论题
|
| 本栏论题： |
怎样使用 VBA Script 关闭 iFIX [6840] |
提示： 使用 WINDOWS API 关闭 iFIX
注意事项：使用 iFIX的版本不同，使用的程序命令也不一样。
示例：
iFIX 中使用下列 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 使用下列 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)
杭州集益科技有限公司是美国通用电气GE Fanuc公司中国地区指定分销商,特价销售9030、9070、PAC RX3i、PAC RX7i、Versamax系列PLC，特价销售Proficy iFIX组态软件。
联系人:胡先生
联系电话：15067103350
传真号码:0571-88227248
QQ号码:283479963
公司地址：杭州市西湖区文三路555号9层
公司网址：http://www.jiyitech.com/
http://www.ifixonline.com/
|
|
 相关博客新闻： |
|
| 相关技术论坛： |
|
|
