form1.vb

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

        Me._comboBox.Location = New System.Drawing.Point(504, 376)
        Me._comboBox.Name = "_comboBox"
        Me._comboBox.Size = New System.Drawing.Size(96, 20)
        Me._comboBox.TabIndex = 18
        '
        '_timer
        '
        Me._timer.Enabled = True
        '
        '_picToolTip
        '
        Me._picToolTip.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me._picToolTip.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me._picToolTip.Location = New System.Drawing.Point(284, 190)
        Me._picToolTip.Name = "_picToolTip"
        Me._picToolTip.Size = New System.Drawing.Size(64, 16)
        Me._picToolTip.TabIndex = 27
        Me._picToolTip.TabStop = False
        '
        '_lblToolTip
        '
        Me._lblToolTip.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
        Me._lblToolTip.Location = New System.Drawing.Point(292, 190)
        Me._lblToolTip.Name = "_lblToolTip"
        Me._lblToolTip.Size = New System.Drawing.Size(48, 16)
        Me._lblToolTip.TabIndex = 28
        Me._lblToolTip.Text = "label1"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "全图输出为位图"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "屏幕输出为位图"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "打印全图"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "打印屏幕内容"
        '
        'SaveFileDialog1
        '
        Me.SaveFileDialog1.FileName = "doc1"
        Me.SaveFileDialog1.Filter = "位图文件 (*.bmp)|*.bmp"
        '
        '_WebBrowser
        '
        Me._WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
        Me._WebBrowser.Enabled = True
        Me._WebBrowser.Location = New System.Drawing.Point(39, 39)
        Me._WebBrowser.OcxState = CType(resources.GetObject("_WebBrowser.OcxState"), System.Windows.Forms.AxHost.State)
        Me._WebBrowser.Size = New System.Drawing.Size(593, 334)
        Me._WebBrowser.TabIndex = 29
        '
        '_panelHelp
        '
        Me._panelHelp.Controls.AddRange(New System.Windows.Forms.Control() {Me._WebBrowser2})
        Me._panelHelp.Location = New System.Drawing.Point(240, 106)
        Me._panelHelp.Name = "_panelHelp"
        Me._panelHelp.Size = New System.Drawing.Size(152, 184)
        Me._panelHelp.TabIndex = 30
        '
        '_WebBrowser2
        '
        Me._WebBrowser2.ContainingControl = Me
        Me._WebBrowser2.Dock = System.Windows.Forms.DockStyle.Fill
        Me._WebBrowser2.Enabled = True
        Me._WebBrowser2.OcxState = CType(resources.GetObject("_WebBrowser2.OcxState"), System.Windows.Forms.AxHost.State)
        Me._WebBrowser2.Size = New System.Drawing.Size(152, 184)
        Me._WebBrowser2.TabIndex = 21
        '
        'MainForm
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(632, 397)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me._WebBrowser, Me._lblToolTip, Me._picToolTip, Me._comboBox, Me._panelOutput, Me._panelBus, Me._panelDist, Me._panelQuery, Me._panelIndex, Me.FeatureControlToolBar, Me._statusBar, Me.Map, Me.MapControlToolBar, Me._panelHelp})
        Me.Name = "MainForm"
        Me.Text = "北京市地理信息公众查询系统"
        CType(Me.Map, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.statusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.statusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.statusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.statusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me._panelIndex.ResumeLayout(False)
        Me._panelQuery.ResumeLayout(False)
        Me._panelDist.ResumeLayout(False)
        Me._panelBus.ResumeLayout(False)
        Me._panelOutput.ResumeLayout(False)
        CType(Me._WebBrowser, System.ComponentModel.ISupportInitialize).EndInit()
        Me._panelHelp.ResumeLayout(False)
        CType(Me._WebBrowser2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    '---------------------------------------------------------------------
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If _environment.m_nCurrMapIndex >= 0 Then
            ' 在地图窗口中加入图层
            LoadLayers()
            ' 在鹰眼地图窗口中加入图层
            LoadLayersForEagleEye()
        End If

        ' 依据显示比例尺控制图层显示
        ReShowLayers()
        ' 重新调整地名快捷方式工具条上按钮的状态
        ReloadToolbar()

        Map.Extent = _environment.m_mapInfos(0).rect
        Map.MousePointer = MapObjects2.MousePointerConstants.moArrow
    End Sub
    '---------------------------------------------------------------------
    ' 功能：为图像列表控件装载图像资源
    ' 参数：无
    ' 返回值：void
    Private Sub LoadResources()
        _imagesToolbar16 = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
               "NameGIS.Toolbar16.bmp", _
               New System.Drawing.Size(16, 16), _
               New System.Drawing.Point(0, 0))
        _imagesToolbar16_2 = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
               "NameGIS.Toolbar2.bmp", _
               New System.Drawing.Size(16, 16), _
               New System.Drawing.Point(0, 0))
        _imagesWorkspace = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
               "NameGIS.Workspace.bmp", _
               New System.Drawing.Size(16, 16), _
               New System.Drawing.Point(0, 0))
        _imagesMaps = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
               "NameGIS.Maps.bmp", _
               New System.Drawing.Size(16, 16), _
               New System.Drawing.Point(0, 0))
        _imagesVisible = ResourceHelper.LoadBitmapStrip(Me.GetType(), _
               "NameGIS.Visible.bmp", _
               New System.Drawing.Size(16, 16), _
               New System.Drawing.Point(0, 0))
    End Sub
    '---------------------------------------------------------------------

    '---------------------------------------------------------------------
    ' 功能：创建地名分布快捷方式工具条
    ' 参数：无
    ' 返回值：void
    Protected Sub CreateMapControlToolBar()
        MapControlToolBar.ImageList = _imagesToolbar16

        Dim toolBarButton0 As New ToolBarButton()
        toolBarButton0.Style = System.Windows.Forms.ToolBarButtonStyle.Separator

        Dim toolBarButton1 As New ToolBarButton()
        toolBarButton1.ImageIndex = 0
        toolBarButton1.ToolTipText = "放大"
        toolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton2 As New ToolBarButton()
        toolBarButton2.ImageIndex = 1
        toolBarButton2.ToolTipText = "缩小"
        toolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton3 As New ToolBarButton()
        toolBarButton3.ImageIndex = 2
        toolBarButton3.ToolTipText = "全图显示"

        Dim toolBarButton4 As New ToolBarButton()
        toolBarButton4.ImageIndex = 3
        toolBarButton4.ToolTipText = "漫游"
        toolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton5 As New ToolBarButton()
        toolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator

        Dim toolBarButton7 As New ToolBarButton()
        toolBarButton7.ImageIndex = 5
        toolBarButton7.ToolTipText = "点选择"
        toolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton8 As New ToolBarButton()
        toolBarButton8.ImageIndex = 7
        toolBarButton8.ToolTipText = "矩形选择"
        toolBarButton8.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton9 As New ToolBarButton()
        toolBarButton9.ImageIndex = 6
        toolBarButton9.ToolTipText = "圆选择"
        toolBarButton9.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton10 As New ToolBarButton()
        toolBarButton10.ImageIndex = 8
        toolBarButton10.ToolTipText = "多边形选择"
        toolBarButton10.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton11 As New ToolBarButton()
        toolBarButton11.ImageIndex = 9
        toolBarButton11.ToolTipText = "信息"
        toolBarButton11.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton30 As New ToolBarButton()
        toolBarButton30.ImageIndex = 25
        toolBarButton30.ToolTipText = "地图索引"

        Dim toolBarButton31 As New ToolBarButton()
        toolBarButton31.ImageIndex = 26
        toolBarButton31.ToolTipText = "地图控制"

        Dim toolBarButton32 As New ToolBarButton()
        toolBarButton32.ImageIndex = 27
        toolBarButton32.ToolTipText = "图例"

        Dim toolBarButton12 As New ToolBarButton()
        toolBarButton12.ImageIndex = 10
        toolBarButton12.ToolTipText = "地名索引"

        Dim toolBarButton13 As New ToolBarButton()
        toolBarButton13.ImageIndex = 11
        toolBarButton13.ToolTipText = "地名查询"

        Dim toolBarButton14 As New ToolBarButton()
        toolBarButton14.ImageIndex = 12
        toolBarButton14.ToolTipText = "查找最近地名"

        Dim toolBarButton15 As New ToolBarButton()
        toolBarButton15.ImageIndex = 13
        toolBarButton15.ToolTipText = "公共交通查询"

        Dim toolBarButton16 As New ToolBarButton()
        toolBarButton16.ImageIndex = 14
        toolBarButton16.ToolTipText = "线量算"
        toolBarButton16.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton17 As New ToolBarButton()
        toolBarButton17.ImageIndex = 15
        toolBarButton17.ToolTipText = "面量算"
        toolBarButton17.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton33 As New ToolBarButton()
        toolBarButton33.ImageIndex = 24
        toolBarButton33.ToolTipText = "最短路径"
        toolBarButton33.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton

        Dim toolBarButton18 As New ToolBarButton()
        toolBarButton18.ImageIndex = 18
        toolBarButton18.ToolTipText = "购物分布"
        toolBarButton18.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton18.Pushed = True

        Dim toolBarButton19 As New ToolBarButton()
        toolBarButton19.ImageIndex = 19
        toolBarButton19.ToolTipText = "旅游点分布"
        toolBarButton19.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        toolBarButton19.Pushed = True