EDA365电子工程师网

标题: 请教：自动关闭FORM窗口要怎么做！ [打印本页]
作者: 长天落彩霞    时间: 2014-1-21 10:08
标题: 请教：自动关闭FORM窗口要怎么做！
运行一个FORM后，当当前的命令改变（如突然运行了“ADD CONNET”命令），我希望当命令改变时就会自动关闭当前的FORM窗口。这个功能要怎么做？
作者: 长天落彩霞    时间: 2014-2-22 13:46
顶起，求解决方法的啊。
作者: deargds    时间: 2014-2-22 17:14
长天落彩霞 发表于 2014-2-22 13:46
顶起，求解决方法的啊。

写了个示例，仅供参考
  1. defun( test ()
  2. prog((_File p _Form)

  4.         _File = axlTempFile()
  5.         p = outfile(_File "w")
  6.         fprintf(p "FILE_TYPE=FORM_DEFN VERSION=2\n")
  7.         fprintf(p "FORM AUTOGREYTEXT\n")
  8.         fprintf(p "FIXED\n")
  9.         fprintf(p "PORT 32 10\n")
  10.         fprintf(p "HEADER \"EDA365 Skill\"\n")
  11.         fprintf(p "TILE\n")

  13.         fprintf(p "TEXT \"EDA365 Skill\"\n")
  14.         fprintf(p "TLOC 1 0\n")
  15.         fprintf(p "OPTIONS UNDERLINE BOLD\n")
  16.         fprintf(p "ENDTEXT\n")
  17.         
  18.         fprintf(p "FIELD close\n")
  19.         fprintf(p "FLOC 1 20\n")
  20.         fprintf(p "MENUBUTTON Cancel 9 3\n")
  21.         fprintf(p "ENDFIELD\n")
  22.         
  23.         fprintf(p "ENDTILE\n")
  24.         fprintf(p "ENDFORM\n")
  25.         close(p)
  26.         
  27.         _Form = axlFormCreate(gensym("nil") _File nil nil t)
  28.         axlFormDisplay(_Form)
  29.         
  30.         while(axlSelect()
  31.                 t
  32.         )

  34.         axlFormClose(_Form)
  35. )
  36. )
复制代码
作者: XYX365    时间: 2014-2-24 11:17
长天落彩霞 发表于 2014-2-22 13:46
顶起，求解决方法的啊。

上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")
作者: 长天落彩霞    时间: 2014-2-26 15:08
deargds 发表于 2014-2-22 17:14
写了个示例，仅供参考

试了一下，可以实现这个功能，万分感谢版主
作者: 长天落彩霞    时间: 2014-2-26 15:09
XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

谢谢啊。貌似这个参数增加进去后，会让之前打开的窗口自动关闭掉。
作者: 长天落彩霞    时间: 2014-2-28 12:19
XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

大师能不能中文说明一下axlCmdRegister函数后面几个参数的意思啊！



欢迎光临 EDA365电子工程师网 (http://bbs.elecnest.cn/) Powered by Discuz! X3.2