Membuat TreeView pada vb 6.0


‘belajar menggunakan objek TreeView pada VB
‘–> by kohimaru
‘–> kalonk community
‘–> yogyakarta
‘——————————————-

Dim nNode1, nNode2 as node

Public sub nodes()
set nNode1 = TreeView1.nodes.add(, , “nNode1”, “Home”, 1)
set nNode2 = TreeView1.nodes.add(, , “nNode2”, “Bantuan”, 1)
 set nNode2 = TreeView1.nodes.add(“nNode2”, tvwChild, , “Panduan1”, 1)
 set nNode2 = TreeView1.nodes.add(“nNode2”, tvwChild, , “Panduan2”, 1)
end sub

Private Sub TreeTest_NodeClick(ByVal Node As MSComctlLib.Node)
on error resume next
 select case treeView1.selecteditem.text
   case “Home”
      frmHome.show
   case “Panduan1”
     list1.listIndex = 0
   case “Panduan2”
     list1.listindex = 1
 end select
end sub

public sub form_load()
  call nodes
  treeView1.refresh
end sub

About

Flexter member

Posted in VB 6.0
4 comments on “Membuat TreeView pada vb 6.0
  1. aduh bozz thanx yu bgt..
    ini yang saya cari2.
    thanx ya

  2. Aldous says:

    I have looked at the script.,

  3. Suzan says:

    Not much on my mind worth mentioning. What can I say? I haven’t been up to much lately. It’s not important. Oh well.,

  4. ilham mandar says:

    thaks bagt boss, lm bgt ne aku cari!!!
    thks\\
    tkhs
    thks\………….

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: