EDA365电子工程师网

标题: 弹出是窗体，想改嵌入至option [打印本页]
作者: pallayout    时间: 2014-10-30 09:32
标题: 弹出是窗体，想改嵌入至option
这是一下弹出是窗体，想改嵌入至option,哪错了


        ;tb_form = axlFormCreate( (gensym) "txt_block.form" `(ne inner "msglines" 2) `txtblock_Action t nil)
        tb_form = axlMiniStatusLoad( (gensym) "./txt_block.form"  `txtblock_Action t)
出错提示
E- *Error* axlFormSetFieldVisible: too many arguments (3 expected, 4 given) - (form:b25ee10 "./txt_block.form" "area_ref" 0)

作者: pallayout    时间: 2014-10-30 14:00
  1. /*********************************************************/
  2. /*               Title :  in Options                     */
  3. /*     Execute Command :  in_options                     */
  4. /*              Author :  tatarlxw                       */
  5. /*       Creation Date :  2014-10-30                     */
  6. /*              Update :                                 */
  7. /*             Version :  1.0                            */
  8. /*            Web site :  http://hi.baidu.com/tatarlxw   */
  9. /*              E-mail :  tatarlxw@163.com               */
  10. /*********************************************************/

  12. axlCmdRegister("in_options" 'in_options)
  13. defun(in_options ()
  14.   formFileName = "./in_options.form"
  15.   in_options_form_create()
  16.   in_options_form = axlMiniStatusLoad((gensym) formFileName 'in_options_action t)
  17.   ;in_options_form = axlFormCreate( (gensym) formFileName `(ne inner "msglines" 2) `in_options_action t nil)
  18.   axlFormDisplay(in_options_form)
  19.   deleteFile(formFileName)
  20.   axlControlRaise('options)
  21. )

  23. defun(in_options_action (in_options_form)
  24. case(in_options_form->curField
  25.     ("Hello"
  26.            axlUIWPrint(nil strWelcome)
  27. )
  28. )
  29. )

  31. procedure(in_options_form_create()
  32.         lstForm = outfile( formFileName "w")
  33.         fprintf(lstForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
  34.         fprintf(lstForm "FORM\n")
  35.         fprintf(lstForm "FIXED\n")
  36.         fprintf(lstForm "PORT 20 10\n")
  37.         fprintf(lstForm "HEADER \"Change Block\"\n")
  38.         fprintf(lstForm "TILE\n")
  39.        
  40.         fprintf(lstForm "TEXT \"I am here\"\n")
  41.         fprintf(lstForm "FLOC 2 2\n")
  42.         fprintf(lstForm "ENDTEXT\n")
  43.        
  44.         fprintf(lstForm "FIELD Hello\n")
  45.         fprintf(lstForm "FLOC 12 2\n")
  46.         fprintf(lstForm "MENUBUTTON \"Hello\" 5 3\n")
  47.         fprintf(lstForm "ENDFIELD\n")
  48.        
  49.         fprintf(lstForm "ENDTILE\n")
  50.         fprintf(lstForm "ENDFORM\n")
  51.         close(lstForm)
  52. )


  55.        
  56.        
复制代码
本程序为在options嵌入form,哪错呢？
作者: deargds    时间: 2014-10-30 21:14
pallayout 发表于 2014-10-30 14:00
本程序为在options嵌入form,哪错呢？

在axlControlRaise('options) 语句后面添加一行
axlEnterPoint()即可
作者: pallayout    时间: 2014-11-4 07:51
谢了，



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