Sayın hocalarım, EK teki dosyayı biryerden indirdim. Oradaki Treeview örneğini kendi projemde kullanmak istdim ancak bir türlü uyarlayamadım. Ben kendi projemde ilk önce okul adlarının listelenmesini istiyorum. Okul adıni seçince altında o kulla ilgili sınıflar varsa onların listelenmesini istiyorum. Sınıfı seçincede o sınıftaki şubeleri listlesin istiyorum. Şubeyi seçincede o şubede bulunan öğrencileri listelemek istiyorum. Yardım ederseniz sevinirim.
Sayın ynlmz Umarım yapmak istediklerinizi dogru anlamışımdır örnek programı ekliyorum inceleyiniz
sonucunu forma yazarsanız bizlerde emegimizin karşılıgını almış oluruz istediğiniz gibi ise konu çözülmüştür diye bir not düşünüz
Sayın simendifer; ilgine çok teşekkür ederim. Ancak ben bunu VB 6.0 da yapmak istiyorum. Ek teki örneği incelerseniz sevinirim.
Arkadaşlar bu konuda bir firkri olan yok mu acaba?
Sn:ynlmz
Aşağıdaki örnek kodu deneyiniz.
Private Sub Form_Load()
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "A", "Dede")
Set nodX = TreeView1.Nodes.Add("A", tvwChild, "B", "Oğul")
Set nodX = TreeView1.Nodes.Add("B", tvwChild, "C", "Torun")
nodX.EnsureVisible
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim msg As String
Select Case Node.Key
Case "A"
msg = "Bu TreeView nesnesindeki en üst düzey yetkilidir.Tüm altbirimler bu kişiye bağlıdır."
Case "B"
msg = "Benim 'Babam' A Anahtarı oğlum ise C Anahtarıdır.Ayrıca oğlum da herşeyi benden izin alıp yapar."
Case "C"
msg = "Ben buraların en küçük efendisiyim.Büyüyünce herşeyi ben yönetçem."
End Select
MsgBox msg, vbExclamation, Node.Text & " : " & Node.Index & ". Sıra"
End Sub