form1.vb

用vb.net和gis组建MO实现了一个地名数据库地理信息系统

Imports Crownwood.Magic.Menus
Imports Crownwood.Magic.Common
Imports Crownwood.Magic.Controls
Imports Crownwood.Magic.Docking
Imports Crownwood.Magic.Win32

Imports UtilityLibrary.Menus
Imports UtilityLibrary.CommandBars
Imports UtilityLibrary.WinControls
Imports UtilityLibrary.General
Imports UtilityLibrary.Win32
Imports UtilityLibrary.Collections


Public Class MainForm
    Inherits System.Windows.Forms.Form

    '---------------------------------------------------------------------
    Enum TVType
        TV_maps = 0
        TV_Layers
        TV_Legend
    End Enum
    '---------------------------------------------------------------------
    Private _manager As DockingManager  ' 窗口管理器
    Private _wc As WindowContent        ' 窗口内容实体
    '---------------------------------------------------------------------
    '常量
    Private Const NOFILTER As String = "(全部类型)"
    Private Const NOSUBFILTER As String = "(全部子类型)"
    Private Const FONTNAME As String = "楷体"
    Private Const MYFONTHEIGHT As Integer = 2500
    Private Const MAX_SCALE As Double = 4000
    Private Const MIN_SCALE As Double = 20000
    '---------------------------------------------------------------------
    '资源
    Private _imagesWorkspace As ImageList
    Private _imagesToolbar16 As ImageList
    Private _imagesToolbar16_2 As ImageList
    Private _imagesMaps As ImageList
    Private _imagesVisible As ImageList
    '---------------------------------------------------------------------
    Public _environment As CEnvironment
    Public _mapEye As AxMapObjects2.AxMap  ' 鹰眼地图对象

    ' 查询窗口
    Private _cInfoWnd As Crownwood.Magic.Docking.Content     ' 信息窗口
    Private _cEyeWnd As Crownwood.Magic.Docking.Content      ' 鹰眼窗口
    Private _cIndexWnd As Crownwood.Magic.Docking.Content    ' 地名索引窗口
    Private _cQueryWnd As Crownwood.Magic.Docking.Content    ' 地名查询窗口
    Private _cHelpWnd As Crownwood.Magic.Docking.Content     ' 帮助窗口

    Private _tvMaps As TreeView    ' 地图索引树状列表
    Private _tvLayers As TreeView  ' 地图控制树状列表
    Private _tvLegend As TreeView  ' 图列树状列表

    Public _mapOutlookBar As OutlookBar
    Public _queryOutlookBar As OutlookBar
    Public _helpOutlookBar As OutlookBar

    Private _bTVChecked As Boolean = True

    Public _frmInfo As frmInfo = Nothing

    ' 地名查询类型
    Private _query_szType As String = ""
    ' 距离查询类型
    Private _dist_szType As String = ""
    Private _bus_bTextBox As Boolean = True

    Private _index_szType As String = ""
    Private _index_szSubType As String = ""
    Private _index_bTextBox As Boolean = True

    Private _netLayer As MapObjects2.MapLayer = Nothing
    Private _netLayer1 As NetLayer = Nothing
    Private _path As ArrayList = Nothing

    Private _mapTip As MapTip = Nothing

