|
|
- procedure(fnTestBuildForm()
- let(()
- drain()
- tTFormFile = axlTempFile()
- pTForm = outfile(tTFormFile)
- fprintf(pTForm "FILE_TYPE=FORM_DEFN VERSION=2\n")
- fprintf(pTForm "FORM\n")
- fprintf(pTForm "FIXED\n")
- fprintf(pTForm "PORT 28 12\n")
- fprintf(pTForm "\tHEADER \"Test\"\n")
- fprintf(pTForm "TILE\n")
- fprintf(pTForm "FIELD gotoEDA365\n")
- fprintf(pTForm "FLOC 2 4\n")
- fprintf(pTForm "MENUBUTTON \" \263X\260\335 EDA365 \272\364\257\270 \" 12 4\n") ;中文字碼為繁體字,必須自行改為簡體字
- fprintf(pTForm "ENDFIELD\n")
- fprintf(pTForm "ENDTILE\n")
- fprintf(pTForm "ENDFORM\n")
- close(pTForm)
- form = axlFormCreate(gensym() tTFormFile '(e Inner) 'fnTestCallBack t)
- axlTempFileRemove(tTFormFile)
- axlFormDisplay(form)
- )
- )
- procedure(fnTestCallBack(form)
- case(form->curField
- ("gotoEDA365"
- axlHttp("https://www.eda365.com")
- )
- )
- )
-
- fnTestBuildForm()
-
复制代码 以上範例給你參考,而中文碼為繁體字,如果你的作業系統是簡體的話,必須自行改為簡體碼
如圖
|
|