burda diğerlerini biliyorsun ancak ilk noda gitme olayını nodes(1) işte bu ilk noda gitmeyi sağlıyor selected seçiyoruz expanded ile kapalı tutuyoruz ve akabinde sec fonksiyonunu çağırıyoruzki id yi metin kutusuna alsın
Kod:
Private Sub Form_Load()
TreeView1.Nodes.Clear 'ağacı temizle
Call treeyap(TreeView1) 'ağaç yap
With TreeView1.Nodes(1)
.Selected = True
.Expanded = False
Call sec
End With
End SubKod:
Function sec()
Dim nodSelected As MSComctlLib.Node
Set nodSelected = Me.TreeView1.SelectedItem
If nodSelected.key Like "BirimId*" Then
Me.Metin5 = Mid(nodSelected.key, 8)
Else
Me.Metin5 = Null
End If
End Function