全键盘操作遍历树

今天spy一棵树对象（TVirtualStringTree），发现spy出来的都是一些基本的属性和方法，树本身的属性和方法都没有（原因可能是这个树控件被自定义封装或属于非标准的第三方控件），面对这样的一个对象要展开和遍历，只能通过键盘的上[Up],下[Down],左[Left],右[Right]等箭头去操作了。

创新互联成立十多年来，这条路我们正越走越好，积累了技术与客户资源，形成了良好的口碑。为客户提供成都网站设计、网站制作、网站策划、网页设计、空间域名、网络营销、VI设计、网站改版、漏洞修补等服务。网站是否美观、功能强大、用户体验好、性价比高、打开快等等，这些对于网站建设都非常重要，创新互联通过对建站技术性的掌握、对创意设计的研究为客户提供一站式互联网解决方案，携手广大客户，共同发展进步。

思路：将树的层次和节点序号，组合成一个字符串，中间用“-”分割，例如：“6-2-1”，表示第1层的第6个节点展开后，进入第2层的第2个节点展开后，再进入第3层的第1个节点……定义个数组存放split后的节点数（顺序代表层次），然后就用getNumString函数去生成对应数量的操作键就行了。

 

js代码：

//Description   : goto and expand the specified node
//Parameter     : [IN]objTree -- the object Tree
//Parameter     : [IN]strLevels -- the level of node，split by "-",such as 6-2-1
//Return        : null
//Author        : Alan

function gotoAndExpandNode(objTree,strLevels){
    var levels = arguments[1] == undefined || strLevels=="" ? 0 : strLevels;//deal with null and ""
    var arrLevels = new Array();
    if(levels.indexOf("-")!= -1){
        arrLevels = levels.split("-");
        for(i=0; i<arrLevels.length; i++){
            arrLevels[i] = parseInt(arrLevels[i]);//transfer to integer
        }
    }
    else{
        arrLevels[0] = parseInt(levels);
    }
    var counter = 0;
    for(i=0; i<arrLevels.length; i++){
        var intPos = objTree.VScroll.Pos;
        if(i == 0 & arrLevels[0] == 0){
            objTree.Keys("[Home]");//root node
        }
        else{
            objTree.Keys(getNumString("[Down]",arrLevels[i]));//go to specified node
            Log.Message("Go to the node: level: "+(i+1)+" ,position: "+arrLevels[i]);
            if(i==arrLevels.length-1) break;//last node exit loop
            objTree.Keys("[Right]");//expanding node
            objTree.Refresh();
            while(objTree.VScroll.Pos <= intPos + 1){
                Delay(1000);
                objTree.Refresh();
                if(counter>20) break;//timeout exit loop
                counter++;
            }
            
        }
    }
}