FORM自动创建工具

kevin890505

一般skill大家都把form整合在il里面，但是自己写FORM的时候由于位置，尺寸等原因往往要测试无数次才能达到想要的效果，这个过程不知道大家感觉如何，反正我觉得好像盲人摸象一样，头大的很，今天偶然看到别的论坛有人发的这个工具，NBXX，很直观
而且转换完成后直接生产il文件，里面包含主函数以及form函数和form-action函数，很方便，人性化，对于创建一些复杂form应该有帮助

使用方法也比较简单：
1，先用koda软件手动绘制好你要的FORM，然后保存为KXF文件
2，再用xml2bnf把刚才的KXF转化为il文件
3，自己修改下里面的函数或者参数名，OK，接下来就自由发挥了
帅气的很
附上地址：
KODA:http://koda.darkhost.ru/page.php?id=download
XML2BNF:https://github.com/xml2bnf/xml2bnf

由于第二个网址貌似还不是有点卡，5M的东西下了我10分钟，还是把附件传上来好点，顺便一起传了吧

顺便加个例子瞧瞧，这个是用里面的模板界面转换成的form

1. (defun my_form ()
   
2.                         time = getCurrentTime()
   
3.                         time = parseString(time)
   
4.                         day = nth(1 time)
   
5.                         month = car(time)
   
6.                         month = upperCase(month)
   
7.                         year = nth(3 time)
   
8.                         date = strcat(" Date: " day " " month " " year)
   
9.                          CreateForm()
   
10.                         myform=axlFormCreate( (gensym) form_file nil 'Form_Action t)
    
11.                         axlFormDisplay(myform)
    
12.                         axlUIWPrint(myform date)
    
13.                 )
    
14. (defun CreateForm ()
    
15. drain()
    
16. form_file = "TAB_form.form"
    
17. myform = outfile(form_file "w")
    
18. fprintf(myform "#Created by xml2bnf  perl utility\n")
    
19. fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
    
20. fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
21. fprintf(myform "FORM AUTOGREYTEXT\n")
    
22. fprintf(myform "FIXED\n")
    
23. fprintf(myform "PORT 62 33\n")
    
24. fprintf(myform "HEADER \"Form Field Type Demo\"\n\n")
    
25. fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
    
26. fprintf(myform "TILE\n\n")
    
27. fprintf(myform "## TAB Definition Start## \n")
    
28. fprintf(myform "TABSET \"tab\"\n")
    
29. fprintf(myform "OPTIONS tabsetDispatch\n")
    
30. fprintf(myform "FLOC 1 1\n")
    
31. fprintf(myform "FSIZE 57 24\n\n")
    
32. fprintf(myform "TAB \"TabSheet1\"\n\n")
    
33. fprintf(myform "## Text Field in TAB## \n")
    
34. fprintf(myform "TEXT \"Label1\"\n")
    
35. fprintf(myform "FLOC 7 3\n")
    
36. fprintf(myform "TGROUP \"TabSheet1\"\n")
    
37. fprintf(myform "ENDTEXT\n\n")
    
38. fprintf(myform "## Text Field in TAB## \n")
    
39. fprintf(myform "TEXT \"Label1\"\n")
    
40. fprintf(myform "FLOC 7 10\n")
    
41. fprintf(myform "TGROUP \"TabSheet1\"\n")
    
42. fprintf(myform "ENDTEXT\n\n")
    
43. fprintf(myform "ENDTAB\n\n")
    
44. fprintf(myform "TAB \"TabSheet2\"\n\n")
    
45. fprintf(myform "## List Field in TAB## \n")
    
46. fprintf(myform "FIELD List1\n")
    
47. fprintf(myform "FLOC 7 6\n")
    
48. fprintf(myform "LIST \" \" 14 6\n")
    
49. fprintf(myform "FGROUP \"TabSheet2\"\n")
    
50. fprintf(myform "ENDFIELD \n\n")
    
51. fprintf(myform "## List Field in TAB## \n")
    
52. fprintf(myform "FIELD List2\n")
    
53. fprintf(myform "FLOC 30 6\n")
    
54. fprintf(myform "LIST \" \" 15 6\n")
    
55. fprintf(myform "FGROUP \"TabSheet2\"\n")
    
56. fprintf(myform "ENDFIELD \n\n")
    
57. fprintf(myform "## Text Field in TAB## \n")
    
58. fprintf(myform "TEXT \"Label3\"\n")
    
59. fprintf(myform "FLOC 7 4\n")
    
60. fprintf(myform "TGROUP \"TabSheet2\"\n")
    
61. fprintf(myform "ENDTEXT\n\n")
    
62. fprintf(myform "## Text Field in TAB## \n")
    
63. fprintf(myform "TEXT \"Label4\"\n")
    
64. fprintf(myform "FLOC 31 4\n")
    
65. fprintf(myform "TGROUP \"TabSheet2\"\n")
    
66. fprintf(myform "ENDTEXT\n\n")
    
67. fprintf(myform "ENDTAB\n\n")
    
68. fprintf(myform "TAB \"TabSheet3\"\n\n")
    
69. fprintf(myform "ENDTAB\n\n")
    
70. fprintf(myform "ENDTABSET\n\n")
    
71. fprintf(myform "ENDTILE\n\n")
    
72. fprintf(myform "ENDFORM\n\n")
    
73. 
    
74. close(myform)
    
75. )
    
76. 
    
77. 
    
78. (defun Form_Action (myform)
    
79. (let (t1 item index field cnt)(printf "field/value %L = %L (int %L\n)"
    
80. myform->cuRField myform->curValue, myform->curValueInt )
    
81. (printf "doneState %L\n" myform->doneState )
    
82. case(myform->curField
    
83.                 ("List1"
    
84. 
    
85.                 ;List Field
    
86.                 ;Enter Action Here
    
87.                
    
88.                 )
    
89.                 ("List2"
    
90. 
    
91.                 ;List Field
    
92.                 ;Enter Action Here
    
93.                
    
94.                 )
    
95.         )
    
96.                 )
    
97. 
    
98. if((nequal myform->doneState 0)
    
99. axlFormClose(myform))
    
100. )

复制代码

王开鑫55

可以，不错，不能放在中文目录下，我放在桌面上的，不能转换

kkman2000

支持支持支持  非常感謝

GSO_library

这写软件是免费的吗?公司可不可以用

GSO_library

软件需不需要license

recallme

学习了

pallayout

好像不能实现用bmp

liuanty

下载试试感谢楼主分享！

hy20060614

谢谢分享

weiprop

謝謝分享

lovesweet33

感谢楼主分享~

lovesweet33

感谢楼主分享~

mentorkk

感谢楼主分享~

lovesweet33

感谢楼主分享

billgong168

楼主真是好人啊，感谢分享。