选择不同的子功能，下面的标签里会自动提示对应子功能的介绍信息和说明

f4800 · 发表于 2022-4-28 19:27:47

想实现个功能：
选择不同的子功能，下面的标签里会自动提示对应子功能的介绍信息和说明。提示信息能随着子功能菜单的切换自由更新

试了几个方法没实现。。特来请教

多谢各位指导。。

多谢

;;=========
(DEFUN C:CTT (/ DCL_ID DIALOG_RETURN KEY KEYS DCL_FILE )
(setq DCL_ID (LOAD_DIALOG (setq DCL_FILE (DCL_DCL-001))))
(VL-FILE-DELETE DCL_FILE)
(setq DIALOG_RETURN 2)
(while (and (> DIALOG_RETURN 1))
(NEW_DIALOG "Form1" DCL_ID)
(setq KEYS '("Label_1" "Label_2" "Label_3")
)
(FOREACH KEY KEYS
(if (EVAL (READ (STRCAT KEY "_bak")))
(PROGN (SET_TILE KEY (EVAL (READ (STRCAT KEY "_bak")))))
)
(ACTION_TILE KEY "(Action_Form1_Keys $key $value)")
)
(setq DIALOG_RETURN (START_DIALOG))
(if (= DIALOG_RETURN 1)
(PROGN
(if (= Label_1 1)
(PROGN (Label_CT1))
)
(if (= Label_2 1)
(PROGN (Label_CT2))
)
(if (= Label_3 1)
(PROGN (Label_CT3))
)
)
)
)
(UNLOAD_DIALOG DCL_ID)
(PRINC)
)
;;===
(DEFUN GET_FORM1_DATA (/ KEY)
(FOREACH KEY KEYS
(SET (READ (STRCAT KEY "_bak")) (GET_TILE KEY))
)
(DONE_DIALOG 1)
)
(DEFUN ACTION_FORM1_KEYS (KEY VALUE)
(COND ((= KEY "accept")
(GET_FORM1_DATA)
;(GET_SELECT_DATA)
(DONE_DIALOG 1)
)
((= KEY "cancel")
(DONE_DIALOG 0)
(PRINC "\n退出")
)
)
)
;;=======================================================================
(DEFUN ACTION_FORM1_KEYS (KEY VALUE)
(COND ((= KEY "accept")
(GET_FORM1_DATA)
;(GET_SELECT_DATA)
(DONE_DIALOG 1)
)
((= KEY "cancel")
(DONE_DIALOG 0)
(PRINC "\n退出")
)
)
)
;;=======================================================================
(DEFUN GET_SELECT_DATA ()
(DONE_DIALOG 1)
)
;;==================================================================
;;==================================================================
(DEFUN DCL_DCL-001 (/ DCL_FILE FILE STR)
(setq DCL_FILE (VL-FILENAME-MKTEMP nil nil ".Dcl"))
(setq FILE (OPEN DCL_FILE "w"))
(FOREACH STR
'("Form1:dialog"
"{"
" label = "程序标题 ";"
" spacer_1; "
" :boxed_row"
" {"
" label = "功能选择 " ;"
" :radio_button "
" {"
" key = "Label_100" ;"
" label = "功能1" ;"
" value= "1" ;"
" } "
" :radio_button "
" {"
" key = "Label_200" ;"
" label = "功能2" ;"
" value= "0" ;"
" } "
" :radio_button "
" {"
" key = "Label_300" ;"
" label = "功能3" ;"
" value= "0" ;"
" } "
" }"
" :boxed_column"
" {"
" label = "子功能 " ;"
" :radio_column { "
" :radio_button "
" {"
" key = "Label_1" ;"
" label = "标签1" ;"
" value= "0" ;"
" } "
" :radio_button "
" {"
" key = "Label_2" ;"
" label = "标签2" ;"
" value= "0" ;"
" } "
" :radio_button "
" {"
" key = "Label_3" ;"
" label = "标签3" ;"
" value= "1" ;"
" } "
" :radio_button "
" {"
" key = "Label_4" ;"
" label = "标签4" ;"
" value= "0" ;"
" } "
" :radio_button "
" {"
" key = "Label_5" ;"
" label = "标签5" ;"
" value= "0" ;"
" } "
" :radio_button "
" {"
" key = "Label_6" ;"
" label = "标签6" ;"
" value= "0" ;"
" } "
" }"
" }"
" spacer_1; "
" :text"
" {"
" key = "Label_001" ;"
" label = "这里提示当前选择的是功能1的标签6" ;"
" }"
" :text"
" {"
" key = "Label_002" ;"
" label = "这里提示功能1的标签6 的具体提示信息" ;"
" width = 1.5 ;"
" height = 2.0 ;"
" }"
" ok_cancel ;"
" }"
)
(WRITE-LINE STR FILE)
)
(CLOSE FILE)
DCL_FILE
)
;;==================================================================

