1 sayfadan 1. sayfa

TreeView Kullanımı

İletiTarih: 27 Eyl 2008 19:34
Hanmet
Bugün öğleden sonra canım sıkıldı ve biraz rahatlamak için bilmediğim birşeyler öğrenmek istedim. Uzun zamandır kafama takılan TreeView nesnesini aldım elime.

İşinize yarayabilecek bir çalışma olduğunu düşündüğüm içinde buraya ekledim. TreeView1 nesnesini çok iyi tanımadığım için çalışmamu deneme yanılma yoluyla yaptım. Eminim burda bu işi daha iyi yapabilecek birçok usta vardır.

Çalışmam ekte. Sorunlarınızı çekinmeden yazabilirsiniz...

İyi çalışmalar !!

Kod: Tümünü seç
Private Sub TreeView1_Click()
Me.Label1.Caption = TreeView1.SelectedItem.Text
End Sub


Private Sub UserForm_Initialize()
TreeView1.Nodes.Clear
'Başlıkları ekle

TreeView1.Nodes.Add
TreeView1.Nodes(1).Text = "Www.ExcelVBA.NET"
TreeView1.Nodes(1).Key = "Baslık"

TreeView1.Nodes.Add
TreeView1.Nodes(2).Text = "Ana_1"
TreeView1.Nodes(2).Key = "Ana_1"

TreeView1.Nodes.Add
TreeView1.Nodes(3).Text = "Ana_2"
TreeView1.Nodes(3).Key = "Ana_2"

TreeView1.Nodes.Add
TreeView1.Nodes(4).Text = "Ana_3"
TreeView1.Nodes(4).Key = "Ana_3"

TreeView1.Nodes.Add
TreeView1.Nodes(5).Text = "Hanmet"

    Alt_11 = TreeView1.Nodes.Add("Ana_1", tvwChild, , "Alt 1.1")
        'TreeView1.Nodes.Add
        TreeView1.Nodes(6).Text = "Ana 1.1"
        TreeView1.Nodes(6).Key = "Ana_1_1"
            Alt_1_1_1 = TreeView1.Nodes.Add("Ana_1_1", tvwChild, , "Alt 1.1.1")
            Alt_1_1_2 = TreeView1.Nodes.Add("Ana_1_1", tvwChild, , "Alt 1.1.2")
            Alt_1_1_3 = TreeView1.Nodes.Add("Ana_1_1", tvwChild, , "Alt 1.1.3")
   
    Alt_1_2 = TreeView1.Nodes.Add("Ana_1", tvwChild, , "Alt 1.2")
    Alt_1_3 = TreeView1.Nodes.Add("Ana_1", tvwChild, , "Alt 1.3")

    Alt_2_1 = TreeView1.Nodes.Add("Ana_2", tvwChild, , "Alt 2.1")
    Alt_2_2 = TreeView1.Nodes.Add("Ana_2", tvwChild, , "Alt 2.2")
    Alt_2_2 = TreeView1.Nodes.Add("Ana_2", tvwChild, , "Alt 2.2")

    Alt_3_1 = TreeView1.Nodes.Add("Ana_3", tvwChild, , "Alt 3.1")
    Alt_3_2 = TreeView1.Nodes.Add("Ana_3", tvwChild, , "Alt 3.2")
    Alt_3_3 = TreeView1.Nodes.Add("Ana_3", tvwChild, , "Alt 3.3")
End Sub

TreeView.rar

TreeView Kullanımı

İletiTarih: 28 Eyl 2008 01:20
ExcelVBA
Teşekkürler Erhan,
Yararlı olacağına, birilerinin işine yarayacağına eminim..
(Her zaman canının sıkılması dileğiyle :))

TreeView Kullanımı

İletiTarih: 28 Eyl 2008 10:52
Erhan Yavuz
Sayın Erhan adaşınız olarak teşekkürler...

TreeView Kullanımı

İletiTarih: 07 Arl 2008 23:23
taleslab
Teşekkürler

TreeView Kullanımı

İletiTarih: 03 Oca 2009 13:34
gezginast
Ben yeni üye oldum ama şimdiye kadar aradığım herşeyi burada buluyorum, emeğine sağlık, şkşk

TreeView Kullanımı

İletiTarih: 12 Oca 2009 22:02
resital
Yapım İşleri ihalelerinde kullanılan benzer iş tebliği. treeview kullanımına örnek.

TreeView Kullanımı

İletiTarih: 12 Oca 2009 23:02
Tarkan VURAL
Örnek çok hoş Özcan bey teşekkürler.
Yalnız çıkış esnasındaki Kapat tıklandığında gelen hatayı engellemek için
Kod: Tümünü seç
Workbooks("benzer_is_teblig").Close False

kodlamanızda teblig kısmından sonra .xls eklemeniz gerek.

Paylaşımınız için teşekkür ediyorum. --)(

Cevap: TreeView Kullanımı

İletiTarih: 13 Eyl 2009 02:07
nuklay2003
Sayin Hanmet

Uzun bir zamandır aradığım çalışmadır kendisi, ben bunun sadece klasör, alt klasör ve içindeki dosyaları gösteren bir uygulama arıyordum, bu konuda yardımcı olabilirmisiniz

Cevap: TreeView Kullanımı

İletiTarih: 13 Eyl 2009 19:49
kan-nas
Üstadlar sağolun...

Cevap: TreeView Kullanımı-nerede

İletiTarih: 14 Eyl 2009 13:15
kan-nas
Toolboxta bulamıyorum . Nerededir Treewiew

Cevap: TreeView Kullanımı

İletiTarih: 14 Eyl 2009 14:21
Murat OSMA
"Microsoft TreeView Contol" ü seçmelisiniz.
Resimde de görebilirsiniz.

Cevap: TreeView Kullanımı

İletiTarih: 21 Eyl 2010 21:37
ekankim
Paylaşımın İçin Çok Teşekkür Ederim...
Saygılarımla...
Ömer GÜZEL.