📄 mapbrower.frm
字号:
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Map.Layers.Layer4.LabelProperties.Style.LineStyle= 1
Map.Layers.Layer4.LabelProperties.Style.LineWidth= 1
Map.Layers.Layer5.HasFileSpec= -1 'True
Map.Layers.Layer5.Skip= 0 'False
Map.Layers.Layer5.Path= "ocean_ll.tab"
Map.Layers.Layer5.Name= "Ocean (Lat/ Long)"
Map.Layers.Layer5.Visible= -1 'True
Map.Layers.Layer5.Selectable= 0 'False
Map.Layers.Layer5.Editable= 0 'False
Map.Layers.Layer5.ShowNodes= 0 'False
Map.Layers.Layer5.ShowCentroids= 0 'False
Map.Layers.Layer5.ShowLineDirection= 0 'False
Map.Layers.Layer5.AutoLabel= 0 'False
Map.Layers.Layer5.DrawLabelsAfter= 0 'False
Map.Layers.Layer5.ZoomLayering= 0 'False
Map.Layers.Layer5.ZoomMin= 0
Map.Layers.Layer5.ZoomMax= 0
Map.Layers.Layer5.DoOverrideStyle= 0 'False
Map.Layers.Layer5.LabelProperties.LabelMax= 100
Map.Layers.Layer5.LabelProperties.Overlap= 0 'False
Map.Layers.Layer5.LabelProperties.Duplicate= -1 'True
Map.Layers.Layer5.LabelProperties.Offset= 2
Map.Layers.Layer5.LabelProperties.LineType= 0
Map.Layers.Layer5.LabelProperties.Zoom= 0 'False
Map.Layers.Layer5.LabelProperties.ZoomMin= 0
Map.Layers.Layer5.LabelProperties.ZoomMax= 10000
Map.Layers.Layer5.LabelProperties.Visible= -1 'True
Map.Layers.Layer5.LabelProperties.Position= 0
Map.Layers.Layer5.LabelProperties.Parallel= 0 'False
Map.Layers.Layer5.LabelProperties.LabelAlong= 0
Map.Layers.Layer5.LabelProperties.PartialSegments= 0 'False
Map.Layers.Layer5.LabelProperties.Style.TextFontBackColor= 16777215
Map.Layers.Layer5.LabelProperties.Style.SymbolChar= 0
BeginProperty Map.Layers.Layer5.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Map.Layers.Layer5.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Map.Layers.Layer5.LabelProperties.Style.LineStyle= 1
Map.Layers.Layer5.LabelProperties.Style.LineWidth= 1
Map.NumericCoordSys.ProjectionInfo= "MapBrower.frx":0000
Map.DisplayCoordSys.ProjectionInfo= "MapBrower.frx":0130
Map.Zoom = 3840.25
Map.CenterX = 133.530048
Map.CenterY = -26.9901905
FeatureEditMode = 1
End
Begin MSComctlLib.ImageList ImageList1
Left = 7320
Top = 1200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 33
ImageHeight = 31
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":0260
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":0B0E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":13BC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":1C6A
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":2518
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":2DC6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":3674
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MapBrower.frx":3906
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 645
Left = 0
TabIndex = 1
Top = 0
Width = 9810
_ExtentX = 17304
_ExtentY = 1138
ButtonWidth = 1058
ButtonHeight = 979
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "a"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "b"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "c"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "d"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "e"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "f"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "g"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "h"
ImageIndex = 8
EndProperty
EndProperty
End
Begin VB.Menu file
Caption = "&File"
Index = 0
Begin VB.Menu openfile
Caption = "Open File"
Index = 0
End
Begin VB.Menu closeall
Caption = "Close All"
Index = 1
End
Begin VB.Menu exit
Caption = "Exit"
Index = 2
End
End
Begin VB.Menu edit
Caption = "&Edit"
Index = 1
Begin VB.Menu undo
Caption = "&Undo"
Index = 0
End
Begin VB.Menu selection
Caption = "&Selection"
Index = 1
End
Begin VB.Menu addpoint
Caption = "Add &Point"
Index = 2
End
Begin VB.Menu addline
Caption = "Add &Line"
Index = 3
End
Begin VB.Menu addpolyline
Caption = "Add PolyLine"
Index = 4
End
Begin VB.Menu addpolygon
Caption = "Add &Polygon"
Index = 5
End
Begin VB.Menu EditStyle
Caption = "Feature &Style"
Index = 6
End
Begin VB.Menu copy
Caption = "&Copy"
Index = 7
End
Begin VB.Menu paste
Caption = "Pas&te"
Index = 8
End
Begin VB.Menu delete
Caption = "&Delete"
Index = 9
End
End
Begin VB.Menu map
Caption = "&Map"
Index = 2
Begin VB.Menu zonmin
Caption = "Zoom &In"
Index = 0
End
Begin VB.Menu zonmout
Caption = "Zoom &Out"
Index = 1
End
Begin VB.Menu pan
Caption = "&Pan"
Index = 2
End
Begin VB.Menu viewentirelayer
Caption = "&View Entire Layer"
Index = 3
End
Begin VB.Menu layercontrol
Caption = "&Layer Control"
Index = 4
End
Begin VB.Menu projection
Caption = "Pro&jection"
Index = 5
End
End
Begin VB.Menu view
Caption = "&View"
Index = 3
Begin VB.Menu maptoolbar
Caption = "Map &Toolbar"
Index = 0
End
Begin VB.Menu options
Caption = "&Options"
Index = 1
End
End
Begin VB.Menu tools
Caption = "&Toos"
Index = 4
Begin VB.Menu bufferanlysis
Caption = "&Buffer Analysis"
Index = 0
End
Begin VB.Menu calculatedistance
Caption = "&Calculate Distance"
Index = 1
End
End
Begin VB.Menu help
Caption = "&Help"
Index = 5
Begin VB.Menu about
Caption = "&About The Programme"
End
End
End
Attribute VB_Name = "MapBrower"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
' See Module1.bas for global variable declarations
Dim MouseDownX1 As Double ' The ruler tool displays the distance as the mouse is moved.
' These variables store the point at which the mouse was pressed
' down
Dim MouseDownY1 As Double
Dim CheckedMenu As Menu ' The "Tools" menu item that is currently checked
Dim PressedButton As Button ' The Map Tool button that is currently down
Option Explicit
Private Sub Form_Load1()
' Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
' Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
' Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
' Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
' Me.WindowState = GetSetting(App.Title, "Settings", "WindowState", vbNormal)
' UsePolyRuler = GetSetting(App.Title, "Settings", "PolyRuler", False)
' RulerUnit = GetSetting(App.Title, "Settings", "RulerUnit", miUnitMile)
' RulerUnitString = GetSetting(App.Title, "Settings", "RulerUnitString", "Miles")
' Map1.MapUnit = RulerUnit
' mnuViewToolbar.Checked = GetSetting(App.Title, "Settings", "ToolbarVisibility", True)
' mnuViewMapTools.Checked = GetSetting(App.Title, "Settings", "MapToolsVisibility", True)
' tbToolBar.Visible = mnuViewToolbar.Checked
' Toolbar1.Visible = mnuViewMapTools.Checked
' Me.Caption = Map1.TitleText
' Create the line and polygon ruler tools, and assign them icons
Map1.CreateCustomTool RulerTool, miToolTypeLine, miSizeAllCursor
Map1.CreateCustomTool PolyRulerTool, miToolTypePoly, miSizeAllCursor
' Map1.PaperUnit is the unit needed for the Map.ExportMap call
' and the unit that Map.MapPaperHeight and Map.MapPaperWidth
' returns.
' MapBrower1.Map1.PaperUnit = miPaperUnitInch
' CheckedMenu and PressedButton are the menu item and
' toolbar button that are depressed to show which is the
' current tool. These are manipulated in the mnuTools... functions
' By default, use the arrow tool
' Set CheckedMenu = mnuToolsArrow
' Set PressedButton = Toolbar1.Buttons(1)
' CheckedMenu.Checked = True
' PressedButton.Value = tbrPressed
End Sub
'Private Sub Form_Unload(Cancel As Integer)
' Dim i As Integer
'
' ' close all sub forms
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -