如何用"Tree"实现函数控制

原地踏步 · 发表于 2013-11-25 22:52:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

以OpenDCL样例中的"Tree"为例。我想让 First Parent 中的 Child 1 对应函数 fun1，Child 2 对应函数 fun2。单击 Child 1，右下列表中显示有 Onclicked（不管其他内容）。用dcl_Tree_GetSelectedItem 及dcl_Tree_GetItemLabel可以得到 Child 1，这样我就知道该执行fun1了。再单击 Child 2，显示 Onclicked 及 OnSelChanged (Child 2)，结果就会同时得到Child 1 和 Child 2。而我肯定只想执行 fun2，不想执行fun1。
请问：应该如何排除掉 child 1 呢？

XDSoft · 发表于 2013-11-25 23:49:45

(dcl_Tree_GetSelectedItem XDOB_ONLINE_EDIT_Form1_树1)
This method returns the handle or string key of the currently selected item, or NIL if there is no selection

你获得当前选择的项，然后做你想做的。

原地踏步 · 发表于 2013-11-26 19:30:33

本帖最后由原地踏步于 2013-11-26 19:43 编辑

不行啊，老大！
我就是用这种方法的。但当我点Child 1时，返回Child 1，再点Child 2，返回的仍然是Child 1！只有再点Child 2时，才能得到 Child 2。我希望的是第一次点 Child 2，就马上能够得到。
下面是我修改后的Tree函数。只留了Onclicked 和 OnSelchanged。Odcl 文件中也只留这项，其它无关的都关掉了。麻烦老大再帮我看看。
谢谢！

原地踏步 · 发表于 2013-11-26 19:31:28

本帖最后由原地踏步于 2013-11-27 20:16 编辑

;;;
;;; Tree Sample
;;;
;;; This sample demonstrates the tree control and all its events.
;;;
;; Main program
(defun c:Tree (/ cmdecho)
;; Ensure OpenDCL Runtime is (quietly) loaded
(setq cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "_OPENDCL")
(setvar "CMDECHO" cmdecho)
;; Load the project
(dcl_Project_Load (*ODCL:Samples:FindFile "Tree.odcl") T)
;; Show the main form
(dcl_Form_Show Tree_Main)
;; This is a modal form, so (dcl_Form_Show) does not return until
;; the modal form is closed. In the meantime, the event handlers
;; manage the form.
(princ)
)
(defun c:Tree_Main_OnInitialize (/ P1 P2)
(setq P1 (dcl_Tree_AddParent Tree_Main_tree "First Parent" 0 -1 1))
(dcl_Tree_AddChild Tree_Main_tree
(list
(list P1 "Child 1" 2 3)
(list P1 "Child 2" 2 3)
(list P1 "Child 3" 2 3)
)
)
(setq P2 (dcl_Tree_AddParent Tree_Main_tree "Second Parent" 0 -1 8))
(dcl_Tree_AddChild Tree_Main_tree
(list
(list P2 "Child C" 4 5)
(list P2 "Child B" 4 5)
(list P2 "Child A" 4 5)
)
)
(dcl_Tree_AddParent Tree_Main_tree
'( ("Third Parent" 0 -1 1)
("Fourth Parent" 0 -1 1)
)
)
(dcl_Tree_SelectItem Tree_Main_tree P1)
(dcl_ListBox_Clear Tree_Main_lbxLog)
)
(defun Tree_LogEvent (event)
(dcl_ListBox_SetTopIndex Tree_Main_lbxLog (1- (dcl_ListBox_AddString Tree_Main_lbxLog event)))
)
;|<<OpenDCL Event Handlers>>|;
(defun c:Tree_Main_Tree_OnClicked (/)
(setq cursel (dcl_Tree_GetSelectedItem Tree_Main_tree))
(setq txt (strcat "OnClicked " (dcl_Tree_GetItemLabel Tree_Main_tree CurSel)))
; (Tree_LogEvent "OnClicked")
(Tree_LogEvent txt)
)
(defun c:Tree_Main_Tree_OnSelChanged (Label Key / Images)
(Tree_LogEvent (strcat "OnSelChanged (" Label ")"))
(if (Tree_IsTracking)
(progn
(dcl_Control_SetText Tree_Main_tbxLabel Label)
(setq Images (dcl_Tree_GetItemImages Tree_Main_tree Key))
(dcl_ImageComboBox_SetCurSel Tree_Main_cbxImage (1+ (car Images)))
(dcl_ImageComboBox_SetCurSel Tree_Main_cbxSelImage (1+ (cadr Images)))
(dcl_ImageComboBox_SetCurSel Tree_Main_cbxExpImage (1+ (caddr Images)))
)
)
)
(princ)
;|<<OpenDCL Samples Epilog>>|;
;;;######################################################################
;;;######################################################################
;;; The following section of code is designed to locate OpenDCL Studio
;;; sample files in the samples folder by prefixing the filename with
;;; the path prefix that was saved in the registry by the installer.
;;; The global *ODCL:Prefix and function *ODCL:Samples:FindFile
;;; are used throughout the samples.
;;;
(or *ODCL:Samples:FindFile
(defun *ODCL:Samples:FindFile (file)
(setq *ODCL:Prefix
(cond
( *ODCL:Prefix
) ;_ already defined
( (vl-registry-read
"HKEY_CURRENT_USER\\SOFTWARE\\OpenDCL"
"SamplesFolder"
)
) ;_ 32-bit location
( (vl-registry-read
"HKEY_LOCAL_MACHINE\\SOFTWARE\\OpenDCL"
"SamplesFolder"
)
) ;_ 32-bit location
( (vl-registry-read
"HKEY_CURRENT_USER\\SOFTWARE\\Wow6432Node\\OpenDCL"
"SamplesFolder"
)
) ;_ 64-bit location
( (vl-registry-read
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\OpenDCL"
"SamplesFolder"
)
) ;_ 64-bit location
)
)
(cond
((findfile file)) ; check the support path first
(*ODCL:Prefix (findfile (strcat *ODCL:Prefix file)))
(file)
)
)
)
;; If master demo is active, run the main function immediately; otherwise
;; display a banner. The extra gymnastics allow the sample name to be
;; specified in only one place, thus making it easier to reuse this code.
( (lambda (demoname)
(if *ODCL:MasterDemo
(progn
(princ (strcat "'" demoname "\n"))
(apply (read (strcat "C:" demoname)) nil)
)
(progn
(princ (strcat "\n" demoname " OpenDCL sample loaded"))
(princ (strcat " (Enter " (strcase demoname) " command to run)\n"))
)
)
)
"Tree"
)
(princ)
;;;######################################################################

;;; 
;;; Tree Sample 
;;; 
;;; This sample demonstrates the tree control and all its events. 
;;; 
 
;; Main program 
(defun c:Tree (/ cmdecho) 
 
        ;; Ensure OpenDCL Runtime is (quietly) loaded 
        (setq cmdecho (getvar "CMDECHO")) 
        (setvar "CMDECHO" 0) 
        (command "_OPENDCL") 
        (setvar "CMDECHO" cmdecho) 
 
        ;; Load the project 
        (dcl_Project_Load (*ODCL:Samples:FindFile "Tree.odcl") T) 
 
        ;; Show the main form 
        (dcl_Form_Show Tree_Main) 
 
        ;; This is a modal form, so (dcl_Form_Show) does not return until 
        ;; the modal form is closed. In the meantime, the event handlers 
        ;; manage the form. 
 
        (princ) 
) 
 
(defun c:Tree_Main_OnInitialize (/ P1 P2) 
 (setq P1 (dcl_Tree_AddParent Tree_Main_tree "First Parent" 0 -1 1)) 
 (dcl_Tree_AddChild Tree_Main_tree 
  (list 
   (list P1 "Child 1" 2 3) 
   (list P1 "Child 2" 2 3) 
   (list P1 "Child 3" 2 3) 
  ) 
 ) 
 (setq P2 (dcl_Tree_AddParent Tree_Main_tree "Second Parent" 0 -1 8)) 
 (dcl_Tree_AddChild Tree_Main_tree 
  (list 
   (list P2 "Child C" 4 5) 
   (list P2 "Child B" 4 5) 
   (list P2 "Child A" 4 5) 
  ) 
 ) 
 (dcl_Tree_AddParent Tree_Main_tree 
  '( ("Third Parent" 0 -1 1) 
   ("Fourth Parent" 0 -1 1) 
  ) 
 ) 
 (dcl_Tree_SelectItem Tree_Main_tree P1) 
 (dcl_ListBox_Clear Tree_Main_lbxLog) 
) 
 
(defun Tree_LogEvent (event) 
  (dcl_ListBox_SetTopIndex Tree_Main_lbxLog (1- (dcl_ListBox_AddString Tree_Main_lbxLog event))) 
) 
 
;|<<OpenDCL Event Handlers>>|; 
 
 
(defun c:Tree_Main_Tree_OnClicked (/) 
 
        (setq cursel (dcl_Tree_GetSelectedItem Tree_Main_tree)) 
        (setq txt  (strcat "OnClicked   " (dcl_Tree_GetItemLabel Tree_Main_tree CurSel))) 
;        (Tree_LogEvent "OnClicked") 
        (Tree_LogEvent txt) 
) 
 
 
(defun c:Tree_Main_Tree_OnSelChanged (Label Key / Images) 
 
        (Tree_LogEvent (strcat "OnSelChanged (" Label ")")) 
        (if (Tree_IsTracking) 
                (progn 
                        (dcl_Control_SetText Tree_Main_tbxLabel Label) 
                        (setq Images (dcl_Tree_GetItemImages Tree_Main_tree Key)) 
                        (dcl_ImageComboBox_SetCurSel Tree_Main_cbxImage (1+ (car Images))) 
                        (dcl_ImageComboBox_SetCurSel Tree_Main_cbxSelImage (1+ (cadr Images))) 
                        (dcl_ImageComboBox_SetCurSel Tree_Main_cbxExpImage (1+ (caddr Images))) 
                ) 
        ) 
) 
 
 
(princ) 
 
;|<<OpenDCL Samples Epilog>>|; 
 
