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

原地踏步

如果不用onclicked显然也不行，因为有时可能需要重复执行某一个函数。

newer

原地踏步 发表于 2013-12-1 21:06
如果不用onclicked显然也不行，因为有时可能需要重复执行某一个函数。

因为只有CHANGE事件发生，getselectitem项才有值，开始就CLICK，这个值没有。
你可以在初始化的时候，给selectitem设个初值，比如第0项。没CHANGE，就是0，有CHANGE后，你正常取值就行了。

原地踏步

初始化时设为0，也只能管第一次，运行几次就没用了。
像我在10楼说的设个flg变量，结果还是不对。

newer

原地踏步 发表于 2013-12-3 12:14
初始化时设为0，也只能管第一次，运行几次就没用了。
像我在10楼说的设个flg变量，结果还是不对。

在你运行几次的那些代码中下下功夫，设置一个合适的标记判断。

Gdlprfcu

左键点击应该是发生在选择改变之前，所以没法准确获得所选项，LZ可以试下延时调用函数应该可以，不过话说回来如果你在空白处点击也会获得选择的项呀，不知LZ的想法是做什么用？

原地踏步

就是想做菜单用。点一下，就执行对应程序。看来这想法实现不了。

wxytiger

原地踏步 发表于 2013-12-4 17:02
就是想做菜单用。点一下，就执行对应程序。看来这想法实现不了。

tree控件不适合做这个，换个思路吧。

原地踏步

也只好这样了。
下了个抽屉式菜单的程序，很快就学会了。
再次感谢各位朋友的热心帮助！

77077

试试

2. ;本人是个新手,写出来的代码不规范,仅供参考,请高手们优化下.
   
3. (defun c:TEST_Main_Tree_OnClicked ( / Item Label)
   
4. (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目  
   
5.        Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的 Label   
   
6. )
   
7. (defun c:TEST_Main_Tree_OnSelChanged (Label  Key /)
   
8.      (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label   
   
9. )

;本人是个新手,写出来的代码不规范,仅供参考,请高手们优化下.<br /> (defun c:TEST_Main_Tree_OnClicked ( / Item Label)<br /> (setq Item (dcl_Tree_GetSelectedItem TEST_Main_Tree);获取点击项目  <br />        Label(dcl_Tree_GetItemLabel TEST_Main_Tree Item));获取点击项目的 Label   <br /> )<br /> (defun c:TEST_Main_Tree_OnSelChanged (Label  Key /)<br />      (dcl_Control_SetText TEST_Main_TextBox1 Label);显示点击项目的 Label    <br /> )

zh1023749926

什么看看阿打算