form1.frm
来自「利用MAPX和VB编的一个关于地图匹配的程序。加载地图后方可使用！」· FRM 代码 · 共 514 行 · 第 1/2 页
FRM
514 行
VERSION 5.00
Object = "{9D6ED199-5910-11D2-98A6-00A0C9742CCA}#4.0#0"; "MAPX40.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6795
ClientLeft = 60
ClientTop = 450
ClientWidth = 9705
LinkTopic = "Form1"
ScaleHeight = 6795
ScaleWidth = 9705
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text3
Height = 375
Left = 8400
TabIndex = 8
Top = 5760
Width = 1215
End
Begin VB.TextBox Text2
Height = 375
Left = 8400
TabIndex = 7
Top = 960
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "平移"
Height = 495
Left = 8400
TabIndex = 6
Top = 2640
Width = 1215
End
Begin VB.CommandButton Command4
Caption = "缩小"
Height = 495
Left = 8400
TabIndex = 5
Top = 2160
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "放大"
Height = 495
Left = 8400
TabIndex = 4
Top = 1680
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "停止"
Height = 495
Left = 8400
TabIndex = 3
Top = 3600
Width = 1215
End
Begin VB.Timer Timer1
Interval = 1000
Left = 8520
Top = 1320
End
Begin VB.CommandButton Command1
Caption = "匹配"
Height = 495
Left = 8400
TabIndex = 2
Top = 3120
Width = 1215
End
Begin VB.TextBox Text1
DataSource = "Adodc1"
Height = 495
Left = 5400
TabIndex = 1
Text = "Text1"
Top = 3960
Visible = 0 'False
Width = 1215
End
Begin MSAdodcLib.Adodc Adodc1
Height = 495
Left = 4200
Top = 1920
Visible = 0 'False
Width = 2895
_ExtentX = 5106
_ExtentY = 873
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\诱导项目\地图匹配\GPS.MDB;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\诱导项目\地图匹配\GPS.MDB;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "一条长曲线"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MapXLib.Map Map1
Height = 6855
Left = 0
TabIndex = 0
Top = 0
Width = 8295
_Version = 400013
_ExtentX = 14631
_ExtentY = 12091
_StockProps = 1
GeoDictionary = "GeoDictionary"
GeoSet = "cc"
GeoSetUserName = "cc"
CurrentTool = 1000
Zoom = 1.55466000000257
MaxSearchTime = 30
CenterX = 125.318702719041
CenteryY = 43.8848349324889
Rotation = 0
FeatureEditMode = 1
NodeHandleSize = 0
TitleText = "cc"
DataSetGeoField = ""
AutoRedraw = -1 'True
PreferCompactLegends= 0 'False
TitleVisible = 0 'False
MousePointer = 0
MouseIcon = ""
MatchThreshold = 80
WaitCursorEnabled= -1 'True
MousewheelSupport= 1
MatchNumericFields= 0 'False
RedrawInterval = 10
PanAnimationLayer= 0 'False
InfotipSupport = -1 'True
InfotipPopupDelay= 500
DefaultConversionResolution= 12
ExportSelection = 0 'False
NumLayers = 5
Layer0.path = "E:\诱导项目\地图\地图备份\TC-B节点.tab"
Layer0.name = "TC-B节点"
Layer0.visible = -1 'True
Layer0.selectable= -1 'True
Layer0.editable = 0 'False
Layer0.shownodes= 0 'False
Layer0.showcentroids= 0 'False
Layer0.showlinedirection= 0 'False
Layer0.autolabel= 0 'False
Layer0.zoomlayering= 0 'False
Layer0.minzoom = 0
Layer0.maxzoom = 0
Layer0.DrawLabelsAfter= 0 'False
Layer0.styleoverride= 0 'False
Layer0.labelstyle.TextFontBackColor= 16777215
Layer0.labelstyle.SymbolChar= 0
BeginProperty Layer0.labelstyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Layer0.labelstyle.LineStyle= 1
Layer0.labelstyle.LineWidth= 1
Layer0.LabelMax = 100
Layer0.LabelOverlap= 0 'False
Layer0.LabelDuplicate= -1 'True
Layer0.LabelOffset= 2
Layer0.LabelLineType= 2
Layer0.LabelZoomMax= 10000
Layer0.LabelZoomMin= 0
Layer0.LabelZoom= 0 'False
Layer0.LabelVisible= -1 'True
Layer0.LabelOrientation= 5
Layer0.LabelParellel= -1 'True
Layer0.PartialSegments= 0 'False
Layer1.path = "E:\诱导项目\地图\地图备份\TC-B路段.tab"
Layer1.name = "TC-B路段"
Layer1.visible = -1 'True
Layer1.selectable= -1 'True
Layer1.editable = 0 'False
Layer1.shownodes= 0 'False
Layer1.showcentroids= 0 'False
Layer1.showlinedirection= 0 'False
Layer1.autolabel= 0 'False
Layer1.zoomlayering= 0 'False
Layer1.minzoom = 0
Layer1.maxzoom = 0
Layer1.DrawLabelsAfter= 0 'False
Layer1.styleoverride= 0 'False
Layer1.labelstyle.TextFontBackColor= 16777215
Layer1.labelstyle.SymbolChar= 0
BeginProperty Layer1.labelstyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Layer1.labelstyle.LineStyle= 1
Layer1.labelstyle.LineWidth= 1
Layer1.LabelMax = 100
Layer1.LabelOverlap= 0 'False
Layer1.LabelDuplicate= 0 'False
Layer1.LabelOffset= 2
Layer1.LabelLineType= 2
Layer1.LabelZoomMax= 10000
Layer1.LabelZoomMin= 0
Layer1.LabelZoom= 0 'False
Layer1.LabelVisible= -1 'True
Layer1.LabelOrientation= 2
Layer1.LabelParellel= -1 'True
Layer1.PartialSegments= 0 'False
Layer2.path = "E:\诱导项目\地图\地图备份\长春_绿地.TAB"
Layer2.name = "长春_绿地"
Layer2.visible = -1 'True
Layer2.selectable= -1 'True
Layer2.editable = 0 'False
Layer2.shownodes= 0 'False
Layer2.showcentroids= 0 'False
Layer2.showlinedirection= 0 'False
Layer2.autolabel= 0 'False
Layer2.zoomlayering= 0 'False
Layer2.minzoom = 0
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?