treeview check için "notes" kontrolu.

[Rafet]

Yine excel.web.tr den bir çalışma bulup bununla ilgili bir kaç ek yaparak kendime uygun bir treeview için oluşturdum.

Buton1 çalımanın asıl halı.
Buton2 kendime uyarladığım halı.

Buton3 ise check kontrolu yaparak tıklı olanların aktarmak için kullandım istiyorum.
"node"ların ana veya child olup olmadıklarını yada alt "child"ları olup oladıklarını kontrol etmek istiyorum.

Ana "node"sa geldiğinde ana "node" check değeri false ise o "note" un "child" "note" larınıda atlamasını isticem ama bunu yapamadım.

Nasıl yapabilrim uzun zaman uğraşıyorum olmadı.
Bulduğum kondlarıda çalıştıramadım.

Ekte sunuyorum.

 

[Rafet]

"node" un ana alup olmadığını bu kodla kontrol ede biliyormuşşuz.
Ama halen node un altında toplam kaç hate cihild var saya mıyorum:.

If Not TreeView1.Nodes(i).Parent Is Nothing Then

 

[Rafet]

Inan mıyorum yaa. buldum tek tek bakmaa başladım . Özelliklerden bu kodda kaçtane alt birimi olduğunu buldu.

a = TreeView1.Nodes(i).Children

bu çalışmayı geliştirerek bir ornek hazılamam lazım.

Bu çalışma bir çok kişinin işine çok yarıcaktır.

Ben bunu listboox kullanımı yetmediği aşamada ihtiyac duydum. İşlem Tiplerini listbox atıyordum. Sonra işlem tipi gibi cari tipi elemek istedim , tekrar bir listbox. Sonra borc ay kodlarını belirtmek istedim al sana bir listbox daha.

List box kullanımına alternatif düşünürken treeview check özelliğinin olduğunu hatırladım.

Bakalım kullanışlı olacakmı.


Biraz kendi kendi kendime konuştum ama düşünüyorum da bunu çok konuşacağız.

Muhabebtle.

 

[janveljan]

Ben de biraz karıştırdım, keşfettiğim hususları aktarayım. Children özellği ana alt child ların sayısını veriyor doğru onların da alttakilerinin sayısını dahil etmiyor.

Parent özelliği bir üst nod a tekabül ediyor. Yani Parent Nothing ise Rafet Beyinde dediği gibi ana node oluyor.

Bir node u tıkladığımızda bütün alt node ları ile seçili hale gelmesini de aşağıdaki kodlarla sağlayabildim.

ilk = Node.Index + 1
If Node.Next Is Nothing Then
son = TreeView1.Nodes.Count
Else
son = Node.Next.Index - 1
End If
For i = ilk To son
TreeView1.Nodes(i).Checked = Node.Checked
Next

Sadece bir alt childların seçili olmasını da aşağıdaki kodlarla sağladım

For i = 1 To TreeView1.Nodes.Count
If Not TreeView1.Nodes(i).Parent Is Nothing Then
If TreeView1.Nodes(i).Parent = Node Then TreeView1.Nodes(i).Checked = Node.Checked
End If
Next