کار با ابزار tree view

[saeid485]

با سلام خدمت شما دوستان عزیز
من می خواستم در مورد کار با ابزار tree view کمکم کنید
اگه نمونه کد دارید ممنون می شم طوری باشه که به صورت دینامیکی با شه یعنی از روی پایگاه داده خودم شروع کنه به اضافه کردن ایتم:لبخندساده:
اگه میشه فوری

[ASKaffash]

با سلام
این هم یک کد برای درخت از بانک استفاده میکنه :


Public Sub RefreshChart(ByVal YourKeySet As Variant)
Me.TreeView1.Nodes.Clear
Me.Adodc1.Refresh
YourKeyID = 1
With Me.Adodc1.Recordset
Cnt = 0
Do While Not .EOF
Cnt = Cnt + 1
TmpKey = !C_Tree
If Len(TmpKey) = 3 Then
Me.TreeView1.Nodes.Add , 1, "K" + TmpKey, !P_Chart
Else
Me.TreeView1.Nodes.Add "K" + Mid(TmpKey, 1, Len(TmpKey) - 4), 4, "K" + TmpKey, !P_Chart
End If
If TmpKey = YourKeySet Then
YourKeyID = Me.TreeView1.Nodes.Item(Me.TreeView1.Nodes.Count). Index
End If
Me.TreeView1.Nodes.Item(Me.TreeView1.Nodes.Count). Tag = !C_Chart
Me.TreeView1.Nodes(Me.TreeView1.Nodes.Count).Expan ded = True
.MoveNext
Loop
End With
Set Me.TreeView1.SelectedItem = Me.TreeView1.Nodes(YourKeyID)
Call TreeView1_Click
End Sub