form1.frm

二叉树的遍历、线索化、遍历线索化二叉树等算法；深度搜索优先、广度搜索优先算法

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5235
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10980
   LinkTopic       =   "Form1"
   ScaleHeight     =   5235
   ScaleWidth      =   10980
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   10980
      _ExtentX        =   19368
      _ExtentY        =   741
      ButtonWidth     =   635
      ButtonHeight    =   582
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   2
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "A"
            Object.ToolTipText     =   "连接到数据库服务器"
            Object.Tag             =   ""
            ImageIndex      =   3
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Key             =   "B"
            Object.ToolTipText     =   "打开一个地图文件"
            Object.Tag             =   ""
            ImageIndex      =   10
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin VB.TextBox Text2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000004&
         BorderStyle     =   0  'None
         Height          =   255
         Left            =   5940
         TabIndex        =   7
         Text            =   "数据库服务器名称："
         Top             =   60
         Width           =   1665
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Height          =   285
         Left            =   7620
         TabIndex        =   6
         Text            =   "汉字"
         Top             =   60
         Width           =   1265
      End
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   2475
      Left            =   2430
      MousePointer    =   9  'Size W E
      ScaleHeight     =   2445
      ScaleWidth      =   45
      TabIndex        =   9
      Top             =   510
      Width           =   75
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   8
      Top             =   4920
      Width           =   10980
      _ExtentX        =   19368
      _ExtentY        =   556
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   4304
            MinWidth        =   4304
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   4304
            MinWidth        =   4304
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   7831
            MinWidth        =   7831
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   510
      Top             =   4530
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   3885
      Left            =   8760
      TabIndex        =   3
      Top             =   420
      Width           =   225
   End
   Begin VB.HScrollBar HScroll1 
      Height          =   225
      Left            =   2400
      TabIndex        =   2
      Top             =   4290
      Width           =   6585
   End
   Begin VB.PictureBox P1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   3795
      Left            =   2670
      ScaleHeight     =   3765
      ScaleWidth      =   5475
      TabIndex        =   1
      Top             =   420
      Width           =   5505
      Begin VB.PictureBox P2 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         ForeColor       =   &H80000008&
         Height          =   1755
         Left            =   0
         ScaleHeight     =   1725
         ScaleWidth      =   2715
         TabIndex        =   4
         Top             =   0
         Width           =   2745
         Begin VB.TextBox Text3 
            Appearance      =   0  'Flat
            BackColor       =   &H0000FFFF&
            ForeColor       =   &H00FF0000&
            Height          =   285
            Index           =   0
            Left            =   270
            TabIndex        =   10
            Text            =   "Text3"
            Top             =   180
            Visible         =   0   'False
            Width           =   1095
         End
      End
   End
   Begin ComctlLib.TreeView TreeView1 
      Height          =   4095
      Left            =   0
      TabIndex        =   0
      Top             =   420
      Width           =   2355
      _ExtentX        =   4154
      _ExtentY        =   7223
      _Version        =   327682
      Style           =   7
      ImageList       =   "ImageList1"
      BorderStyle     =   1
      Appearance      =   0
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   6960
      Top             =   4800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   11
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":031A
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0634
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":094E
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0A60
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":0D7A
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":1094
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":11A6
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":12B8
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":13CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "Form1.frx":16E4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu Op 
      Caption         =   "项目"
      Begin VB.Menu NewProject 
         Caption         =   "新建项目名称"
      End
      Begin VB.Menu NewSubProject 
         Caption         =   "新建图例项目"
      End
      Begin VB.Menu s5 
         Caption         =   "-"
      End
      Begin VB.Menu lDg 
         Caption         =   "载入当前项目下的图"
      End
      Begin VB.Menu s4 
         Caption         =   "-"
      End
      Begin VB.Menu Att 
         Caption         =   "属性"
      End
   End
   Begin VB.Menu Graph 
      Caption         =   "图"
      Begin VB.Menu SelV 
         Caption         =   "选中当前顶点"
      End
      Begin VB.Menu SelaArc 
         Caption         =   "选择当前的弧"
      End
      Begin VB.Menu s3 
         Caption         =   "-"
      End
      Begin VB.Menu selS 
         Caption         =   "当前顶点设置为起点"
      End
      Begin VB.Menu selE 
         Caption         =   "当前顶点设置为终点"
      End
      Begin VB.Menu DrawVer 
         Caption         =   "连接选择的顶点"
      End
      Begin VB.Menu s2 
         Caption         =   "-"
      End
      Begin VB.Menu SaveVert 
         Caption         =   "保存顶点数据"
      End
      Begin VB.Menu SaveArc 
         Caption         =   "保存弧数据"
      End
      Begin VB.Menu s8 
         Caption         =   "-"
      End
      Begin VB.Menu SaveAll 
         Caption         =   "保存全部数据"
      End
      Begin VB.Menu s7 
         Caption         =   "-"
      End
      Begin VB.Menu Pcls 
         Caption         =   "刷新图形"
      End
      Begin VB.Menu s0 
         Caption         =   "-"
      End
      Begin VB.Menu DelArc 
         Caption         =   "删除一条弧"
      End
   End
   Begin VB.Menu Fin 
      Caption         =   "结束"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim br1 As Boolean
Dim br2 As Boolean
Dim DbStatus As Boolean
Dim sAKey As String
Dim iCurProType As Integer
Dim fCurX, fCurY As Single
Dim iStartNode As Integer
Dim iEndNode As Integer
Dim iSelNode As Integer
Dim iSelArc As Integer
Dim fOX As Single
Dim fOY As Single
Dim hDt, vDt As Single

Sub txtAppend(ByVal PosX As Single, ByVal PosY As Single, ByVal sTitle As String, bSelect As Boolean)
    Text3(i).Top = PosY
    Text3(i).Left = PosX
    Text3(i).Visible = True
    Text3(i).Text = sTitle
    Text3(i).Visible = True
    If bSelect Then
        Text3(txtNum).SelStart = 0
        Text3(txtNum).SelLength = Len(txtBox(txtNum).Text)