?? frmmain.vb
字號:
'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
'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -