📄 frmmain(主窗体）.frm
字号:
Layer4.LabelZoomMin= 0
Layer4.LabelZoom= 0 'False
Layer4.LabelVisible= -1 'True
Layer4.LabelOrientation= 0
Layer4.LabelParellel= -1 'True
Layer4.PartialSegments= 0 'False
Layer5.path = "河流.tab"
Layer5.name = "河流"
Layer5.visible = -1 'True
Layer5.selectable= -1 'True
Layer5.editable = 0 'False
Layer5.shownodes= 0 'False
Layer5.showcentroids= 0 'False
Layer5.showlinedirection= 0 'False
Layer5.autolabel= 0 'False
Layer5.zoomlayering= 0 'False
Layer5.minzoom = 0
Layer5.maxzoom = 0
Layer5.DrawLabelsAfter= 0 'False
Layer5.styleoverride= 0 'False
Layer5.labelstyle.TextFontBackColor= 16777215
Layer5.labelstyle.SymbolChar= 0
BeginProperty Layer5.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
Layer5.labelstyle.LineStyle= 1
Layer5.labelstyle.LineWidth= 1
Layer5.LabelMax = 100
Layer5.LabelOverlap= 0 'False
Layer5.LabelDuplicate= -1 'True
Layer5.LabelOffset= 2
Layer5.LabelLineType= 0
Layer5.LabelZoomMax= 10000
Layer5.LabelZoomMin= 0
Layer5.LabelZoom= 0 'False
Layer5.LabelVisible= -1 'True
Layer5.LabelOrientation= 0
Layer5.LabelParellel= -1 'True
Layer5.PartialSegments= 0 'False
Layer6.path = "街区.tab"
Layer6.name = "街区"
Layer6.visible = -1 'True
Layer6.selectable= -1 'True
Layer6.editable = 0 'False
Layer6.shownodes= 0 'False
Layer6.showcentroids= 0 'False
Layer6.showlinedirection= 0 'False
Layer6.autolabel= 0 'False
Layer6.zoomlayering= 0 'False
Layer6.minzoom = 0
Layer6.maxzoom = 0
Layer6.DrawLabelsAfter= 0 'False
Layer6.styleoverride= 0 'False
Layer6.labelstyle.TextFontBackColor= 16777215
Layer6.labelstyle.SymbolChar= 0
BeginProperty Layer6.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
Layer6.labelstyle.LineStyle= 1
Layer6.labelstyle.LineWidth= 1
Layer6.LabelMax = 100
Layer6.LabelOverlap= 0 'False
Layer6.LabelDuplicate= -1 'True
Layer6.LabelOffset= 2
Layer6.LabelLineType= 0
Layer6.LabelZoomMax= 10000
Layer6.LabelZoomMin= 0
Layer6.LabelZoom= 0 'False
Layer6.LabelVisible= -1 'True
Layer6.LabelOrientation= 0
Layer6.LabelParellel= -1 'True
Layer6.PartialSegments= 0 'False
Layer7.path = "公路区域.tab"
Layer7.name = "公路区域"
Layer7.visible = -1 'True
Layer7.selectable= -1 'True
Layer7.editable = 0 'False
Layer7.shownodes= 0 'False
Layer7.showcentroids= 0 'False
Layer7.showlinedirection= 0 'False
Layer7.autolabel= 0 'False
Layer7.zoomlayering= 0 'False
Layer7.minzoom = 0
Layer7.maxzoom = 0
Layer7.DrawLabelsAfter= 0 'False
Layer7.styleoverride= 0 'False
Layer7.labelstyle.TextFontBackColor= 16777215
Layer7.labelstyle.SymbolChar= 0
BeginProperty Layer7.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
Layer7.labelstyle.LineStyle= 1
Layer7.labelstyle.LineWidth= 1
Layer7.LabelMax = 100
Layer7.LabelOverlap= 0 'False
Layer7.LabelDuplicate= -1 'True
Layer7.LabelOffset= 2
Layer7.LabelLineType= 0
Layer7.LabelZoomMax= 10000
Layer7.LabelZoomMin= 0
Layer7.LabelZoom= 0 'False
Layer7.LabelVisible= -1 'True
Layer7.LabelOrientation= 0
Layer7.LabelParellel= -1 'True
Layer7.PartialSegments= 0 'False
Layer8.path = "底图.tab"
Layer8.name = "底图"
Layer8.visible = -1 'True
Layer8.selectable= -1 'True
Layer8.editable = 0 'False
Layer8.shownodes= 0 'False
Layer8.showcentroids= 0 'False
Layer8.showlinedirection= 0 'False
Layer8.autolabel= 0 'False
Layer8.zoomlayering= 0 'False
Layer8.minzoom = 0
Layer8.maxzoom = 0
Layer8.DrawLabelsAfter= 0 'False
Layer8.styleoverride= 0 'False
Layer8.labelstyle.TextFontBackColor= 16777215
Layer8.labelstyle.SymbolChar= 0
BeginProperty Layer8.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
Layer8.labelstyle.LineStyle= 1
Layer8.labelstyle.LineWidth= 1
Layer8.LabelMax = 100
Layer8.LabelOverlap= 0 'False
Layer8.LabelDuplicate= -1 'True
Layer8.LabelOffset= 2
Layer8.LabelLineType= 2
Layer8.LabelZoomMax= 10000
Layer8.LabelZoomMin= 0
Layer8.LabelZoom= 0 'False
Layer8.LabelVisible= -1 'True
Layer8.LabelOrientation= 5
Layer8.LabelParellel= -1 'True
Layer8.PartialSegments= 0 'False
TitleStyle.TextFontBackColor= 16777215
TitleStyle.TextFontOpaque= -1 'True
TitleStyle.SymbolChar= 0
BeginProperty TitleStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 21
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty TitleStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 18.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
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 = "Wingdings"
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
HasProjectionInfo= -1 'True
NumericCoordsys = "frmMain(主窗体）.frx":486A
DisplayCoordsys = "frmMain(主窗体）.frx":499A
NumDatasets = 0
TitleX = 5000
TitleY = 1000
TitleVisible = -1 'True
TitleEditable = -1 'True
TitlePostiion = 0
TitleBorder = -1 'True
End
Begin VB.Line Line1
BorderWidth = 3
X1 = 6600
X2 = 6600
Y1 = 240
Y2 = 5520
End
End
Attribute VB_Name = "MyfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const RULERTOOLID = 500
Const SPoint = 400
Const EPoint = 600
Dim XDown As Double '屏幕坐标---地理坐标
Dim YDown As Double
Dim x(0 To 17) As String
Dim OldFromtxt As String
Dim OldTotxt As String
Dim OldChkValue As Integer
Dim OldFunit As String
Dim BusNum As Integer '线路查询用
Dim BusDescrible(TotalBN) As String '公交车次描述
Dim PubName(1 To 100) As String '公共场所Pub
Dim PubLatitude(1 To 100) As Double
Dim Publongtitude(1 To 100) As Double
Dim PubDescrible(1 To 100) As String
Private Sub Form_Load()
'窗体、控件等的初始位置
MyfrmMain.Left = 0
MyfrmMain.Top = 0
MyfrmMain.Height = Screen.Height
MyfrmMain.Width = Screen.Width
Map1.Left = 0
Map1.Top = 0
Map1.Height = MyfrmMain.Height - Picture1.Height - CoolBar1.Height - 180
Map1.Width = MyfrmMain.Width * 2 / 3
Picture1.Left = 0
Picture1.Top = Map1.Height
Picture1.Width = Map1.Width
Picture1.Height = Toolbar1.Height
Toolbar1.Width = Picture1.Width
ProgressBar2.Left = StatusBar1.Panels(3).Left
ProgressBar2.Width = StatusBar1.Panels(3).Width
ProgressBar2.Visible = False
CoolBar1.Bands(1).Width = CmdExit.Width
CmdExit.Height = CoolBar1.Bands(1).Height
TabStrip1.Left = Map1.Width + 50
TabStrip1.Top = 0
TabStrip1.Height = MyfrmMain.ScaleHeight - CoolBar1.Height
TabStrip1.Width = MyfrmMain.Width - Map1.Width - 50
Line1.X1 = Map1.Width + 3
Line1.X2 = Map1.Width + 3
Line1.Y1 = Map1.Top
Line1.Y2 = Map1.Height + Toolbar1.Height
Frame1.Left = TabStrip1.Left
Frame1.Top = TabStrip1.Top + 700
Frame1.Width = TabStrip1.Width
Frame1.Height = TabStrip1.Height - 700
Frame1.Visible = True
Frame2.Left = TabStrip1.Left
Frame2.Top = TabStrip1.Top + 700
Frame2.Width = TabStrip1.Width
Frame2.Height = TabStrip1.Height - 700
Frame2.Visible = False
Frame3.Left = TabStrip1.Left
Frame3.Top = TabStrip1.Top + 700
Frame3.Width = TabStrip1.Width
Frame3.Height = TabStrip1.Height - 700
Frame3.Visible = False
Label3.Visible = False
Text3.Visible = False
WZresultList.Visible = False
FromCombo.Visible = False
ToCombo.Visible = False
Option1(0).Value = True '最短路选择标准的默认值--距离
Funit = "Distance"
Check1(0).Value = Checked '最短路出行方式的默认值--直接到达
'Map1的初始显示
Map1.Title.Visible = False
Map1.CreateCustomTool RULERTOOLID, miToolTypeLine, miSizeCursor
Map1.CreateCustomTool SPoint, miToolTypePoint, miIconCursor
Map1.CreateCustomTool EPoint, miToolTypePoint, miIconCursor
Map1.Layers("公交").Visible = False '只有当True时,工具"BiaoZhu"才有效
'公交转换乘查询的提示信息显示框
RichTextBox1.Text = " 请根据公交转换乘查询的信息输入要求，" _
& "正确输入您出行的起终点(文字输入或地图定点输入）、" _
& "转换乘方式及您主要考虑的出行因素，而后按“开始查询”按钮。" _
& "若需再次查询，只需再次输入您的出行目的！" & vbCrLf _
& " 从地图上定位起/终点只需先选择工具条中的第七/第八个按钮，" _
& "而后用鼠标左键点击您的起/终点所在位置！"
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = 200
RichTextBox1.SelFontName = "隶书"
RichTextBox1.SelFontSize = 12
RichTextBox1.SelStart = 0
RichTextBox1.SelStart = RichTextBox1.Find("出行的起终点")
RichTextBox1.Span ("出行的起终点")
RichTextBox1.SelUnderline = True
RichTextBox1.SelStart = 0
RichTextBox1.SelStart = RichTextBox1.Find("转换乘方式")
RichTextBox1.Span ("转换乘方式")
RichTextBox1.SelUnderline = True
RichTextBox1.SelStart = 0
RichTextBox1.SelStart = RichTextBox1.Find("出行因素")
RichTextBox1.Span ("出行因素")
RichTextBox1.SelUnderline = True
RichTextBox1.SelStart = 0
RichTextBox1.SelStart = RichTextBox1.Find("文字输入或地图定点输入")
RichTextBox1.Span ("文字输入或地图定点输入")
RichTextBox1.SelColor = RGB(180, 100, 100)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -