form1.frm

Visual Basic程序设计基础》-杨小影-源代码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   1935
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   2535
      _ExtentX        =   4471
      _ExtentY        =   3413
      _Version        =   393217
      Style           =   7
      Appearance      =   1
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
 Dim mynod As Node
 Set mynod = TreeView1.Nodes.Add(, , "sports", "体育")
Set mynod = TreeView1.Nodes.Add("sports", tvwChild, "ball", "球类")
  Set mynod = TreeView1.Nodes.Add("ball", tvwChild, , "足球")
  Set mynod = TreeView1.Nodes.Add("ball", tvwChild, , "篮球")
  Set mynod = TreeView1.Nodes.Add("ball", tvwChild, , "羽毛球")
  Set mynod = TreeView1.Nodes.Add("ball", tvwChild, , "乒乓球")
  Set mynod = TreeView1.Nodes.Add("ball", tvwChild, , "排球")
Set mynod = TreeView1.Nodes.Add("sports", tvwChild, "swim", "游泳")
  Set mynod = TreeView1.Nodes.Add("swim", tvwChild, , "蛙泳")
      Set mynod = TreeView1.Nodes.Add("swim", tvwChild, , "自由泳")
      Set mynod = TreeView1.Nodes.Add("swim", tvwChild, , "蝶泳")
      Set mynod = TreeView1.Nodes.Add("swim", tvwChild, , "仰泳")
Set mynod = TreeView1.Nodes.Add(, , "army", "军事")
Set mynod = TreeView1.Nodes.Add("army", tvwChild, "kinds", "军种")
  Set mynod = TreeView1.Nodes.Add("kinds", tvwChild, , "空军")
  Set mynod = TreeView1.Nodes.Add("kinds", tvwChild, , "陆军")
  Set mynod = TreeView1.Nodes.Add("kinds", tvwChild, , "海军")
Set mynod = TreeView1.Nodes.Add("army", tvwChild, "weapon", "武器")
   Set mynod = TreeView1.Nodes.Add("weapon", tvwChild, , "枪")
   Set mynod = TreeView1.Nodes.Add("weapon", tvwChild, , "炮")
   Set mynod = TreeView1.Nodes.Add("weapon", tvwChild, , "原子弹")
  Set mynod = TreeView1.Nodes.Add("weapon", tvwChild, , "航空母舰")
mynod.EnsureVisible
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case Node.Text
    Case "足球"
      MsgBox "中国足球必然腾飞", vbOKOnly, "足球 "
   Case "乒乓球"
      MsgBox "中国乒乓球称霸世界", vbOKOnly, "乒乓球 "
 End Select
End Sub