TreeView Hk.

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

TreeView Hk.

İleti#1)  k_cagatay » 31 Mar 2010 15:53

Merhaba arkadaşlar;
Sizden bir konuda yardım istiyorum. Ekte gönderdiğim xls dosyasında sayfa2 ve sayfa3 de veriler bulunmaktadır. Bu verileri ayrı ayrı treeview e nasıl alınır yardımcı olursanız çok sevinirim. Siteden indirdiğim örnek üzerinde çok uğraştım ama beceremedim. İlginize şimdiden teşekkürler.
Kolay gelsin
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
k_cagatay
 
Adı Soyadı:Çağatay karaoğlu
Kayıt: 10 Nis 2009 18:15
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Treeview yardım

İleti#2)  Emrah ÇANAKKALE » 31 Mar 2010 17:21

Merhaba Çağtay, alttaki kodlar "Form" adlı userform için initialize olayını silip bu kodları kopyalayın. Kodlar biraz karışık. :D

Kod: Tümünü seç
Private Sub UserForm_Initialize()
With TreeView1
    .ImageList = Me.ImageList1
    .LabelEdit = tvwManual
    .LineStyle = tvwRootLines
End With
syl = 2
On Error Resume Next
With TreeView1.Nodes
.Add , , "ana", Sheets("sayfa2").Cells(1, 1).Value, 1
kk = WorksheetFunction.CountA(Sheets("sayfa2").Range("a:a"))
For t = 1 To kk 'WorksheetFunction.CountA(Sheets("sayfa2").Range("a:a"))
sy = 0
kkk = Sheets("sayfa2").Cells(65536, 4).End(3).Row
For i = syl To Sheets("sayfa2").Cells(65536, 3).End(3).Row
If Sheets("sayfa2").Cells(i, 1).Value <> "" Then
          .Add "ana", tvwChild, Trim(Sheets("SAYFA2").Cells(i, 1).Value), Trim(Sheets("SAYFA2").Cells(i, 1).Value), 2
       For g = i + 1 To Sheets("sayfa2").Cells(65536, 3).End(3).Row
       If Sheets("sayfa2").Cells(g, 1).Value <> "" Then sy = g: GoTo atla
       Next g
atla:
If sy < 1 Then sy = Sheets("sayfa2").Cells(65536, 3).End(3).Row
syl = sy
For ty = i To sy - 1
If Sheets("sayfa2").Cells(ty, 2).Value <> "" Then
.Add Trim(Sheets("SAYFA2").Cells(i, 1).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 2).Value), Trim(Sheets("SAYFA2").Cells(ty, 2).Value), 4
  If Sheets("sayfa2").Cells(ty, 3).Value <> "" Then
  .Add Trim(Sheets("SAYFA2").Cells(ty, 2).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 3).Value), Trim(Sheets("SAYFA2").Cells(ty, 3).Value), 4
     '.Add Trim(Sheets("SAYFA2").Cells(ty, 3).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty, 4).Value), Trim(Sheets("SAYFA2").Cells(ty, 4).Value), 4
    End If
    For hj = 1 To 10
    If Sheets("sayfa2").Cells(ty + hj, 3).Value <> "" And Sheets("sayfa2").Cells(ty + hj, 2).Value = "" Then
    .Add Trim(Sheets("SAYFA2").Cells(ty, 2).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), 4
       '.Add Trim(Sheets("SAYFA2").Cells(ty + hj, 3).Value), tvwChild, Trim(Sheets("SAYFA2").Cells(ty + hj, 4).Value), Trim(Sheets("SAYFA2").Cells(ty + hj, 4).Value), 4
      Else
      GoTo atla2
      End If
      Next hj
atla2:
End If
Next ty
End If
Next i
Next t
End With
TreeView1.Nodes(1).Expanded = True
End Sub
İletilerinizde Türkçemizi koruma ve formumuzun kuralları gereği yazım kurallarına özen gösteriniz. Form kurallarına uymayan sorulara yanıt verilmiyor.

FORUM KURALLARI : viewtopic.php?f=28&t=101

20 . Türkçe yazım kurallarında; cümlede kelimelerin ilk harfi büyük olur, özel isimlerin baş harfi büyük olur, noktadan sonra başlayan her kelimenin baş harfi büyük olur, mesaj içindeki tüm harfler büyük yazılmaz yahut tümü küçük yazılmaz.
Kullanıcı avatarı
Emrah ÇANAKKALE
Site Dostu
 
Adı Soyadı:Emrah Çanakkale
Kayıt: 24 Oca 2009 12:30
İleti: 1224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Uşak


Forum TreeView

Online Kullanıcılar

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

Bumerang - Yazarkafe