简单聊聊VB的TreeView1控件导航菜单

说实话，这篇文单是给小白看的，因为你如果知道TREEVIEW的数据结构，就肯定知道如何去挂数据了！，无非就是在数据为中查出数据，然后FOR 嘛，ADD上去就完事了，只是点击菜点，弹出对应的窗体，这里就要点小技巧！

下面就来说说我是如何做的！，看得懂或是看不懂，我就没法保证！

第一步.在数据库查出数据：

    Call openRs("Exec SP_SELECT_OAMENU '" & cdql & "',2") '查主菜单,传了一个用户名，和一个参数2，这个存储过程不用管！你只用关心下面的数据结构就行了！

  

    If rsado.EOF And rsado.BOF Then
        MsgBox "加载失败", 61, "提示"
    Else

        For tkl = 1 To rsado.RecordCount
            Set nodX = TreeView1.Nodes.Add(, , rsado.Fields(0), rsado.Fields(1), Val(rsado.Fields(2)), 3)  '把数据直丢上去
            rsado.MoveNext
        Next tkl
        
    End If
 

2，在查出 ,子菜单   
     Call openRs("Exec SP_SELECT_OAMENU '" & cdql & "',1")‘查出子菜单  传了一个用户名，和一个参数2，这个存储过程不用管！你只用关心下面的数据结构就行了！

    

    If rsado.EOF And rsado.BOF Then
        MsgBox "加载失败", 61, "提示"
    Else

        For tkl = 1 To rsado.RecordCount
            Set nodX = TreeView1.Nodes.Add("" & rsado.Fields(0), tvwChild, rsado.Fields(3), rsado.Fields(4), Val(rsado.Fields(5)), 4) '把数据直丢上去
            rsado.MoveNext
        Next tkl

        nodX.EnsureVisible

    End If

完事！

最后，结果：

第二步.点击树型控件，打开窗体！

  当你完成第一步后，在点击，菜单时，你可以试下，弹出KEY,KEY中可以存放窗体的名字，直接转换下，使用即可！

Dim frm As Form
For Each frm In Forms
If frm.Name = "Form1"   Then  ’’这里放上KEY 不就搞定了！
frm.show 
End If
Next