+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Treeview kullanımı (/konu-treeview-kullanimi--76815.html)
Sayfalar:
1
2
Treeview kullanımı - ynlmz - 15/02/2013
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.
Cvp: Treeview kullanımı - simendifer - 17/02/2013
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
Cvp: Treeview kullanımı - ynlmz - 17/02/2013
Sayın simendifer; ilgine çok teşekkür ederim. Ancak ben bunu VB 6.0 da yapmak istiyorum. Ek teki örneği incelerseniz sevinirim.
Cvp: Treeview kullanımı - idrisy - 20/02/2013
Bende bekliyorum
Cvp: Treeview kullanımı - ynlmz - 21/02/2013
Arkadaşlar bu konuda bir firkri olan yok mu acaba?
Cvp: Treeview kullanımı - ogulcan92 - 21/02/2013
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