;;;###################################################################### 
;;;###################################################################### 
;;; The following section of code is designed to locate OpenDCL Studio 
;;; sample files in the samples folder by prefixing the filename with 
;;; the path prefix that was saved in the registry by the installer. 
;;; The global *ODCL:Prefix and function *ODCL:Samples:FindFile 
;;; are used throughout the samples. 
;;; 
(or *ODCL:Samples:FindFile 
        (defun *ODCL:Samples:FindFile (file) 
                (setq *ODCL:Prefix 
                        (cond 
                                (        *ODCL:Prefix 
                                ) ;_ already defined 
                                (        (vl-registry-read 
                                                 "HKEY_CURRENT_USER\\SOFTWARE\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 32-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_LOCAL_MACHINE\\SOFTWARE\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 32-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_CURRENT_USER\\SOFTWARE\\Wow6432Node\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 64-bit location 
                                (        (vl-registry-read 
                                                 "HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node\\OpenDCL" 
                                                 "SamplesFolder" 
                                        ) 
                                ) ;_ 64-bit location 
                        ) 
                ) 
                (cond 
                        ((findfile file)) ; check the support path first 
                        (*ODCL:Prefix (findfile (strcat *ODCL:Prefix file))) 
                        (file) 
                ) 
        ) 
) 
 
;; If master demo is active, run the main function immediately; otherwise 
;; display a banner. The extra gymnastics allow the sample name to be 
;; specified in only one place, thus making it easier to reuse this code. 
(        (lambda (demoname) 
                (if *ODCL:MasterDemo 
                        (progn 
                                (princ (strcat "'" demoname "\n")) 
                                (apply (read (strcat "C:" demoname)) nil) 
                        ) 
                        (progn 
                                (princ (strcat "\n" demoname " OpenDCL sample loaded")) 
                                (princ (strcat " (Enter " (strcase demoname) " command to run)\n")) 
                        ) 
                ) 
        ) 
        "Tree" 
) 
(princ) 
 
;;;######################################################################

wxytiger · 发表于 2013-11-26 22:20:29

原地踏步发表于 2013-11-26 19:30
不行啊，老大！
我就是用这种方法的。但当我点Child 1时，返回Child 1，再点Child 2，返回的仍然是Child 1 ...

没太细看，貌似onClick事件和onSelChanged事件，只用一个onSelChanged判断就可以了，为什么要用两个呢？重复了吧。

原地踏步 · 发表于 2013-11-26 22:52:22

wxytiger 发表于 2013-11-26 22:20
没太细看，貌似onClick事件和onSelChanged事件，只用一个onSelChanged判断就可以了，为什么要用两个呢？ ...

如果我点了一下 Child 1，下次又点 Child 1 呢？

Lispboy · 发表于 2013-11-26 23:18:19

原地踏步发表于 2013-11-26 22:52
如果我点了一下 Child 1，下次又点 Child 1 呢？

你设个全局变量啊，没变就是原来的啊。onChange后，再赋新值。

原地踏步 · 发表于 2013-11-26 23:37:36

wxytiger 发表于 2013-11-26 22:20
没太细看，貌似onClick事件和onSelChanged事件，只用一个onSelChanged判断就可以了，为什么要用两个呢？ ...

如果我点了一下 Child 1，下次又点 Child 1 呢？

newer · 发表于 2013-11-27 00:08:22

原地踏步发表于 2013-11-26 23:37
如果我点了一下 Child 1，下次又点 Child 1 呢？

根据你的需要做你的事情呗，判断 onchange 是否变化了，onclick是否点了，getcuritem 获得当前的选项。

原地踏步 · 发表于 2013-11-27 20:40:21

本帖最后由原地踏步于 2013-11-27 20:44 编辑

Onclicked 和 Onselchanged 都是自动执行的，我只能将我的程序嵌入它们之中。在执行Onselchanged之前，Onclicked已经执行了，没法判断呀！
我也试着设置了一个 flg，用函数func 来判断到底该执行哪个程序。在 Onclicked 中加入
(if (null flg) (func)) (setq flg nil)
在 Onselchanged 中加入
(func) (setq flg T)
结果是：先点Child 1，再点 child 2，没问题；再点 child 2，没反应；再点 child 2，正确。
也就是说，中间会停一次。从程序分析来讲，也应该是这样的结果。
但这明显不是我想要的呀。我希望点哪一个，就立即得到唯一的结果。

wxytiger · 发表于 2013-11-28 23:34:12

你是想用tree控件做菜单吧，只用onclick判断呢。

newer · 发表于 2013-11-28 23:53:03

原地踏步发表于 2013-11-27 20:40
Onclicked 和 Onselchanged 都是自动执行的，我只能将我的程序嵌入它们之中。在执行Onselchanged之前，Oncl ...

你只在一个事件里面执行你的操作，比如OnClick，发生change的时候，你代码去执行onClick的回调事件，都在一个onClick里面判断。或者反过来。

原地踏步 · 发表于 2013-12-1 00:12:51

只用onselchanged肯定不行，因为有可能多次执行同一个命令。只用onclicked，如果改变选择，它的反应总要慢一拍，还是不行。
我把文件传上来，麻烦能帮我看看吗？
先谢啦！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Tree.rar
下载次数:12 文件大小:6.3 KB
下载权限: 不限以上 [免费赚D豆]

newer · 发表于 2013-12-1 00:20:42

原地踏步发表于 2013-12-1 00:12
只用onselchanged肯定不行，因为有可能多次执行同一个命令。只用onclicked，如果改变选择，它的反应总要慢 ...

你在OnChange的时候，直接执行你的函数不行吗？

原地踏步 · 发表于 2013-12-1 21:03:52

不管是onclicked还是onselchanged，都应该执行函数。
比如：child1对应函数func1，child2对应函数func2。先点child1，执行func1；再点child2，希望执行func2，但实际上是先再执行一次func1，然后执行func2。

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

[求助] 如何用"Tree"实现函数控制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评