当前位置：工控论坛 > > 产品 > 自动化软件 > GE 数字集团软件

如何只关闭工作台而不关闭iFIX? 点击：1113 | 回复：8



gongkongedit

    
  • 精华：1099帖
  • 求助：0帖
  • 帖子：14392帖 | 54470回
  • 年度积分：0
  • 历史总积分：622
  • 注册：2008年9月08日
发表于：2004-02-19 17:46:00
楼主
如何只关闭工作台而不关闭iFIX?
分享到：
收藏 邀请回答 回复楼主 举报



ywang8

  • 精华：0帖
  • 求助：0帖
  • 帖子：4帖 | 31回
  • 年度积分：0
  • 历史总积分：43
  • 注册：2001年7月20日
发表于：2004-02-18 16:38:00
1楼
在脚本里用"quit"命令
回复 引用 举报

lili_xa

  • 精华：0帖
  • 求助：0帖
  • 帖子：1帖 | 13回
  • 年度积分：0
  • 历史总积分：64
  • 注册：2004年2月12日
发表于：2004-02-19 17:46:00
2楼
我试过了却没有成功，能否说的详细一些？非常感谢！！！
回复 引用 举报

与时惧进

  • 精华：0帖
  • 求助：0帖
  • 帖子：9帖 | 41回
  • 年度积分：0
  • 历史总积分：66
  • 注册：2005年4月29日
发表于：2008-05-23 17:44:18
3楼
SCU里有设置的，选择Start Fix at system boot
回复 引用 举报

control_xia

  • 精华：0帖
  • 求助：0帖
  • 帖子：0帖 | 37回
  • 年度积分：0
  • 历史总积分：119
  • 注册：2006年2月13日
发表于：2008-06-19 10:06:20
4楼
可以参考电子书中搜索“quit”方法！
回复 引用 举报

ckdatong

  • 精华：0帖
  • 求助：0帖
  • 帖子：5帖 | 236回
  • 年度积分：5
  • 历史总积分：533
  • 注册：2008年3月21日
发表于：2008-06-23 09:09:39
5楼
使用Application.Quit 3就可以啦。
回复 引用 举报

zhenying

  • 精华：0帖
  • 求助：0帖
  • 帖子：106帖 | 363回
  • 年度积分：0
  • 历史总积分：2392
  • 注册：2007年9月02日
发表于：2008-07-06 11:24:02
6楼

我原来还以为不可以的呢，现在知道都可以啊

回复 引用 举报

ldldld

  • 精华：0帖
  • 求助：0帖
  • 帖子：132帖 | 725回
  • 年度积分：0
  • 历史总积分：0
  • 注册：1900年1月01日
发表于：2008-07-18 11:25:47
7楼

参照ifix自带的例子程序做的。

定义一个退出按钮，添加脚本

Private Sub EXIT0_Click()
Dim sUserID As String
Dim sUserName As String
Dim sGroupName As String

On Error Resume Next
System.FixGetUserInfo sUserID, sUserName, sGroupName
If sUserName = "GUEST"  Then
Dim lResult As Long
Dim iResult
Dim hw&, cnt&
hw& = FindWindow(vbNullString, "iFix Startup")
If hw& = 0 Then hw& = FindWindow(vbNullString, "iFix Startup - 演示方式")
If hw& <> 0 Then cnt& = SendMessage(hw&, &H10, 0, 0&)
' Form3.Show
Else
MsgBox "对不起，您没有身份,无权访问！", vbOKOnly + vbCritical, "错误信息"
End If
End Sub

回复 引用 举报

club

  • 精华：0帖
  • 求助：0帖
  • 帖子：47帖 | 739回
  • 年度积分：0
  • 历史总积分：0
  • 注册：1900年1月01日
发表于：2008-11-14 14:57:33
8楼
学习中.......................
回复 引用 举报

热门招聘
相关主题

官方公众号
智造工程师