asked on

How can I create 3 columns in a TreeView in VB6?

I would like to create 3 columns in a TreeView, where all the rows are Left justified one below the other, and the following is the sample code I used:

Set nodx = TreeView1.Nodes.Add(nodr, tvwChild, , "Rs.Name" & vbTab & "Rs.date" & vbTab & "Rs.Amount")

The vbTab is not good, because it returns a character that is from a different language. To put in spaces will not either be good, because the rows will not be properly aligned.

Please advise me how to work around this.
Thank you.
Yom Tov Succos

gafoorgk

Can u please explain a good reason why u want to use TreeView for this instead of using ListView or ms flex grid if u want hierarchical view of items ?

u can create as much columns as u want in ListView. TreeView, by it's nature, doesn't support columns. do the following for list view

Dim lvwli As ListItem
With ListView1
.View = lvwReport
With .ColumnHeaders
.Add , "colName", "Name"
.Add , "colDate", "Date"
.Add , "colAmt", "Amount"
End With
Set lvwli = .ListItems.Add(, , "My Name")
lvwli.SubItems(1) = "A Date"
lvwli.SubItems(2) = "An Amount"
End With

if u want hierarchical view, create a custom disconnected recordset with the hierarchy u want and bind it with a flex grid. it is much more powerful. if u want help on creating hierarchical disconnected recordset, lemme know.