EDA365电子工程师网

标题: 如何在已有的窗口Form中点击一个按钮再弹出一个窗口？ [打印本页]
作者: GSO_library    时间: 2015-2-27 22:20
标题: 如何在已有的窗口Form中点击一个按钮再弹出一个窗口？
如何在已有的窗口Form中点击一个按钮再弹出一个窗口？楼主新手 ，请大神指点
作者: XYX365    时间: 2015-2-28 08:50
本帖最后由 XYX365 于 2015-2-28 09:47 编辑

請你試試看代碼

  1. axlCmdRegister("demo" 'fnDemoMain ?cmdType "general")
  2. defun(fnDemoMain ()
  3. form = fnDemoBuildForm()
  4. axlFormDisplay(form)
  5. )
  6. defun(fnDemoBuildForm ()
  7. tFormFile = axlTempFile()
  8. pForm = outfile(tFormFile)
  9. fprintf(pForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
  10. fprintf(pForm "FORM\n")
  11. fprintf(pForm "FIXED\n")
  12. fprintf(pForm "PORT 40 10\n")
  13. fprintf(pForm "HEADER \"Demo form\"\n\n")
  14. fprintf(pForm "TILE\n")

  16. fprintf(pForm "FIELD NextForm\n")
  17. fprintf(pForm "FLOC 2 5\n")
  18. fprintf(pForm "MENUBUTTON \"Next Form\" 8 5\n")
  19. fprintf(pForm "ENDFIELD\n")

  21. fprintf(pForm "FIELD Exit\n")
  22. fprintf(pForm "FLOC 15 5\n")
  23. fprintf(pForm "MENUBUTTON \"Exit\" 8 5\n")
  24. fprintf(pForm "ENDFIELD\n")

  26. fprintf(pForm "ENDTILE\n")
  27. fprintf(pForm "ENDFORM\n")
  28. close(pForm)
  29. form = axlFormCreate('rDemoForm tFormFile '(E CANVAS MSGLINES 1) 'fnDemoCallback t)
  30. form
  31. )

  33. defun(fnDemoCallback (from)
  34. case(form->curField
  35. ("NextForm"
  36. form1 = fnDemo1BuildForm()
  37. axlFormDisplay(form1)
  38. )
  39. ("Exit"
  40. axlFormClose(from)
  41. )
  42. )
  43. )

  45. defun(fnDemo1BuildForm ()
  46. tFormFile = axlTempFile()
  47. pForm = outfile(tFormFile)
  48. fprintf(pForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
  49. fprintf(pForm "FORM\n")
  50. fprintf(pForm "FIXED\n")
  51. fprintf(pForm "PORT 40 10\n")
  52. fprintf(pForm "HEADER \"Next Demo form\"\n\n")
  53. fprintf(pForm "TILE\n")

  55. fprintf(pForm "FIELD Exit\n")
  56. fprintf(pForm "FLOC 2 10\n")
  57. fprintf(pForm "MENUBUTTON \"Exit\" 5 5\n")
  58. fprintf(pForm "ENDFIELD\n")

  60. fprintf(pForm "ENDTILE\n")
  61. fprintf(pForm "ENDFORM\n")
  62. close(pForm)
  63. form1 = axlFormCreate('rDemo1Form tFormFile '(E CANVAS MSGLINES 1) 'fnDemo1Callback t)
  64. form1
  65. )

  67. defun(fnDemo1Callback (from1)
  68. case(form1->curField
  69. ("Exit"
  70. axlFormClose(from1)
  71. )
  72. )
  73. )
复制代码

作者: vivienluo    时间: 2015-3-2 23:00
不懂的人飘过。。。



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