#Region " Windows Form Designer generated code "

    '---------------------------------------------------------------------
    Public Sub New()
        MyBase.New()

        '装载资源
        LoadResources()
        ' 初始化_environment成员变量
        Initialize()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call        
        CreateMapControlToolBar()
        CreateFeatrueControlToolbar()

        _manager = New DockingManager(Me, Crownwood.Magic.Common.VisualStyle.IDE)
        _manager.OuterControl = _statusBar

        '装载数据
        LoadData()
        CreateWorkspace()

        _WebBrowser.Visible = False
        Dim ob As New Object()
        _WebBrowser.Navigate(_environment.m_szHelpPath, ob, ob, ob, ob)

        _mapTip = New MapTip(Me)
    End Sub
    '---------------------------------------------------------------------

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents MapControlToolBar As System.Windows.Forms.ToolBar
    Friend WithEvents Map As AxMapObjects2.AxMap
    Friend WithEvents _statusBar As System.Windows.Forms.StatusBar
    Friend WithEvents statusBarPanel1 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents statusBarPanel2 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents statusBarPanel3 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents statusBarPanel4 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents FeatureControlToolBar As System.Windows.Forms.ToolBar
    Friend WithEvents _panelIndex As System.Windows.Forms.Panel
    Friend WithEvents _index_comboBoxFilter2 As System.Windows.Forms.ComboBox
    Friend WithEvents _index_listBox As System.Windows.Forms.ListBox
    Friend WithEvents _index_comboBoxFilter As System.Windows.Forms.ComboBox
    Friend WithEvents _index_txtName As System.Windows.Forms.TextBox
    Friend WithEvents _index_label2 As System.Windows.Forms.Label
    Friend WithEvents _index_label1 As System.Windows.Forms.Label
    Friend WithEvents _panelQuery As System.Windows.Forms.Panel
    Friend WithEvents _query_comboBoxFilter2 As System.Windows.Forms.ComboBox
    Friend WithEvents _query_button As System.Windows.Forms.Button
    Friend WithEvents _query_checkBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents _query_checkBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents _query_checkBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents _query_comboBoxFilter As System.Windows.Forms.ComboBox
    Friend WithEvents _query_txtTel As System.Windows.Forms.TextBox
    Friend WithEvents _query_txtName As System.Windows.Forms.TextBox
    Friend WithEvents _query_label3 As System.Windows.Forms.Label
    Friend WithEvents _query_label2 As System.Windows.Forms.Label
    Friend WithEvents _query_label1 As System.Windows.Forms.Label
    Friend WithEvents _panelDist As System.Windows.Forms.Panel
    Friend WithEvents _dis_label_Note As System.Windows.Forms.Label
    Friend WithEvents _dist_comboBoxFilter2 As System.Windows.Forms.ComboBox
    Friend WithEvents _dist_comboBoxFilter As System.Windows.Forms.ComboBox
    Friend WithEvents _dist_button As System.Windows.Forms.Button
    Friend WithEvents _dist_radioButton2 As System.Windows.Forms.RadioButton
    Friend WithEvents _dist_radioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents _dist_comboBoxPos As System.Windows.Forms.ComboBox
    Friend WithEvents _dist_label1 As System.Windows.Forms.Label
    Friend WithEvents _dist_txtName As System.Windows.Forms.TextBox
    Friend WithEvents _panelBus As System.Windows.Forms.Panel
    Friend WithEvents _bus_checkBox7 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox6 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox5 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox4 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox3 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox2 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_checkBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents _bus_button As System.Windows.Forms.Button
    Friend WithEvents _Bus_listBox As System.Windows.Forms.ListBox
    Friend WithEvents _Bus_radioButton_Line As System.Windows.Forms.RadioButton
    Friend WithEvents _Bus_radioButton_Station As System.Windows.Forms.RadioButton
    Friend WithEvents _Bus_textBox As System.Windows.Forms.TextBox
    Friend WithEvents _panelOutput As System.Windows.Forms.Panel
    Friend WithEvents _output_button3 As System.Windows.Forms.Button
    Friend WithEvents _output_button1 As System.Windows.Forms.Button
    Public WithEvents _output_listBox As System.Windows.Forms.ListBox
    Public WithEvents _Output_label As System.Windows.Forms.Label
    Friend WithEvents _comboBox As System.Windows.Forms.ComboBox
    Public WithEvents _timer As System.Windows.Forms.Timer
    Public WithEvents _picToolTip As System.Windows.Forms.PictureBox
    Public WithEvents _lblToolTip As System.Windows.Forms.Label
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog
    Friend WithEvents _WebBrowser As AxSHDocVw.AxWebBrowser
    Friend WithEvents _panelHelp As System.Windows.Forms.Panel
    Friend WithEvents _WebBrowser2 As AxSHDocVw.AxWebBrowser
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(MainForm))
        Me.MapControlToolBar = New System.Windows.Forms.ToolBar()
        Me.Map = New AxMapObjects2.AxMap()
        Me._statusBar = New System.Windows.Forms.StatusBar()
        Me.statusBarPanel1 = New System.Windows.Forms.StatusBarPanel()
        Me.statusBarPanel2 = New System.Windows.Forms.StatusBarPanel()
        Me.statusBarPanel3 = New System.Windows.Forms.StatusBarPanel()
        Me.statusBarPanel4 = New System.Windows.Forms.StatusBarPanel()
        Me.FeatureControlToolBar = New System.Windows.Forms.ToolBar()
        Me._panelIndex = New System.Windows.Forms.Panel()
        Me._index_comboBoxFilter2 = New System.Windows.Forms.ComboBox()
        Me._index_listBox = New System.Windows.Forms.ListBox()
        Me._index_comboBoxFilter = New System.Windows.Forms.ComboBox()
        Me._index_txtName = New System.Windows.Forms.TextBox()
        Me._index_label2 = New System.Windows.Forms.Label()
        Me._index_label1 = New System.Windows.Forms.Label()
        Me._panelQuery = New System.Windows.Forms.Panel()
        Me._query_comboBoxFilter2 = New System.Windows.Forms.ComboBox()
        Me._query_button = New System.Windows.Forms.Button()
        Me._query_checkBox3 = New System.Windows.Forms.CheckBox()
        Me._query_checkBox2 = New System.Windows.Forms.CheckBox()
        Me._query_checkBox1 = New System.Windows.Forms.CheckBox()
        Me._query_comboBoxFilter = New System.Windows.Forms.ComboBox()
        Me._query_txtTel = New System.Windows.Forms.TextBox()
        Me._query_txtName = New System.Windows.Forms.TextBox()
        Me._query_label3 = New System.Windows.Forms.Label()
        Me._query_label2 = New System.Windows.Forms.Label()
        Me._query_label1 = New System.Windows.Forms.Label()
        Me._panelDist = New System.Windows.Forms.Panel()
        Me._dis_label_Note = New System.Windows.Forms.Label()
        Me._dist_comboBoxFilter2 = New System.Windows.Forms.ComboBox()
        Me._dist_comboBoxFilter = New System.Windows.Forms.ComboBox()
        Me._dist_button = New System.Windows.Forms.Button()
        Me._dist_radioButton2 = New System.Windows.Forms.RadioButton()
        Me._dist_radioButton1 = New System.Windows.Forms.RadioButton()
        Me._dist_comboBoxPos = New System.Windows.Forms.ComboBox()
        Me._dist_label1 = New System.Windows.Forms.Label()
        Me._dist_txtName = New System.Windows.Forms.TextBox()
        Me._panelBus = New System.Windows.Forms.Panel()
        Me._bus_checkBox7 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox6 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox5 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox4 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox3 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox2 = New System.Windows.Forms.CheckBox()
        Me._bus_checkBox1 = New System.Windows.Forms.CheckBox()
        Me._bus_button = New System.Windows.Forms.Button()
        Me._Bus_listBox = New System.Windows.Forms.ListBox()
        Me._Bus_radioButton_Line = New System.Windows.Forms.RadioButton()
        Me._Bus_radioButton_Station = New System.Windows.Forms.RadioButton()
        Me._Bus_textBox = New System.Windows.Forms.TextBox()
        Me._panelOutput = New System.Windows.Forms.Panel()
        Me._output_button3 = New System.Windows.Forms.Button()
        Me._output_button1 = New System.Windows.Forms.Button()
        Me._output_listBox = New System.Windows.Forms.ListBox()
        Me._Output_label = New System.Windows.Forms.Label()
        Me._comboBox = New System.Windows.Forms.ComboBox()
        Me._timer = New System.Windows.Forms.Timer(Me.components)
        Me._picToolTip = New System.Windows.Forms.PictureBox()
        Me._lblToolTip = New System.Windows.Forms.Label()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
        Me._WebBrowser = New AxSHDocVw.AxWebBrowser()