DCL如何让编辑框和滑动条互动控制显示

绝情一剑

2. dhk:dialog{  :edit_box{label="数值:";key="jd";value = "0";}
3.                        :slider{ key = "hdt";
4.                                          value = "0";
5.                                          min_value = 0;
6.                                          max_value = 100;
7.                                          small_increment = "1";
8.                                          big_increment = "10";
9.                                          action = "jgjh";
10.                                          width=18;}ok_cancel;
11.                                      } 也就是说滑动条控制编辑框的值，同时编辑框也可以影响滑动条的位置，请各位朋友在这个DCL基础上写处要求的控制函数

dhk:dialog{  :edit_box{label="数值:";key="jd";value = "0";}                        :slider{ key = "hdt";                                          value = "0";                                          min_value = 0;                                          max_value = 100;                                          small_increment = "1";                                          big_increment = "10";                                          action = "jgjh";                                          width=18;}ok_cancel;                                      } 也就是说滑动条控制编辑框的值，同时编辑框也可以影响滑动条的位置，请各位朋友在这个DCL基础上写处要求的控制函数

meflying

如果想在编辑框中写字符或删除的同时动作滑块，光用VLISP加DCL是不行的

绝情一剑

在天正和理正里都有这样的对话框，非常感兴趣，只是不知道用VLISP控制DCL能不能实现

meflying

怎么当我说的话是空气？？？？

绝情一剑

嘻嘻，发完了才看到

无痕

vb很容易做到，用objectdcl也许可以，我没试过

龙龙仔

AUTOLISP很容易的呀!


AUTO_FILLET.VLX看誰把程序解出來!

meflying

楼主的意思应该是在文本框写字符的同时滑块跟着移动，是写一个字符动一次，而不是全部写完后才动作。。。

绝情一剑

不用那么互动就行，当鼠标还在编辑框的时候可以不动，等鼠标激活别的组件时改变就行了，不过移动滑杆的时候文字要跟着变化

meflying

这样就简单了，在编辑框的动作函数里修改滑块的值，在滑块的动作函数里修改编辑框的值就可以了