等了一上午，怎么没人回呢

helene625

请教！！！！
暂时先5个！万分感谢指点啊！！
1：判断checkbox是否被选中
2：判断某控件是enable=true或者false
3:判断combox下拉框选中的是哪一个值
4：判断dbgrid有几行几列，如何取出某行某列的值
5：lstring="81534391"
　obj_type ("TRzEdit",lstring);       
这样写不行啊，那如何把键盘输入的东西参数化啊？

对了,wr的TSL是什么语言？

[ 本帖最后由 helene625 于 2006-6-30 13:51 编辑 ]

helene625

感谢上面几位仁兄啊，天，我以为像写程序一样简单，直接有这几个属性的，原来还要写function啊，比编程还难

eric.y

5.obj_type可能说明这个控件没有识别
要不用edit_set好一点

eric.y

4.好象比较困难，没有实现过，控件不能识别

eric.y

3.list_get_select...

winterson

问题2：
function Get_ComponentEnable(Win,Comp)
{
        auto result,value;
       
        result=set_window(Win,4);
        if (result==E_OK)
        {
                obj_get_info(Comp,"enabled",value);
                return(value);
        }                       
}

winterson

不好意思，写反了,正确的应该这样
题1:
const Failed=-2,True=1,False=0,Dimmed=2;

function CheckboxState(window, checkbox)
{
    auto value;   
    auto result;
   
              result= set_window(window,4);
              if (result != E_OK)
                  return(Failed);
              button_get_state(checkbox,value);        
              switch (value)
             {
               case 1:
                  return(True);   #选中
              case 0:
                  return(False);  #未选中
              default:
                  return(Dimmed); #无法获取
              }
         }
        
}

winterson

问题1:
const Failed=-2,True=1,False=0,Dimmed=2;

function CheckboxState(window, checkbox)
{
    auto value;   
    auto result;
   
              return(Failed);
              result= set_window(window,4);
              if (result != E_OK)
              {
                     button_get_state(checkbox,value);       
        switch (value)
        {
        case 1:
                return(True);   #选中
        case 0:
                return(False);  #未选中
        default:
                return(Dimmed); #无法获取
        }
         }
       
}

生如火花

看不懂前4个，做测试的表达能力很重要啊，不要想省事
第5个你的写法没问题，就是这样参数化

helene625

怎么没人回啊