做一個快捷顯示面板,如何添加新頁面?
如圖所示 ,想新增一個按鈕 就會在另外一頁可以顯示其他的內容了下面一張圖片就有2欄 1欄是layer 1欄是tools 在FORM中使用TABSET
TABSET "tab"
OPTIONS tabsetDispatch
FLOC 2 1
FSIZE 37 26
TAB "AAAAA"
ENDTAB
TAB "BBBBB"
......
ENDTAB
ENDTABSET fprintf(myform "#Created by xml2bnfperl utility\n")
fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM AUTOGREYTEXT\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 37 20\n")
fprintf(myform "HEADER \"SYLAR tools\"\n\n")
fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(myform "TILE\n\n")
是用這種類型做的form 怎麼把您的語句加進去 fprintf(myform "TABSET \"tab\"\n")
fprintf(myform "OPTIONS tabsetDispatch\n")
fprintf(myform "FLOC 2 1\n")
fprintf(myform "FSIZE 37 26\n")
fprintf(myform "TAB \"AAAAA\"\n")
...
fprintf(myform "ENDTAB\n")
fprintf(myform "TAB \"bbb\"\n")
...
fprintf(myform "ENDTAB\n")
fprintf(myform "ENDTABSET\n")
這樣不行呢請問有什麼問題? E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") - nil mmmmyuitian 发表于 2014-4-23 13:13 static/image/common/back.gif
E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") ...
应该是你的form文件格式有误，请仔细检查一下。 mmmmyuitian 发表于 2014-4-23 11:59 static/image/common/back.gif
fprintf(myform "TABSET \"tab\"\n")
fprintf(myform "OPTIONS tabsetDispatch\n")
...
给你写个示例：
FILE_TYPE = FORM_DEFN VERSION=2
FORM
FIXED
PORT 40 28
HEADER "Tab Target Test"
TILE
TABSET "tab"
OPTIONS tabsetDispatch
FLOC 2 1
FSIZE 37 10
TAB "Layer"
TEXT "这是TAB 1标签测试信息。
TLOC 5 1
ENDTEXT
FIELD Item1
FLOC 5 4
CHECKLIST "Item1"
ENDFIELD
ENDTAB
TAB "Tools"
TEXT "这是TAB 2标签测试信息。
TLOC 5 1
ENDTEXT
FIELD Item2
FLOC 5 4
CHECKLIST "Item2"
ENDFIELD
ENDTAB
ENDTABSET
ENDTILE
ENDFORM
procedure(Display()
let((Displayfile myform)
Displayfile = axlTempFile()
myform = outfile(Displayfile "w")
fprintf(myform "#Created by xml2bnfperl utility\n")
fprintf(myform "#Coded by Venkata Ramanan/Santa Clara, CA\n\n")
fprintf(myform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(myform "FORM AUTOGREYTEXT\n")
fprintf(myform "FIXED\n")
fprintf(myform "PORT 37 20\n")
fprintf(myform "HEADER \"SYLAR tools\"\n\n")
fprintf(myform "POPUP <ENUM>\"ITEM1\"\"0\",\"ITEM2\"\"1\",\"ITEM3\"\"2\",\"LAST ONE\"\"3\".\n\n")
fprintf(myform "TILE\n\n")
;------------------------------;
; Set the General Group ;
;------------------------------;
fprintf(myform "GROUP \"General\"\n")
fprintf(myform "GLOC 1 1\n")
fprintf(myform "GSIZE 35 12\n")
fprintf(myform "ENDGROUP\n")
;------------------------------;
; Set the ON-OFF Group ;
;------------------------------;
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD ALLON\n")
fprintf(myform "FLOC 1 3\n")
fprintf(myform "MENUBUTTON \"ON\" 3 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n\n")
fprintf(myform "## Button Field in FORM ## \n")
fprintf(myform "FIELD ALLOFF\n")
fprintf(myform "FLOC 7 3\n")
fprintf(myform "MENUBUTTON \"OFF\" 3 3\n")
fprintf(myform "FGROUP \"PBTop\"\n")
fprintf(myform "ENDFIELD \n")
fprintf(myform "ENDFORM\n\n")
close(myform)
myform = axlFormCreate(gensym() Displayfile '("NE" "msglines" 0) 'DisplayAction t nil)
axlFormDisplay(myform)
axlFormSetField(myform "sub_menuclass" 1)
when(isFile(Displayfile)
deleteFile(Displayfile)
)
)
)
procedure(DisplayAction(myform)
let(n( )
case(myform->curField
("ALLOFF"
axlVisibleDesign(nil)
axlVisibleUpdate(nil)
;Button Field
;Enter Action Here
)
("ALLON"
axlVisibleDesign(t)
axlVisibleUpdate(t)
;Button Field
;Enter Action Here
)我實在 不知道怎麼弄了 ,如果能加載單獨加載form 應該可以用您的這個,目前最好是一起 謝謝 用你之前的一個 改編,把我想要的東西添加進去就可以 ,謝謝了
页:
[1]
2