burda gördüğün gibi 4 ana bölümlü bir treewiev var her satırın sonundaki rakam o satırın imagelistteki iconu eğer 2 rakam varsa İşlemleri", 3, 4) buda birinci rakam kapalı durmdaki ikinci rakamda tıklandıktan sonraki iconu gösteririr
en altta da örnek olarak bir rapor açılma ile ilgili kod var treewieve tıklama sonrası kodu
Kod:
Private Sub Form_Load()
Dim nodobject As Node
With Me.TreeView4.Nodes
Set nodobject = .Add(, , "MÜŞTERİ", "İhracat Kayıtları", 6)
Set nodobject = .Add("MÜŞTERİ", tvwChild, "F_MÜŞTERİ", "MÜŞTERİ KAYIT İŞLEMLERİ")
Set nodobject = .Add("MÜŞTERİ", tvwChild, "F_MÜŞTERİ_KAYIT_BUL", "MÜŞTERİ KAYIT BULMA ")
Set nodobject = .Add(, , "MAL", "DEPO KAYIT", 5)
Set nodobject = .Add("MAL", tvwChild, "F_MAL_TURLERI_KAYIT", "Mal Türleri Kayıt İşlemleri", 3, 4)
Set nodobject = .Add("MAL", tvwChild, "F_MAL_TURLERI_LISTE", "Mal Türleri Listesi")
Set nodobject = .Add(, , "RAPOR", "Raporlama", 1)
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor1", "Rapor1")
Set nodobject = .Add("RAPOR", tvwChild, "F_rapor2", "Rapor2")
Set nodobject = .Add(, , "ÖDEME", "ÖDEME KAYITLARI", 2)
Set nodobject = .Add("ÖDEME", tvwChild, "F_FIRMA_KAYIT", "Firma Kayıt İşlemleri")
Set nodobject = .Add("ÖDEME", tvwChild, "F_FIRMA_LISTE", "Firma Listesi")
Set nodobject = .Add(, , "SATIŞ", "SATIŞ KAYITLARI", 3)
Set nodobject = .Add("SATIŞ", tvwChild, "F_SATIŞ", "SATIŞ İŞLEMLERİ")
End With
End Sub
Private Sub TreeView4_NodeClick(ByVal Node As Object)
Select Case Node
Case "Rapor1"
DoCmd.OpenForm "Rapor1"
Case "Rapor2"
DoCmd.OpenForm "Rapor2"
End Select
End Sub