frmtreeview.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmTreeView 
   Caption         =   "TreeView"
   ClientHeight    =   3984
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   6480
   LinkTopic       =   "Form1"
   ScaleHeight     =   3984
   ScaleWidth      =   6480
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   495
      Left            =   4680
      TabIndex        =   5
      Top             =   3000
      Width           =   1455
   End
   Begin VB.Frame fraAdd 
      Height          =   2655
      Left            =   3360
      TabIndex        =   7
      Top             =   120
      Width           =   2895
      Begin VB.CommandButton cmdAdd 
         Caption         =   "&Add Name"
         Default         =   -1  'True
         Height          =   495
         Left            =   1200
         TabIndex        =   4
         Top             =   1800
         Width           =   1455
      End
      Begin VB.TextBox txtFirstName 
         Height          =   285
         Left            =   360
         TabIndex        =   3
         Top             =   1200
         Width           =   2295
      End
      Begin VB.TextBox txtLastName 
         Height          =   285
         Left            =   360
         TabIndex        =   1
         Top             =   480
         Width           =   2295
      End
      Begin VB.Label Label2 
         Caption         =   "First Name"
         Height          =   255
         Left            =   360
         TabIndex        =   2
         Top             =   960
         Width           =   1455
      End
      Begin VB.Label Label1 
         Caption         =   "Last Name"
         Height          =   255
         Left            =   360
         TabIndex        =   0
         Top             =   240
         Width           =   1335
      End
   End
   Begin MSComctlLib.TreeView treNames 
      Height          =   3735
      Left            =   120
      TabIndex        =   6
      Top             =   120
      Width           =   3015
      _ExtentX        =   5313
      _ExtentY        =   6583
      _Version        =   393217
      LineStyle       =   1
      Sorted          =   -1  'True
      Style           =   7
      ImageList       =   "ilsBook"
      Appearance      =   1
   End
   Begin MSComctlLib.ImageList ilsBook 
      Left            =   3480
      Top             =   3000
      _ExtentX        =   995
      _ExtentY        =   995
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   3
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTreeView.frx":0000
            Key             =   "FolderClosed"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTreeView.frx":0454
            Key             =   "FolderOpen"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmTreeView.frx":08A8
            Key             =   "Card"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmTreeView"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Project:       TreeView and ImageList
'Date:          2/2000
'Programmer:    Bradley/Millspaugh
'Description:   Demonstrates the use of a TreeView with an ImageList.
'               Adds nodes at run time
'Folder:        Ch02TreeView

Option Explicit

Private Sub cmdAdd_Click()
    'Add a name to the name list
    Dim strLetter       As String
    Dim strName         As String
    Dim nodTemp         As Node
    
    If txtLastName.Text <> "" Then
        strLetter = UCase(Left$(txtLastName.Text, 1))
        strName = txtLastName.Text & ", " & txtFirstName.Text
        Set nodTemp = treNames.Nodes.Add(strLetter, tvwChild, , _
                      strName, "Card")
        treNames.Nodes(strLetter).Sorted = True 'Resort this node
        txtLastName.Text = ""
        txtFirstName.Text = ""
        txtLastName.SetFocus
    End If
End Sub

Private Sub cmdExit_Click()
    'Exit the application
    
    Unload Me
End Sub

Private Sub Form_Load()
    'Add the root nodes for the address book
    Dim nodTemp As Node
    
    Set nodTemp = treNames.Nodes.Add(, , "A", "A", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "B", "B", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "C", "C", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "D", "D", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "E", "E", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "F", "F", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "G", "G", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "H", "H", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "I", "I", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "J", "J", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "K", "K", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "L", "L", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "M", "M", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "N", "N", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "O", "O", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "P", "P", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "Q", "Q", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "R", "R", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "S", "S", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "T", "T", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "U", "U", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "V", "V", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "W", "W", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "X", "X", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "Y", "Y", "FolderClosed", "FolderOpen")
    Set nodTemp = treNames.Nodes.Add(, , "Z", "Z", "FolderClosed", "FolderOpen")
End Sub

Private Sub treNames_Collapse(ByVal Node As MSComctlLib.Node)
    'Change image for collapsed node
    
    Node.Image = "FolderClosed"
End Sub

Private Sub treNames_Expand(ByVal Node As MSComctlLib.Node)
    'Change image for expanded node
    
    Node.Image = "FolderOpen"
End Sub