;;========= 
(DEFUN C:CTT  (/      DCL_ID     DIALOG_RETURN       KEY      KEYS      DCL_FILE     ) 
  (setq DCL_ID (LOAD_DIALOG (setq DCL_FILE (DCL_DCL-001)))) 
  (VL-FILE-DELETE DCL_FILE) 
  (setq DIALOG_RETURN 2) 
  (while (and (> DIALOG_RETURN 1)) 
    (NEW_DIALOG "Form1" DCL_ID) 
    (setq KEYS '("Label_1"   "Label_2"   "Label_3") 
    ) 
    (FOREACH KEY KEYS 
      (if (EVAL (READ (STRCAT KEY "_bak"))) 
        (PROGN (SET_TILE KEY (EVAL (READ (STRCAT KEY "_bak"))))) 
      ) 
      (ACTION_TILE KEY "(Action_Form1_Keys $key $value)") 
    )    
       
    (setq DIALOG_RETURN (START_DIALOG)) 
    (if  (= DIALOG_RETURN 1) 
      (PROGN 
        (if (= Label_1 1) 
          (PROGN (Label_CT1)) 
        )         
        (if (= Label_2 1) 
          (PROGN (Label_CT2)) 
        ) 
        (if (= Label_3 1) 
          (PROGN (Label_CT3)) 
        )         
      ) 
    ) 
  ) 
  (UNLOAD_DIALOG DCL_ID) 
  (PRINC)   
) 
;;=== 
(DEFUN GET_FORM1_DATA (/ KEY) 
  (FOREACH KEY KEYS 
    (SET (READ (STRCAT KEY "_bak")) (GET_TILE KEY)) 
  )   
  (DONE_DIALOG 1)   
) 
(DEFUN ACTION_FORM1_KEYS (KEY VALUE) 
  (COND  ((= KEY "accept") 
          (GET_FORM1_DATA) 
          ;(GET_SELECT_DATA) 
          (DONE_DIALOG 1) 
        ) 
    ((= KEY "cancel") 
      (DONE_DIALOG 0) 
      (PRINC "\n退出") 
    )    
  )   
) 
 
;;======================================================================= 
(DEFUN ACTION_FORM1_KEYS (KEY VALUE) 
  (COND  ((= KEY "accept") 
          (GET_FORM1_DATA) 
          ;(GET_SELECT_DATA) 
          (DONE_DIALOG 1) 
        ) 
    ((= KEY "cancel") 
      (DONE_DIALOG 0) 
      (PRINC "\n退出") 
    )    
  ) 
) 
 
;;======================================================================= 
(DEFUN GET_SELECT_DATA () 
  (DONE_DIALOG 1) 
) 
 
;;================================================================== 
;;================================================================== 
(DEFUN DCL_DCL-001 (/ DCL_FILE FILE STR) 
  (setq DCL_FILE (VL-FILENAME-MKTEMP nil nil ".Dcl")) 
  (setq FILE (OPEN DCL_FILE "w")) 
  (FOREACH STR 
    '("Form1:dialog" 
       "{" 
       " label = "程序标题 ";" 
       "        spacer_1; " 
       "        :boxed_row" 
       "           {" 
       "              label = "功能选择 " ;" 
       "  :radio_button " 
       "                  {" 
       "                    key = "Label_100" ;" 
       "         label = "功能1" ;" 
       "         value= "1" ;" 
       "       } " 
       
       "  :radio_button " 
       "                 {" 
       "                    key = "Label_200" ;" 
       "         label = "功能2" ;" 
       "         value= "0" ;" 
       "       } " 
       "  :radio_button " 
       "                 {" 
       "                    key = "Label_300" ;" 
       "         label = "功能3" ;" 
       "         value= "0" ;" 
       "       } " 
       "          }" 
       
       "        :boxed_column" 
       "           {" 
       "              label = "子功能 " ;" 
       "             :radio_column { " 
         
       "  :radio_button " 
       "                  {" 
       "                    key = "Label_1" ;" 
       "         label = "标签1" ;" 
       "         value= "0" ;" 
       "       } " 
       
       "  :radio_button " 
       "                  {" 
       "                    key = "Label_2" ;" 
       "         label = "标签2" ;" 
       "         value= "0" ;" 
       "       } " 
         
       "  :radio_button " 
       "                 {" 
       "                    key = "Label_3" ;" 
       "         label = "标签3" ;" 
       "         value= "1" ;" 
       "       } " 
       "  :radio_button " 
       "                  {" 
       "                    key = "Label_4" ;" 
       "         label = "标签4" ;" 
       "         value= "0" ;" 
       "       } " 
       
       "  :radio_button " 
       "                 {" 
       "                    key = "Label_5" ;" 
       "         label = "标签5" ;" 
       "         value= "0" ;" 
       "       } "       
       
       "  :radio_button " 
       "                 {" 
       "                    key = "Label_6" ;" 
       "         label = "标签6" ;" 
       "         value= "0" ;" 
       "       } "               
       
       "                 }" 
       "            }" 
       
       
       "        spacer_1; "   
       "             :text"       
       "                {" 
       "                    key = "Label_001" ;" 
       "                    label = "这里提示 当前选择的是功能1的标签6" ;" 
       "                }"         
       
       "             :text"       
       "                {" 
       "                    key = "Label_002" ;" 
       "                    label = "这里提示功能1的标签6 的具体提示信息" ;" 
       "                    width = 1.5 ;" 
       "                    height = 2.0 ;" 
       "                }"         
       
       "     ok_cancel ;" 
       "   }" 
     ) 
    (WRITE-LINE STR FILE) 
  ) 
  (CLOSE FILE) 
  DCL_FILE 
) 
;;==================================================================

账号		自动登录	找回密码
密码			注册

[讨论] 选择不同的子功能，下面的标签里会自动提示对应子功能的介绍信息和说明

本帖子中包含更多资源