Treeview Oluşturmak

[drejan62]

Merhabalar,
Oluşturacağımız Treeviw nesnesindeki ana ve alt başlıklar Mev Sayfasında bulunan  a sütununda anabaşlıklar, b sütununda alt başlıklar ve c sütununda ise bu başlıklara ait açıklamalar olsun biz her başlığı tıkladığımızda oluşturduğumuz textbox üzerine c sütununda bulunan açıklamalar görüntülensin.
Teşekkür ederim...

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Merhaba Ercan Bey,

Hangi alt başlık, hangi üst başlık altında yer alacak, anlayamadım?
Biraz düzensiz geldi...

[drejan62]

Üstadlar,
Treeviw oluşturduk sayfa2 de b ve c sutunundaki veriler Treeviewde başlık olarak görünmekte, treeviewdeki başlıklara tıkladığımızda ise sayfa2  d sütunundaki veriler ise textboxta görünmekte.
Acaba user form üzerine koyacağımız bir arama butonu ile yazdığımız kelimeyi Sayf2 de arasa her sonrakine tıkladığımızda bulduğu verinin hangi treeview başlığında olduğunu gösterse.
olabilirmi acaba?

[Bülent Öztürk]

Dosyanızın son halini ekleyebilir misiniz?

[drejan62]

Dosyanızın son halini ekleyebilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

Kodlar şifreli!

[drejan62]

Kodlar şifreli!

üstat çok özür dilerim hiç yaptığım bişey değildir

üstad şifre 123456

[Bülent Öztürk]

"Sonraki" şeklinde değil de, bulunanları işaretleme şeklinde isterseniz;

Kod: [Seç]

Private Sub CommandButton1_Click()
For b = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(b).Expanded = False
TreeView1.Nodes(b).Bold = False
TreeView1.Nodes(b).Selected = False
Next b

bul = InStr(1, TextBox1, TextBox2, vbTextCompare)
If bul = 0 Then MsgBox "Bulamadım!", vbExclamation, TextBox2: TextBox2.SetFocus: GoTo tree ': Exit Sub
TextBox1.SetFocus
TextBox1.SelStart = bul - 1
TextBox1.SelLength = Len(TextBox2)
tree:
For i = 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(i) Like "*" & TextBox2.Text & "*" Then
        TreeView1.Nodes(i).EnsureVisible
        TreeView1.Nodes(i).Bold = True
        TreeView1.Nodes(i).Selected = True
    End If
Next i
End Sub

[Bülent Öztürk]

Sonraki şeklinde seçim şu şekilde olabilir;

Kod: [Seç]

Private Sub CommandButton2_Click()
'SONRAKİ
Static s As Integer
For b = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(b).Expanded = False
TreeView1.Nodes(b).Bold = False
TreeView1.Nodes(b).Selected = False
Next b

If s <= 0 Then s = 1
For k = s + 1 To TreeView1.Nodes.Count
    If TreeView1.Nodes(k) Like "*" & TextBox2.Text & "*" Then
        TreeView1.Nodes(k).EnsureVisible
        TreeView1.Nodes(k).Bold = True
        TreeView1.Nodes(k).Selected = True
        s = k
        Exit Sub
    End If
Next k

End Sub