📄 formmain.frm
字号:
VERSION 5.00
Object = "{E760686B-BC9E-4802-9ECF-175FDF4062CE}#5.0#0"; "MAPX50.DLL"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form FormMain
Caption = "地图数据库系统"
ClientHeight = 7065
ClientLeft = 165
ClientTop = 855
ClientWidth = 8550
LinkTopic = "Form1"
ScaleHeight = 7065
ScaleWidth = 8550
StartUpPosition = 3 '窗口缺省
Begin ComctlLib.Toolbar tbarMain
Align = 1 'Align Top
DragIcon = "FormMain.frx":0000
Height = 480
Left = 0
TabIndex = 2
Top = 0
Width = 8550
_ExtentX = 15081
_ExtentY = 847
ButtonWidth = 847
ButtonHeight = 741
AllowCustomize = 0 'False
Wrappable = 0 'False
HelpContextID = 11100
HelpFile = "e:\Mapsis\MapSIS.hlp"
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 17
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "LayerControl"
Object.ToolTipText = "图层控制"
Object.Tag = ""
ImageIndex = 13
Style = 2
Value = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Move"
Object.ToolTipText = "移动"
Object.Tag = ""
ImageIndex = 18
Style = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "ZoomIn"
Object.ToolTipText = "放大"
Object.Tag = ""
ImageIndex = 10
Style = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "ZoomOut"
Object.ToolTipText = "缩小"
Object.Tag = ""
ImageIndex = 12
Style = 2
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Symbol"
Object.ToolTipText = "符号"
Object.Tag = ""
ImageIndex = 2
Style = 2
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Text"
Object.ToolTipText = "文本"
Object.Tag = ""
ImageIndex = 7
Style = 2
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Select"
Object.ToolTipText = "选择"
Object.Tag = ""
ImageIndex = 11
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "SelectRect"
Object.ToolTipText = "拉出一个虚拟矩形区域,选择区域内的对象"
Object.Tag = ""
ImageIndex = 16
Style = 2
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "SelectCircle"
Object.ToolTipText = "拉出一个虚拟圆形区域,选择区域内的对象"
Object.Tag = ""
ImageIndex = 17
Style = 2
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "SelectPoly"
Object.ToolTipText = "选择地图上多边形区域内的对象"
Object.Tag = ""
ImageIndex = 8
Style = 2
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "AddLine"
Object.ToolTipText = "添加线图元"
Object.Tag = ""
ImageIndex = 3
Style = 2
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "AddPolyLine"
Object.ToolTipText = "加折线"
Object.Tag = ""
ImageIndex = 4
Style = 2
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "AddRegion"
Object.ToolTipText = "添加多边形图元"
Object.Tag = ""
ImageIndex = 6
Style = 2
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "SymbolStyle"
Object.ToolTipText = "符号样式"
Object.Tag = ""
ImageIndex = 1
Style = 2
EndProperty
BeginProperty Button15 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "线"
Key = "LineStyle"
Object.ToolTipText = "线样式"
Object.Tag = ""
ImageIndex = 15
Style = 2
EndProperty
BeginProperty Button16 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "RegionStyle"
Object.ToolTipText = "区域样式"
Object.Tag = ""
ImageIndex = 9
Style = 2
EndProperty
BeginProperty Button17 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "TextStyle"
Object.ToolTipText = "文本样式"
Object.Tag = ""
ImageIndex = 14
Style = 2
EndProperty
EndProperty
MouseIcon = "FormMain.frx":030A
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6690
Width = 8550
_ExtentX = 15081
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4410
MinWidth = 4410
Key = ""
Object.Tag = ""
Object.ToolTipText = "坐标点"
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4410
MinWidth = 4410
Key = ""
Object.Tag = ""
Object.ToolTipText = "编辑图层"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4410
MinWidth = 4410
Key = ""
Object.Tag = ""
Object.ToolTipText = " 距离"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CM1
Left = 120
Top = 1080
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MapXLib.Map Map1
Height = 5415
Left = 720
TabIndex = 0
Top = 840
Width = 6735
_Version = 500012
_ExtentX = 11880
_ExtentY = 9551
_StockProps = 1
MapCatalog.GeoDictionary= "GeoDictionary"
GeoSet = "China"
GeoSetUserName = "China"
DefaultStyle.TextFontBackColor= 16777215
DefaultStyle.SupportsBitmapSymbols= -1 'True
DefaultStyle.SymbolChar= 55
DefaultStyle.SymbolFontBackColor= 16777215
BeginProperty DefaultStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty DefaultStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Map Symbols"
Size = 14.25
Charset = 2
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
DefaultStyle.LineStyle= 1
DefaultStyle.LineWidth= 1
DefaultStyle.RegionColor= 16777215
DefaultStyle.LinePattern= 2
DefaultStyle.RegionBackColor= 16777215
DefaultStyle.RegionBorderStyle= 1
DefaultStyle.RegionBorderWidth= 1
Title.Visible = -1 'True
Title.Style.TextFontBackColor= 16777215
Title.Style.TextFontOpaque= -1 'True
Title.Style.SymbolChar= 0
BeginProperty Title.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 23.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Title.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 23.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Title.X = 2243
Title.Y = 354
Map.Layers.Count= 7
Map.Layers.Layer0.HasFileSpec= -1 'True
Map.Layers.Layer0.Skip= 0 'False
Map.Layers.Layer0.Path= "Chcty_2k.TAB"
Map.Layers.Layer0.Name= "China Major Cities"
Map.Layers.Layer0.Visible= -1 'True
Map.Layers.Layer0.Selectable= -1 'True
Map.Layers.Layer0.Editable= 0 'False
Map.Layers.Layer0.ShowNodes= 0 'False
Map.Layers.Layer0.ShowCentroids= 0 'False
Map.Layers.Layer0.ShowLineDirection= 0 'False
Map.Layers.Layer0.AutoLabel= -1 'True
Map.Layers.Layer0.DrawLabelsAfter= 0 'False
Map.Layers.Layer0.ZoomLayering= -1 'True
Map.Layers.Layer0.ZoomMin= 0
Map.Layers.Layer0.ZoomMax= 450
Map.Layers.Layer0.DoOverrideStyle= 0 'False
Map.Layers.Layer0.LabelProperties.LabelMax= 100
Map.Layers.Layer0.LabelProperties.Overlap= 0 'False
Map.Layers.Layer0.LabelProperties.Duplicate= -1 'True
Map.Layers.Layer0.LabelProperties.Offset= 2
Map.Layers.Layer0.LabelProperties.LineType= 2
Map.Layers.Layer0.LabelProperties.Zoom= -1 'True
Map.Layers.Layer0.LabelProperties.ZoomMin= 0
Map.Layers.Layer0.LabelProperties.ZoomMax= 250
Map.Layers.Layer0.LabelProperties.Visible= -1 'True
Map.Layers.Layer0.LabelProperties.Position= 5
Map.Layers.Layer0.LabelProperties.Parallel= 0 'False
Map.Layers.Layer0.LabelProperties.LabelAlong= 0
Map.Layers.Layer0.LabelProperties.PartialSegments= 0 'False
Map.Layers.Layer0.LabelProperties.Style.TextFontBackColor= 13696976
Map.Layers.Layer0.LabelProperties.Style.TextFontHalo= -1 'True
Map.Layers.Layer0.LabelProperties.Style.SymbolChar= 0
BeginProperty Map.Layers.Layer0.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Map.Layers.Layer0.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -