1. Introduction
2. Adding Nodes
3. Removing Nodes
4. TreeView Styles
5. Using Images
6. Editing Labels
7. Expanding Items
8. Drag and Drop

Comments

1. Jeff Shepherd
   03 Mar 2005 at 21:58

   I tried your treeview example and when I try to add and image it is telling me that I need to initilaize the image first. Can you tell me what that means and how to fix it

2. directorz
   28 May 2004 at 10:39

   I tried this and recieved the following: Compile error: variable not defined..."TreeView" is highlited...anyone have any ideas?

3. Gabriel Medina
   14 May 2004 at 17:19
   Very Good, You have helped me.
   
   gabriel medina
   gxsoft@hotmail.com
4. Behring Bautista
   11 Aug 2003 at 20:25
   Good Example isn't it?
   http://www.pldental.com
5. LittleMik
   24 Jun 2003 at 03:39

   Hi,
   

   
   Found this very good tutorial because its nearly exact the problem i have with my TreeView,...
   ...but unfortunatly, i can't get it to work...
   

   
   Set the same settings like in the tutorial, but nothing happens.
   I try to drag and drop, but it seems, there is no action by the script,...
   

   
   Any suggetions, what my failure could be?
   Thanx for help
   LittleMik

6. nigel salt
   08 May 2003 at 16:40

   Enjoyed the piece on drag and drop treeview.  
   I use VS6 under XP and in that environment the DataObject declaration is
   Data As MSComctl2.DataObject
   rather than the reference in the posting
   Hyperlink to articles on DataSource and imagelist would be handy but they are both documented in MSDN if you throw the rigth incantation at it.
   

   
   Nigel
   

7. Jason Best
   04 Mar 2003 at 23:00

   Just what i needed for a contact list im doing for my MSN Clone. Excellent!

8. Scott Roth
   30 Oct 2002 at 09:53

   Can this be implemented using ASP pages as well?
   

   
   Thanks.

9. behring
   15 Oct 2002 at 00:44
   Thank You Example I make this!!
   
   I hope someOne found this useful
   
   Private Sub Form_Load()
   With TreeView1
          .Style = tvwTreelinesPlusMinusPictureText
          .LineStyle = tvwRootLines
          .PathSeparator = "\"
          .Indentation = Screen.TwipsPerPixelX * 5 '256
          .LabelEdit = tvwManual
          .SingleSel = False
          .HideSelection = False
          .ImageList = ImageList1        
          .Refresh
   End With
   Call ShowEstructure
   End Sub
   
   
   
   Private Sub ShowEstructure()
   Dim i As Byte
   Dim j As Byte
   Dim k As Byte
   Dim Max As Byte
   Dim sp As String
   Dim sh As String
   Dim sh2 As String
   Dim TotalSecciones As Byte
   Dim TotalPosiciones As Byte
   
   Dim rsSeccions As New ADODB.Recordset
   Dim rsPositions As New ADODB.Recordset
   
   TreeView1.Nodes.Clear
   
   
   Set grsGral = New ADODB.Recordset
   grsGral.Open "EXEC spSQL_ShowDepartments", gConnectionString, adOpenStatic, adLockReadOnly, 1
   Max = grsGral.RecordCount
   
   
   For i = 1 To Max
          'Actual Node        
           sp = "nodo" & CStr(i)
          
          TreeView1.Nodes.Add , , sp, grsGral.Fields(1).Value, 1
          grsGral.MoveNext
   Next
   grsGral.MoveFirst
   
   For i = 1 To Max
    ' leaf
          sp = "nodo" & CStr(i)
          Set rsSeccions = New ADODB.Recordset
          rsSeccions.Open "EXEC spSQL_ShowSeccions_forThis '" & grsGral.Fields(0).Value & "'", gConnectionString, adOpenStatic, adLockReadOnly, 1
          TotalSecciones = rsSeccions.RecordCount
          
          For j = 1 To TotalSecciones
              ' relative son
              sh = sp & "-" & CStr(j) 'j
              TreeView1.Nodes.Add sp, tvwChild, sh, rsSeccions.Fields(0).Value, 2
              
              '*-*-*-
              
               Set rsPositions = New ADODB.Recordset
                  rsPositions.Open "EXEC spSQL_ShowPositions_forThis '" & rsSeccions.Fields(1).Value & "'", gConnectionString, adOpenStatic, adLockReadOnly, 1
                  TotalPosiciones = rsPositions.RecordCount
                  
                  For k = 1 To TotalPosiciones
                      ' La clave del nodo hijo, relativo al nodo sP
                      sh2 = sh & "-" & CStr(k) 'j
                      TreeView1.Nodes.Add sh, tvwChild, sh2, rsPositions.Fields(0).Value, 3
                      rsPositions.MoveNext
                  Next
                  Set rsPositions = Nothing
              '*--*-*-
              
              rsSeccions.MoveNext
          Next
          Set rsSeccions = Nothing
          grsGral.MoveNext
   Next
   
   Set grsGral = Nothing
   End Sub
   
   
10. Helmoet de Zwijger
    27 May 2002 at 15:08

    Hoped to find some example using directories and files...

11. jbamt
    02 Apr 2002 at 12:37

    Sorry, I went back and read it more closely.  I just had to play around with the ImageList control to make it work.

12. jbamt
    02 Apr 2002 at 12:33

    I might have missed it, but I would have liked to have seen how to use images without having to go to the imagelist tutorial.  I know you mentioned imagelist, but perhaps a brief explanation of using the imagelist control with TreeView would have been in order.  If I missed it, I apologize.  Thank you for a very helpful tutorial.

13. Developer Fusion Bot
    01 Jan 1999 at 00:00

    This thread is for discussions of TreeView Control.