home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch08 / tview1 / tview1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-04-22  |  7.2 KB  |  208 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form TreeViewForm 
  4.    Caption         =   "TreeView Demo Project"
  5.    ClientHeight    =   3585
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   5640
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3585
  11.    ScaleWidth      =   5640
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.CommandButton Command6 
  14.       Caption         =   "Populate Sorted"
  15.       BeginProperty Font 
  16.          Name            =   "Verdana"
  17.          Size            =   9
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   390
  25.       Left            =   3585
  26.       TabIndex        =   6
  27.       Top             =   3030
  28.       Width           =   1935
  29.    End
  30.    Begin VB.CommandButton Command5 
  31.       Caption         =   "Scan Nodes"
  32.       Enabled         =   0   'False
  33.       BeginProperty Font 
  34.          Name            =   "Verdana"
  35.          Size            =   9
  36.          Charset         =   0
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       Height          =   390
  43.       Left            =   3570
  44.       TabIndex        =   5
  45.       Top             =   2454
  46.       Width           =   1935
  47.    End
  48.    Begin VB.CommandButton Command4 
  49.       Caption         =   "Populate"
  50.       BeginProperty Font 
  51.          Name            =   "Verdana"
  52.          Size            =   9
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   390
  60.       Left            =   3585
  61.       TabIndex        =   4
  62.       Top             =   1878
  63.       Width           =   1935
  64.    End
  65.    Begin VB.CommandButton Command3 
  66.       Caption         =   "Add Shapes"
  67.       Enabled         =   0   'False
  68.       BeginProperty Font 
  69.          Name            =   "Verdana"
  70.          Size            =   9
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   390
  78.       Left            =   3585
  79.       TabIndex        =   3
  80.       Top             =   1302
  81.       Width           =   1935
  82.    End
  83.    Begin VB.CommandButton Command2 
  84.       Caption         =   "Add Colors"
  85.       Enabled         =   0   'False
  86.       BeginProperty Font 
  87.          Name            =   "Verdana"
  88.          Size            =   9
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   390
  96.       Left            =   3570
  97.       TabIndex        =   2
  98.       Top             =   726
  99.       Width           =   1935
  100.    End
  101.    Begin VB.CommandButton Command1 
  102.       Caption         =   "Add Categories"
  103.       BeginProperty Font 
  104.          Name            =   "Verdana"
  105.          Size            =   9
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   390
  113.       Left            =   3570
  114.       TabIndex        =   1
  115.       Top             =   150
  116.       Width           =   1935
  117.    End
  118.    Begin ComctlLib.TreeView TreeView1 
  119.       Height          =   3270
  120.       Left            =   135
  121.       TabIndex        =   0
  122.       Top             =   150
  123.       Width           =   3240
  124.       _ExtentX        =   5715
  125.       _ExtentY        =   5768
  126.       _Version        =   393217
  127.       Style           =   6
  128.       Appearance      =   1
  129.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  130.          Name            =   "Comic Sans MS"
  131.          Size            =   9.75
  132.          Charset         =   0
  133.          Weight          =   700
  134.          Underline       =   0   'False
  135.          Italic          =   0   'False
  136.          Strikethrough   =   0   'False
  137.       EndProperty
  138.       _Nodes          =   "TView1.frx":0000
  139.    End
  140. Attribute VB_Name = "TreeViewForm"
  141. Attribute VB_GlobalNameSpace = False
  142. Attribute VB_Creatable = False
  143. Attribute VB_PredeclaredId = True
  144. Attribute VB_Exposed = False
  145. '  ******************************
  146. '  ******************************
  147. '  ** MASTERING VB6            **
  148. '  ** by Evangelos Petroutos   **
  149. '  ** SYBEX, 1998              **
  150. '  ******************************
  151. '  ******************************
  152. Private Sub Command1_Click()
  153.     TreeView1.Nodes.Clear
  154.     TreeView1.Nodes.Add , , "SHAPE", "Shapes"
  155.     TreeView1.Nodes.Add , , "SOLID", "Solids"
  156.     TreeView1.Nodes.Add , , "COLOR", "Colors"
  157.     Command2.Enabled = True
  158.     Command3.Enabled = True
  159.     Command5.Enabled = True
  160. End Sub
  161. Private Sub Command2_Click()
  162.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Pink"
  163.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Maroon"
  164.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Teal"
  165. End Sub
  166. Private Sub Command3_Click()
  167.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Square"
  168.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Triangle"
  169.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Circle"
  170. End Sub
  171. Private Sub Command4_Click()
  172.     TreeView1.Nodes.Clear
  173.     TreeView1.Nodes.Add , , "ITEM", "Items"
  174.     TreeView1.Nodes.Add "ITEM", tvwChild, "SHAPE", "Shapes"
  175.     TreeView1.Nodes.Add "ITEM", tvwChild, "SOLID", "Solids"
  176.     TreeView1.Nodes.Add "ITEM", tvwChild, "COLOR", "Colors"
  177.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Pink"
  178.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Maroon"
  179.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Teal"
  180.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Square"
  181.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Triangle"
  182.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Circle"
  183.     TreeView1.Nodes.Item("ITEM").Expanded = True
  184. End Sub
  185. Private Sub Command5_Click()
  186. Dim node As node
  187. For Each node In TreeView1.Nodes
  188.     Debug.Print node.Text
  189. End Sub
  190. Private Sub Command6_Click()
  191. Dim thisNode As node
  192.     TreeView1.Nodes.Clear
  193.     Set thisNode = TreeView1.Nodes.Add(, , "ITEM", "Items")
  194.     thisNode.Sorted = True
  195.     Set thisNode = TreeView1.Nodes.Add("ITEM", tvwChild, "SHAPE", "Shapes")
  196.     thisNode.Sorted = True
  197.     Set thisNode = TreeView1.Nodes.Add("ITEM", tvwChild, "SOLID", "Solids")
  198.     Set thisNode = TreeView1.Nodes.Add("ITEM", tvwChild, "COLOR", "Colors")
  199.     thisNode.Sorted = True
  200.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Pink"
  201.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Maroon"
  202.     TreeView1.Nodes.Add "COLOR", tvwChild, , "Teal"
  203.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Square"
  204.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Triangle"
  205.     TreeView1.Nodes.Add "SHAPE", tvwChild, , "Circle"
  206.     TreeView1.Nodes.Item("ITEM").Expanded = True
  207. End Sub
  208.