做一個快捷顯示面板,如何添加新頁面?

mmmmyuitian

如圖所示 ,想新增一個按鈕 就會在另外一頁可以顯示其他的內容了

mmmmyuitian

下面一張圖片就有2欄 1欄是layer 1欄是tools

vivienluo

在FORM中使用TABSET

TABSET "tab"
OPTIONS tabsetDispatch
FLOC 2 1
FSIZE 37 26
        
TAB "AAAAA"
        
ENDTAB
        
TAB "BBBBB"
......
ENDTAB
        
ENDTABSET

mmmmyuitian

        fprintf(myform "#Created by xml2bnf  perl 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 怎麼把您的語句加進去

mmmmyuitian

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")  

這樣不行呢  請問有什麼問題?

mmmmyuitian

E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") - nil

vivienluo

mmmmyuitian 发表于 2014-4-23 13:13
E- *Error* axlFormDisplay: argument #1 should be any user-defined (other) type (type template = "o") ...

应该是你的form文件格式有误，请仔细检查一下。

vivienluo

mmmmyuitian 发表于 2014-4-23 11:59
fprintf(myform "TABSET \"tab\"\n")
                fprintf(myform "OPTIONS tabsetDispatch\n")
     ...

给你写个示例：

1. FILE_TYPE = FORM_DEFN VERSION=2
   
2. FORM
   
3. FIXED
   
4. PORT 40 28
   
5. HEADER "Tab Target Test"
   
6. TILE
   
7. 
   
8. TABSET "tab"
   
9. OPTIONS tabsetDispatch
   
10. FLOC 2 1
    
11. FSIZE 37 10
    
12. TAB "Layer"
    
13. TEXT "这是TAB 1标签测试信息。
    
14. TLOC 5 1
    
15. ENDTEXT
    
16. 
    
17. FIELD Item1
    
18. FLOC 5 4
    
19. CHECKLIST "Item1"
    
20. ENDFIELD
    
21. ENDTAB
    
22. 
    
23. TAB "Tools"
    
24. TEXT "这是TAB 2标签测试信息。
    
25. TLOC 5 1
    
26. ENDTEXT
    
27. 
    
28. FIELD Item2
    
29. FLOC 5 4
    
30. CHECKLIST "Item2"
    
31. ENDFIELD
    
32. ENDTAB
    
33. 
    
34. ENDTABSET
    
35. ENDTILE
    
36. ENDFORM
    

复制代码

mmmmyuitian

procedure(Display()
        let((Displayfile myform)
                Displayfile = axlTempFile()
                myform = outfile(Displayfile "w")
                fprintf(myform "#Created by xml2bnf  perl 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 應該可以用您的這個,目前最好是一起

mmmmyuitian

謝謝 用你之前的一個 改編,把我想要的東西添加進去就可以 ,謝謝了