Diğer istedeğinize gelince; noda tıklayınca ona ait bilgi gelir ve o noda ekleme yapabilirsiniz diğer istediğiniz de olur. Noda tıklayınca yanda ona ait bilgiler gelir. Seçili konuma ya da ona alt birim ekleyebileceğiniz bir formda yapılabilir.
Altta verdiğim kod treeviewin tıklama sonunda nod daki bilgiyi veren kod formuna bir metin kutusu koy, adı Metin5 olsun. Tıklayınca veri o metin kutusuna gelsin. Artık geri kalanı senin hayaline kalmış bir şey. İster bu bilgi ile kişinin ayrıntılarını getirirsin, ister noda alt nod eklersin. Artık sen ne yapmak istersen...
Kod:
Private Sub Treeview1_Click()
Dim nodSelected As MSComctlLib.Node
Set nodSelected = Me.TreeView1.SelectedItem
If nodSelected.Key Like "H1*" Then
Me.Metin5 = Mid(nodSelected.Key, 3)
ElseIf nodSelected.Key Like "PA*" Then
Me.Metin5 = Mid(nodSelected.Key, 3)
Else
Me.Metin5 = Null
End If
End Sub