frmmain.vb

用VB.NET开发的GeoMedia一个实例

        'mnuViewFit
        '
        Me.mnuViewFit.Enabled = False
        Me.mnuViewFit.Index = 3
        Me.mnuViewFit.Text = "全图(&F)"
        '
        'mnuCenter
        '
        Me.mnuCenter.Enabled = False
        Me.mnuCenter.Index = 4
        Me.mnuCenter.Text = "居中(&C)"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 5
        Me.MenuItem1.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Enabled = False
        Me.MenuItem4.Index = 6
        Me.MenuItem4.Text = "标记(&G)"
        '
        'mnuViewLegend
        '
        Me.mnuViewLegend.Enabled = False
        Me.mnuViewLegend.Index = 7
        Me.mnuViewLegend.Text = "图例(&L)..."
        '
        'mnuDisplayFeature
        '
        Me.mnuDisplayFeature.Enabled = False
        Me.mnuDisplayFeature.Index = 8
        Me.mnuDisplayFeature.Text = "添加图层(&A)..."
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 9
        Me.MenuItem2.Text = "-"
        '
        'mnuViewProperty
        '
        Me.mnuViewProperty.Enabled = False
        Me.mnuViewProperty.Index = 10
        Me.mnuViewProperty.Text = "属性(R)..."
        '
        'mnuViewOption
        '
        Me.mnuViewOption.Index = 11
        Me.mnuViewOption.Text = "选项(&O)..."
        Me.mnuViewOption.Visible = False
        '
        'mnuTool
        '
        Me.mnuTool.Index = 3
        Me.mnuTool.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuToolQuery, Me.MenuItem3, Me.mnuToolMeasure})
        Me.mnuTool.Text = "工具(&T)"
        '
        'mnuToolQuery
        '
        Me.mnuToolQuery.Enabled = False
        Me.mnuToolQuery.Index = 0
        Me.mnuToolQuery.Text = "查找(&F)..."
        '
        'MenuItem3
        '
        Me.MenuItem3.Enabled = False
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "专题图(&T)..."
        '
        'mnuToolMeasure
        '
        Me.mnuToolMeasure.Enabled = False
        Me.mnuToolMeasure.Index = 2
        Me.mnuToolMeasure.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuToolMeasureDistance, Me.mnuToolMeasureArea})
        Me.mnuToolMeasure.Text = "测量(&M)"
        '
        'mnuToolMeasureDistance
        '
        Me.mnuToolMeasureDistance.Index = 0
        Me.mnuToolMeasureDistance.Text = "距离(&D)..."
        '
        'mnuToolMeasureArea
        '
        Me.mnuToolMeasureArea.Index = 1
        Me.mnuToolMeasureArea.Text = "面积(&A)..."
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.Selection, Me.ZoomIn, Me.ZoomOut, Me.Fit, Me.Pan, Me.ProPerties, Me.AddLegend, Me.Legend})
        Me.ToolBar1.ButtonSize = New System.Drawing.Size(24, 24)
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(728, 27)
        Me.ToolBar1.TabIndex = 0
        '
        'Selection
        '
        Me.Selection.Enabled = False
        Me.Selection.ImageIndex = 0
        Me.Selection.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'ZoomIn
        '
        Me.ZoomIn.Enabled = False
        Me.ZoomIn.ImageIndex = 1
        Me.ZoomIn.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'ZoomOut
        '
        Me.ZoomOut.Enabled = False
        Me.ZoomOut.ImageIndex = 2
        Me.ZoomOut.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'Fit
        '
        Me.Fit.Enabled = False
        Me.Fit.ImageIndex = 3
        '
        'Pan
        '
        Me.Pan.Enabled = False
        Me.Pan.ImageIndex = 4
        Me.Pan.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'ProPerties
        '
        Me.ProPerties.Enabled = False
        Me.ProPerties.ImageIndex = 6
        '
        'AddLegend
        '
        Me.AddLegend.Enabled = False
        Me.AddLegend.ImageIndex = 5
        '
        'Legend
        '
        Me.Legend.Enabled = False
        Me.Legend.ImageIndex = 8
        Me.Legend.Style = System.Windows.Forms.ToolBarButtonStyle.ToggleButton
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'TreeView1
        '
        Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left
        Me.TreeView1.ImageList = Me.ImageList2
        Me.TreeView1.Location = New System.Drawing.Point(0, 27)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Size = New System.Drawing.Size(119, 416)
        Me.TreeView1.TabIndex = 5
        Me.TreeView1.Visible = False
        '
        'ImageList2
        '
        Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
        Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'Splitter1
        '
        Me.Splitter1.Location = New System.Drawing.Point(119, 27)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 416)
        Me.Splitter1.TabIndex = 6
        Me.Splitter1.TabStop = False
        '
        'Panel1
        '
        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.GMMapView1, Me.EventControl1})
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(122, 27)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(606, 416)
        Me.Panel1.TabIndex = 7
        '
        'GMMapView1
        '
        Me.GMMapView1.ContainingControl = Me
        Me.GMMapView1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GMMapView1.Enabled = True
        Me.GMMapView1.Name = "GMMapView1"
        Me.GMMapView1.OcxState = CType(resources.GetObject("GMMapView1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.GMMapView1.Size = New System.Drawing.Size(602, 412)
        Me.GMMapView1.TabIndex = 1
        '
        'EventControl1
        '
        Me.EventControl1.ContainingControl = Me
        Me.EventControl1.Enabled = True
        Me.EventControl1.Location = New System.Drawing.Point(128, 272)
        Me.EventControl1.Name = "EventControl1"
        Me.EventControl1.OcxState = CType(resources.GetObject("EventControl1.OcxState"), System.Windows.Forms.AxHost.State)
        Me.EventControl1.Size = New System.Drawing.Size(28, 28)
        Me.EventControl1.TabIndex = 0
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.contmnuZoomIn, Me.contmnuZoomOut, Me.contmnuFit, Me.contmnuPan, Me.MenuItem9, Me.contmnuProperty, Me.contmnuLegend})
        '
        'contmnuZoomIn
        '
        Me.contmnuZoomIn.Index = 0
        Me.contmnuZoomIn.Text = "放大"
        '
        'contmnuZoomOut
        '
        Me.contmnuZoomOut.Index = 1
        Me.contmnuZoomOut.Text = "缩小"
        '
        'contmnuFit
        '
        Me.contmnuFit.Index = 2
        Me.contmnuFit.Text = "全图"
        '
        'contmnuPan
        '
        Me.contmnuPan.Index = 3
        Me.contmnuPan.Text = "平移"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 4
        Me.MenuItem9.Text = "-"
        '
        'contmnuProperty
        '
        Me.contmnuProperty.Index = 5
        Me.contmnuProperty.Text = "属性"
        '
        'contmnuLegend
        '
        Me.contmnuLegend.Index = 6
        Me.contmnuLegend.Text = "图例"
        '
        'cbNewFeature
        '
        Me.cbNewFeature.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbNewFeature.Location = New System.Drawing.Point(216, 7)
        Me.cbNewFeature.Name = "cbNewFeature"
        Me.cbNewFeature.Size = New System.Drawing.Size(128, 20)
        Me.cbNewFeature.TabIndex = 8
        Me.cbNewFeature.Visible = False
        '
        'tbNewText
        '
        Me.tbNewText.Enabled = False
        Me.tbNewText.Location = New System.Drawing.Point(352, 6)
        Me.tbNewText.Name = "tbNewText"
        Me.tbNewText.Size = New System.Drawing.Size(144, 21)
        Me.tbNewText.TabIndex = 9
        Me.tbNewText.Text = "输入文本"
        Me.tbNewText.Visible = False
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 443)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanelMessage, Me.StatusBarPanelPointLocation})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(728, 22)
        Me.StatusBar1.SizingGrip = False
        Me.StatusBar1.TabIndex = 10
        '
        'StatusBarPanelMessage
        '
        Me.StatusBarPanelMessage.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.StatusBarPanelMessage.Width = 578
        '
        'StatusBarPanelPointLocation
        '
        Me.StatusBarPanelPointLocation.Width = 150
        '
        'Timer1
        '
        Me.Timer1.Interval = 1000
        '
        'Timer2
        '
        Me.Timer2.Interval = 50
        '
        'ContextMenu2
        '