[Çözüldü] TreeView ile Soyağacı

Birbirine bağlantılı dosyaları klasör ağacı yapısında göstermeye yarayan nesne.

[Çözüldü] TreeView ile Soyağacı

İleti#1)  ykocaturk01 » 09 May 2011 22:15

Merhabalar, treeview ile ekte örnek kodu çalıştıramadım, yardım edebilirmisiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Murat OSMA tarafından, 03 Mar 2012 11:23 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Hatalar Kırmızı ile Belirtildi... - İlgili başlık altına taşındı...
Kullanıcı avatarı
ykocaturk01
 
Adı Soyadı:yılmaz kocatürk
Kayıt: 06 Mar 2011 21:25
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul tuzla

Cevap: TreeView ile Soyağacı

İleti#2)  Tarkan VURAL » 23 May 2011 19:36

Yılmaz bey selamlar, geç oldu ama güç olmasın, sitemize hoş geldiniz.

Kullandığınız kodlamada bir takım hatalar var. Örneğin Imagelist eklemişsiniz ama içinde resim yok. Imagelist ile ilgili kısımlarını devre dışı bıraktım. Sonraki hatanız ilk satırlarda key' ler oluşturup bunlardan sadece A1 key' ini kullanıyor olmanız. Bir de LineStyle değerini değiştirip açılır menü görünümü verdim. Artı simgesini tıklayıp alt dalları görüntüleyebilme kolaylığı açısından. [evet] Aşağıdaki biçimde deneyin bakalım, neler oluyor ?

Kod: Tümünü seç
Private Sub UserForm_Initialize()
'On Error Resume Next
TreeView1.LineStyle = tvwRootLines
'TreeView1.ImageList = ImageList1
Dim nodX As Node
With TreeView1.Nodes
'Set nodX = .Add("BABANIN KOD NO", tvwChild, "ÇOCUĞUN KOD NOSU", "ÇOCUĞUN ADI", İKONUN KODU)
Set nodX = .Add(, , "a1", "AHMET") '
Set nodX = .Add(, , "a18", "MEHMET ")

'--------------------------------
Set nodX = .Add("a1", tvwChild, "a2", "ALİ")
Set nodX = .Add("a1", tvwChild, "a6", "VELİ")
Set nodX = .Add("a1", tvwChild, "a10", "ZEYNEP")
Set nodX = .Add("a1", tvwChild, "a15", "AYŞE")

'Set nodX = .Add("a2", tvwChild, "a3", "Alinin 1. çocuğu")
'Set nodX = .Add("a2", tvwChild, "a4", "Alinin 2. çocuğu")
'Set nodX = .Add("a2", tvwChild, "a5", "Alinin 3. çocuğu")

'Set nodX = .Add(a6, tvwChild, "a7", "Velinin 1. çocuğu ")
'Set nodX = .Add(a6, tvwChild, "a8", "Velinin 2. çocuğu ")
'Set nodX = .Add(a6, tvwChild, "a9", "Velinin 3. çocuğu ")

'Set nodX = .Add("a10", tvwChild, "a11", "Zeynepin 1. çocuğu ")
'Set nodX = .Add("a10", tvwChild, "a12", "Zeynepin 2. çocuğu")
'Set nodX = .Add("a10", tvwChild, "a13", "Zeynepin 3. çocuğu ")
'Set nodX = .Add("a10", tvwChild, "a14", "Zeynepin 4. çocuğu ")

'Set nodX = .Add("a15", tvwChild, "a16", "Ayşenin 1. çocuğu")
'Set nodX = .Add("a15", tvwChild, "a17", "Ayşenin 2. çocuğu ")

End With
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 46
İleti: 27342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TreeView ile Soyağacı

İleti#3)  ykocaturk » 23 May 2011 20:31

Teşekkür ederim, şimdi daha iyi anladım.
Kullanıcı avatarı
ykocaturk
 
Adı Soyadı:yılmaz kocaturk
Kayıt: 22 Şub 2011 22:15
Konum: bu ne
Meslek: meendis
Yaş: 107
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum TreeView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe