helpform.frm

来自「vb开发的公交查询系统」· FRM 代码 · 共 190 行

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form HelpForm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "软件助手"
   ClientHeight    =   5295
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6240
   Icon            =   "HelpForm.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5295
   ScaleWidth      =   6240
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox HelpPicture 
      AutoSize        =   -1  'True
      Height          =   5340
      Left            =   2640
      Picture         =   "HelpForm.frx":0ABA
      ScaleHeight     =   5280
      ScaleWidth      =   3600
      TabIndex        =   2
      Top             =   0
      Width           =   3660
   End
   Begin MSComctlLib.ImageList HelpImageList 
      Left            =   480
      Top             =   3840
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   8
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":3E8FC
            Key             =   "Close"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":3EB90
            Key             =   "Doing"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":3ECEC
            Key             =   "Open"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":3EE48
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":7CC9C
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":BADC0
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":F8EE4
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "HelpForm.frx":137008
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.TreeView HelpTree 
      Height          =   4815
      Left            =   0
      TabIndex        =   0
      Top             =   480
      Width           =   2535
      _ExtentX        =   4471
      _ExtentY        =   8493
      _Version        =   393217
      Style           =   7
      ImageList       =   "HelpImageList"
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.TabStrip Help1 
      Height          =   5295
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   9340
      MultiRow        =   -1  'True
      TabMinWidth     =   1764
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   2
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "目录"
            Key             =   "TabKey1"
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "索引"
            Key             =   "TabKey2"
            ImageVarType    =   2
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "HelpForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

    Dim Node1, Node2, Node3, Node4, Node5 As Node
    
    Set Node1 = HelpTree.Nodes.Add
    HelpTree.Nodes(1).Text = "公交查询"
    HelpTree.Nodes(1).Key = "Node1"
    HelpTree.Nodes(1).Image = "Close"
    Set Node2 = HelpTree.Nodes.Add("Node1", tvwChild, "Node2")
    HelpTree.Nodes(2).Text = "公交转换乘查询"
    HelpTree.Nodes(2).Key = "Node2"
    HelpTree.Nodes(2).Image = "Open"
    Set Node3 = HelpTree.Nodes.Add("Node1", tvwChild, "Node3")
    HelpTree.Nodes(3).Text = "公交线路查询"
    HelpTree.Nodes(3).Key = "Node3"
    HelpTree.Nodes(3).Image = "Open"
    Set Node4 = HelpTree.Nodes.Add("Node1", tvwChild, "Node4")
    HelpTree.Nodes(4).Text = "公交站点查询"
    HelpTree.Nodes(4).Key = "Node4"
    HelpTree.Nodes(4).Image = "Open"
    Set Node5 = HelpTree.Nodes.Add("Node1", tvwChild, "Node5")
    HelpTree.Nodes(5).Text = "主要公共场所查询"
    HelpTree.Nodes(5).Key = "Node5"
    HelpTree.Nodes(5).Image = "Open"

    HelpPicture.Picture = HelpImageList.ListImages(4).Picture

End Sub

Private Sub HelpTree_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Image = "Close"
End Sub

Private Sub HelpTree_Expand(ByVal Node As MSComctlLib.Node)
    Node.Image = "Doing"
End Sub


Private Sub HelpTree_NodeClick(ByVal Node As MSComctlLib.Node)

    Select Case Node.Key
    Case "Node1"
        HelpPicture.Picture = HelpImageList.ListImages(4).Picture
    Case "Node2"
        HelpPicture.Picture = HelpImageList.ListImages(5).Picture
    Case "Node3"
        HelpPicture.Picture = HelpImageList.ListImages(6).Picture
    Case "Node4"
        HelpPicture.Picture = HelpImageList.ListImages(7).Picture
    Case "Node5"
        HelpPicture.Picture = HelpImageList.ListImages(8).Picture
    End Select

End Sub