You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

OlimilO

Intermediate

  • "OlimilO" is male
  • "OlimilO" started this thread

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

  • Send private message

1

Friday, September 18th 2009, 11:57pm

TreeViewStack

Hello everybody,

in VB6 filling a TreeView with data is a mess because there is no stack-class.
thanks to Jabaco and the Java-framework we already have a stack class that can be found in the namespace java#util.
I have created a small class that makes life easy, with it you can fill a TreeView very convenient, and your code looks almost very similar to the tree you want to create.

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Private Sub FillTree
   With TVS
      For i = i To i + 3
         .AddNode("Person " & CStr(i) & " (Pre, Sur)", "Person" & CStr(i))
            .AddNode("Address", "Address" & CStr(i))
               .AddLeaf("Sreet (Name, Nr)", "Sreet" & CStr(i))
               .AddLeaf("City  (PLZ/Zip, Name)", "City" & CStr(i))
            .pop
            .AddNode("Phone", "Phone" & CStr(i))
               .AddLeaf("Private (country, city, nr)",  "PhonePrivate" & CStr(i))
               .AddLeaf("Business (country, city, nr)", "PhoneBusiness" & CStr(i))
               .AddLeaf("Mobile (country, net, nr)", "PhoneMobile" & CStr(i))
            .pop
         .pop
      Next
      .Root.Expand = True
   End With   
End Sub

class: TreeViewStack; extends: java#util#Stack

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Option Explicit
Dim myRoot As Node
Dim myTree As TreeView
Public Sub TreeViewStack(aTree As TreeView)
   myTree = aTree 
End Sub
Public Function AddNode(Text As String, Key As String) As Node
   AddNode = Cast(Base.push(AddLeaf(Text, Key)), Node)
End Function
Public Function AddLeaf(Text As String, Key As String) As Node
   If myRoot = Nothing Then Call Root
   Dim rnd As Node = Me.peek
   AddLeaf = myTree.Nodes.Add(rnd, tvwChild, Key, Text)
End Function
Public Function Root() As Node
   If myRoot = Nothing Then 
      myRoot = Cast(Base.push(myTree.Nodes.Add(Nothing, tvwFirst, "Root", "")), Node)
   End If
   Root = myRoot
End Function 
Public Function peek() As Node
   peek = Cast(Base.peek, Node)
End Function
Public Function pop() As Node
   pop = Cast(Base.pop, Node)
End Function

A natural tree exists of root, limbs, nodes between limbs, and leafs - just like the TreeViewStack-class does have :) Also have a look at the small Jabaco-example attached.

Jabaco makes fun!

OlimilO
OlimilO has attached the following file:

This post has been edited 1 times, last edit by "OlimilO" (Sep 19th 2009, 6:03pm)

Rate this thread
WoltLab Burning Board