全鍵盤操作遍歷樹

今天spy一棵樹對象（TVirtualStringTree），發現spy出來的都是一些基本的屬性和方法，樹本身的屬性和方法都沒有（原因可能是這個樹控件被自定義封裝或屬于非標準的第三方控件），面對這樣的一個對象要展開和遍歷，只能通過鍵盤的上[Up],下[Down],左[Left],右[Right]等箭頭去操作了。

思路：將樹的層次和節點序號，組合成一個字符串，中間用“-”分割，例如：“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++;
            }
            
        }
    }
}