12/07/2009, 15:53
esrefigit
Sayın Mehmeser, regedit'de olduğu gibi treeviewde ekleme olmaz. Değiştirme olabilir ya da tut treeview de başka bir kolun üzerine bırak da olabilir.
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...
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