Örnek : TreeView ile Sitemizi Gezelim

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

Örnek : TreeView ile Sitemizi Gezelim

İleti#1)  Tarkan VURAL » 11 Haz 2009 15:05

TreeView nesnesi ile sitemizin menülerini kısayol gibi dizip gezebileceğiniz bir UserForm tasarladım. Form üzerinde bir tane de internet explorer nesnesi ( webbrowser ) var. Treeview' den menuleri aynı sitemizdeki alt forumlar mantığı gibi dallandırdım. Tıklanan linki, yandaki webbowser nesnesi içinde sayfayı açacak şekilde ayarladım. Bir nevi sık kullanılan ExcelVBA.Net başlıklarını takip etmek amaçlı olmuş gibi bir şey oldu. Amacım örnek teşkil etmesi elbette. Bundan fikir alan arkadaşlar bunu istedikleri gibi kullanabilir, geliştirebilirler. Değişik fikirler çıktığında paylaşımlarını da bekleriz. [evet]

Genel görünümü resimdeki gibidir.
ornek_kod.JPG

Başlıkları Gizle üzerine tıkladığınızda TreeView gizleniyor, WebBrowser nesnesi ile sitemiz tam ekran karşınızda duruyor. --)(
Kodların tamamı aşağıdakilerdir.
Kod: Tümünü seç
Private say As Integer
Private Sub Label1_Click()
    If TreeView1.Visible = True Then
        TreeView1.Visible = False
        Label1.Caption = "Başlıkları Göster"
        Call UserForm_Initialize
        Me.WebBrowser1.Left = 1
    Else
        TreeView1.Visible = True
        Call UserForm_Initialize
        Me.WebBrowser1.Left = 144
        Label1.Caption = "Başlıkları Gizle"
    End If
End Sub

Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
    Cancel = 1
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    WebBrowser1.Navigate TreeView1.SelectedItem.Key
End Sub

Private Sub UserForm_Activate()
With TreeView1
    .Nodes.Add
    .Nodes(1).Text = "Www.ExcelVBA.NET"
    .Nodes(1).Key = "http://www.excelvba.net/index.php"
anamenu = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Www.ExcelVBA.NET")
    .Nodes(2).Text = "UserForm ve Diğer Nesneler"
    .Nodes(2).Key = "http://www.excelvba.net/viewforum.php?f=3"
menu2 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=3", 4, , "UserForm")
    .Nodes(3).Text = "UserForm"
    .Nodes(3).Key = "http://www.excelvba.net/viewforum.php?f=78"
menu3 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=3", 4, , "TextBox")
    .Nodes(4).Text = "TextBox"
    .Nodes(4).Key = "http://www.excelvba.net/viewforum.php?f=7"
menu4 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=3", 4, , "CommandButton")
    .Nodes(5).Text = "CommandButton"
    .Nodes(5).Key = "http://www.excelvba.net/viewforum.php?f=13"
menu5 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=3", 4, , "ComboBox")
    .Nodes(6).Text = "ComboBox"
    .Nodes(6).Key = "http://www.excelvba.net/viewforum.php?f=6"
menu6 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=3", 4, , "ListBox")
    .Nodes(7).Text = "ListBox"
    .Nodes(7).Key = "http://www.excelvba.net/viewforum.php?f=9"
menu7 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Genel Makro Soruları")
    .Nodes(8).Text = "Genel Makro Soruları"
    .Nodes(8).Key = "http://www.excelvba.net/viewforum.php?f=4"
menu8 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Excel ile Veritabanı ADO SQL")
    .Nodes(9).Text = "Excel ile Veritabanı ADO SQL"
    .Nodes(9).Key = "http://www.excelvba.net/viewforum.php?f=16"
menu9 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Diğer Excel Sorunları")
    .Nodes(10).Text = "Diğer Excel Sorunları"
    .Nodes(10).Key = "http://www.excelvba.net/viewforum.php?f=17"
menu10 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Makro Örnekleri")
    .Nodes(11).Text = "Makro Örnekleri"
    .Nodes(11).Key = "http://www.excelvba.net/viewforum.php?f=8"
menu11 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=8", 4, , "Örnek Kodlar")
    .Nodes(12).Text = "Örnek Kodlar"
    .Nodes(12).Key = "http://www.excelvba.net/viewforum.php?f=37"
menu12 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=8", 4, , "Örnek Dosyalar")
    .Nodes(13).Text = "Örnek Dosyalar"
    .Nodes(13).Key = "http://www.excelvba.net/viewforum.php?f=38"
menu13 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Excel Yerleşik Formüller")
    .Nodes(14).Text = "Excel Yerleşik Formüller"
    .Nodes(14).Key = "http://www.excelvba.net/viewforum.php?f=57"
menu14 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=57", 4, , "Mantıksal")
    .Nodes(15).Text = "Mantıksal"
    .Nodes(15).Key = "http://www.excelvba.net/viewforum.php?f=58"
menu15 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=57", 4, , "Arama ve Başvuru")
    .Nodes(16).Text = "Arama ve Başvuru"
    .Nodes(16).Key = "http://www.excelvba.net/viewforum.php?f=59"
menu16 = .Nodes.Add("http://www.excelvba.net/index.php", 4, , "Forum Hakkında")
    .Nodes(17).Text = "Forum Hakkında"
    .Nodes(17).Key = "http://www.excelvba.net/viewforum.php?f=27"
menu17 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=27", 4, , "Forum Kuralları")
    .Nodes(18).Text = "Forum Kuralları"
    .Nodes(18).Key = "http://www.excelvba.net/viewforum.php?f=28"
menu18 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=27", 4, , "Basında Sitemiz")
    .Nodes(19).Text = "Basında Sitemiz"
    .Nodes(19).Key = "http://www.excelvba.net/viewforum.php?f=82"
menu19 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=27", 4, , "Forum Duyuruları")
    .Nodes(20).Text = "Forum Duyuruları"
    .Nodes(20).Key = "http://www.excelvba.net/viewforum.php?f=29"
menu20 = .Nodes.Add("http://www.excelvba.net/viewforum.php?f=27", 4, , "Çöp Kutusu")
    .Nodes(21).Text = "Çöp Kutusu"
    .Nodes(21).Key = "http://www.excelvba.net/viewforum.php?f=85"
End With
End Sub

Private Sub UserForm_Initialize()
    Me.Width = Application.Width
    Me.Height = Application.Height
    WebBrowser1.Height = Me.Height
    WebBrowser1.Width = Me.Width
    TreeView1.Height = Me.Height
End Sub


Örnek dosyamız da burada:
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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ş: 47
İleti: 27386
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TreeView ile sitemizi gezelim

İleti#2)  kan-nas » 11 Haz 2009 15:41

....
.....
........

[TESEKKÜR]
En son Tarkan VURAL tarafından, 11 Haz 2009 15:45 tarihinde değiştirildi, toplamda 1 değişiklik yapıldı.
Sebep: Abartlı bir övgü mesajı olduğundan tarafımdan düzenlenmiştir. Abartmaya gerek yok, örneklerimizden yararlanabilmeniz temennisiyle.
Kullanıcı avatarı
kan-nas
Site Dostu
 
Adı Soyadı:özkan asan
Kayıt: 05 Eyl 2008 11:03
Konum: ÇOK UZAK
Meslek: bankacı
Yaş: 46
İleti: 529
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istANBUL

Cevap: TreeView ile sitemizi gezelim

İleti#3)  Selçuk TURAN » 11 Haz 2009 15:44

Elinize sağlık güzel bir örnek. Teşekkürler.
Kullanıcı avatarı
Selçuk TURAN
Siteye Alışmış
 
Adı Soyadı:Selçuk TURAN
Kayıt: 23 Ekm 2008 13:26
Konum: Küçükçekmece
İleti: 115
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: TreeView ile sitemizi gezelim

İleti#4)  Bülent » 11 Haz 2009 15:58

Güzel fikir, güzel tasarım, güzel örnek. şkşk
Elinize sağlık. --)(
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 44
İleti: 3746
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: TreeView ile sitemizi gezelim

İleti#5)  Murat OSMA » 25 Ağu 2009 11:01

Çok beğendim, ellerine sağlık. [evet] şkşk
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 35
İleti: 14401
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: TreeView ile sitemizi gezelim

İleti#6)  skat » 25 Ağu 2009 12:33

Tarkan Bey
Ellerinize sağlık her zaman ki gibi süper olmuş.
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 46
İleti: 230
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TreeView ile sitemizi gezelim

İleti#7)  gezginast » 06 Şub 2010 22:41

Harika, şkşk
Kullanıcı avatarı
gezginast
Yeni Başlamış
 
Adı Soyadı:ahmet ulasli
Kayıt: 27 Arl 2008 12:10
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: hatay

Cevap: TreeView ile sitemizi gezelim

İleti#8)  OmerFaruk Bayrak » 06 Ekm 2010 17:03

Tarkan Abi

Tebrik Ederim Güzel Olmuş
Kullanıcı avatarı
OmerFaruk Bayrak
Siteye Alışmış
 
Adı Soyadı:Ömer Bayrak
Kayıt: 11 Mar 2010 15:41
Konum: İstanbul
Meslek: Öğrenci-Web Tasarım
Yaş: 23
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: TreeView ile Sitemizi Gezelim

İleti#9)  erenalp » 03 Tem 2012 13:10

Elinize sağlık güzel bir örnek. Teşekkürler.
Kullanıcı avatarı
erenalp
İsimsiz Üye
 
Adı Soyadı:ali veli
Kayıt: 02 Arl 2011 08:53
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: TreeView ile Sitemizi Gezelim

İleti#10)  cuma » 09 Ekm 2012 09:33

Çok güzel bir çalışma olmuş ellerinize , kafanıza sağlık.. şkşk
Kullanıcı avatarı
cuma
Yeni Başlamış
 
Adı Soyadı:cuma akyüz
Kayıt: 01 Nis 2009 09:08
Konum: Eğitmen
Meslek: Öğretmen
Yaş: 45
İleti: 36
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Gaziantep/Şehitkamil

Cevap: Örnek : TreeView ile Sitemizi Gezelim

İleti#11)  necatisimsek » 07 Ağu 2017 13:51

- Tarkan hocam çok güz olmuş ellerinize sağlık :)
Kullanıcı avatarı
necatisimsek
Yeni Başlamış
 
Kayıt: 05 Tem 2017 10:31
Meslek: Memur
Yaş: 52
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Afyonkarahisar


Forum TreeView

Online Kullanıcılar

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

Bumerang - Yazarkafe