Treevİew

[okotan]

selamlar


ekte bulunan örnekte deneme menüsü altında "FORM1" e çift tıklandığında aynı isimdeki form,"RAPOR1"e çift tıklandığında aynı şekilde ilgili raporun açılmasını nasıl gerçekleştirebiliriz.bunun yanı sıra treeview altında gerçekleşen seçime göre genel olarak kod nasıl işletilir.

desteğinizi için teşekkürler

 

[okotan]

Yanit Verecek Yokmu

 

[okotan]

Bİlen Kİmse Yok AnlaŞilan

 

[yeni54]

Forumda aradın mı?

 

[okotan]

araştırdım ancak işleme mantığına dair bir açıklama bulamadım

 

[mehmetdemiral]

Bununla ilgili bir sitede şöyle kodlar vardı:


Projenize Project -> Components kısmından Microsoft Common Controls 6.0 (SP6) yı ekledikten sonra forma 1 adet treeview ekleyin. Treeviewe tıklantığı zaman form2 nin açılması kodunu yazdım. O yüzden istersen 2. bir form ekleyin ya da load form2 komutu yerine başka bir komut yazın.


Private Sub Form_Load()
Dim nodX As Node
' Bir metni ana başlık olarak atamak için aşağıdaki gibi bir komut kullanmalısınız.
Set nodX = TreeView1.Nodes.Add(, , , "CBS") '1

'Aşağıdakinin amacı 1. Başlığa bir alt başlık eklemektir.
' Eklediğiniz altbaşlıklar eklenme sıralarına göre görüntülenir.
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Adres Sorgulama") '2
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Değişkenlerle Sorgulama") '3
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Detaylı Adres Sorgulama") '4
Set nodX = TreeView1.Nodes.Add(2, tvwChild, , "Bilinen Yer ile Sorgulama") '5
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Proje İşlemleri") '6
' Pop alt başlığı altına 2.altbaşlık daha ekliyoruz.
Set nodX = TreeView1.Nodes.Add(6, tvwChild, , "Regülatör Bilgileri Kontrolü") '7
Set nodX = TreeView1.Nodes.Add(6, tvwChild, , "Bina Numarası Değiştirme") '8
' 2. Anabaşlığı ekliyoruz.
Set nodX = TreeView1.Nodes.Add(, , , "Abone & Müşteri Hizmetleri") '9
Set nodX = TreeView1.Nodes.Add(, , , "İç Tesisat & Proje") '10
Set nodX = TreeView1.Nodes.Add(, , , "İşletme") '11
Set nodX = TreeView1.Nodes.Add(, , , "Tahakkuk") '12
Set nodX = TreeView1.Nodes.Add(, , , "Yönetici İşlemleri") '13
' Tüm ağacı göstermek için kontrolü tazele.
nodX.EnsureVisible
End Sub

' Ağacın dallarından birine tıklandığında...
Private Sub TreeView1_NodeClick(ByVal Node As Node)
'mesaj$ = "Tıkladığınız Liste Seçeneği: " + Node.Text
'tip = 64
' baslik$ = "Treeview Örneği"
' Hangi dala tıklandığını söyle.
'MsgBox mesaj$, tip, baslik$
If Node.Text = "Değişkenlerle Sorgulama" Then
Load Form2
Form2.Show
End If
End Sub

 

[mehmetdemiral]

Aynı işlemin vb de yapılışı resimli olarak http://engin2.sitemynet.com adresinde yer alıyor. Belki fikir verebilir.

 

[mehmetdemiral]

Bu sitede yar alan topic ve örnek

http://www.excel.web.tr/showthread.php?t=6758

 

[okotan]

üstadım çok teşekkür ederim