form1.frm
来自「运行程序前请先把"地图"文件夹中的地图集和图层拷到mapX4.0的maps文件夹」· FRM 代码 · 共 1,083 行 · 第 1/3 页
FRM
1,083 行
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 = "排水改.TAB"
Layer1.name = "排水改"
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 = "给水改.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
Layer2.maxzoom = 0
Layer2.DrawLabelsAfter= 0 'False
Layer2.styleoverride= 0 'False
Layer2.labelstyle.TextFontBackColor= 16777215
Layer2.labelstyle.SymbolChar= 0
BeginProperty Layer2.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
Layer2.labelstyle.LineStyle= 1
Layer2.labelstyle.LineWidth= 1
Layer2.LabelMax = 100
Layer2.LabelOverlap= 0 'False
Layer2.LabelDuplicate= 0 'False
Layer2.LabelOffset= 2
Layer2.LabelLineType= 2
Layer2.LabelZoomMax= 10000
Layer2.LabelZoomMin= 0
Layer2.LabelZoom= 0 'False
Layer2.LabelVisible= -1 'True
Layer2.LabelOrientation= 2
Layer2.LabelParellel= -1 'True
Layer2.PartialSegments= 0 'False
Layer3.path = "电力改.TAB"
Layer3.name = "电力改"
Layer3.visible = -1 'True
Layer3.selectable= -1 'True
Layer3.editable = 0 'False
Layer3.shownodes= 0 'False
Layer3.showcentroids= 0 'False
Layer3.showlinedirection= 0 'False
Layer3.autolabel= 0 'False
Layer3.zoomlayering= 0 'False
Layer3.minzoom = 0
Layer3.maxzoom = 0
Layer3.DrawLabelsAfter= 0 'False
Layer3.styleoverride= 0 'False
Layer3.labelstyle.TextFontBackColor= 16777215
Layer3.labelstyle.SymbolChar= 0
BeginProperty Layer3.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
Layer3.labelstyle.LineStyle= 1
Layer3.labelstyle.LineWidth= 1
Layer3.LabelMax = 100
Layer3.LabelOverlap= 0 'False
Layer3.LabelDuplicate= 0 'False
Layer3.LabelOffset= 2
Layer3.LabelLineType= 2
Layer3.LabelZoomMax= 10000
Layer3.LabelZoomMin= 0
Layer3.LabelZoom= 0 'False
Layer3.LabelVisible= -1 'True
Layer3.LabelOrientation= 2
Layer3.LabelParellel= -1 'True
Layer3.PartialSegments= 0 'False
Layer4.path = "宿舍.TAB"
Layer4.name = "宿舍"
Layer4.visible = -1 'True
Layer4.selectable= -1 'True
Layer4.editable = 0 'False
Layer4.shownodes= 0 'False
Layer4.showcentroids= 0 'False
Layer4.showlinedirection= 0 'False
Layer4.autolabel= 0 'False
Layer4.zoomlayering= 0 'False
Layer4.minzoom = 0
Layer4.maxzoom = 0
Layer4.DrawLabelsAfter= 0 'False
Layer4.styleoverride= 0 'False
Layer4.labelstyle.TextFontBackColor= 16777215
Layer4.labelstyle.SymbolChar= 0
BeginProperty Layer4.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
Layer4.labelstyle.LineStyle= 1
Layer4.labelstyle.LineWidth= 1
Layer4.LabelMax = 100
Layer4.LabelOverlap= 0 'False
Layer4.LabelDuplicate= -1 'True
Layer4.LabelOffset= 2
Layer4.LabelLineType= 0
Layer4.LabelZoomMax= 10000
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
TitleStyle.TextFontBackColor= 16777215
TitleStyle.TextFontOpaque= -1 'True
TitleStyle.SymbolChar= 0
BeginProperty TitleStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 15.75
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 = 12.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 = "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
HasProjectionInfo= -1 'True
NumericCoordsys = "Form1.frx":1239
DisplayCoordsys = "Form1.frx":1369
NumDatasets = 0
TitleX = 5000
TitleY = 1000
TitleVisible = 0 'False
TitleEditable = -1 'True
TitlePostiion = 0
TitleBorder = -1 'True
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu Open
Caption = "打开地图"
End
Begin VB.Menu New
Caption = "新建图层"
End
Begin VB.Menu Save
Caption = "保存地图"
End
Begin VB.Menu othersave
Caption = "另存为…"
End
End
Begin VB.Menu edit
Caption = "编辑"
End
Begin VB.Menu tool
Caption = "工具"
Begin VB.Menu zoomin
Caption = "放大"
End
Begin VB.Menu zoomout
Caption = "缩小"
End
Begin VB.Menu pan
Caption = "漫游"
End
End
Begin VB.Menu measure
Caption = "测量"
Begin VB.Menu line
Caption = "直线距离"
End
Begin VB.Menu polyline
Caption = "折线距离"
End
Begin VB.Menu uu
Caption = "-"
End
Begin VB.Menu area
Caption = "面积"
End
End
Begin VB.Menu Analyse
Caption = "管网分析"
Begin VB.Menu Pbuffer
Caption = "缓冲区分析"
End
End
Begin VB.Menu infoedit
Caption = "数据维护"
Begin VB.Menu modify
Caption = "修改"
End
End
Begin VB.Menu end
Caption = "退出"
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'声明1个自定义测量工具
Public PolyRulerTool As Integer
'定义一个逻辑变量来表示是否调用RulerTool工具
Dim PolyRulerToolBengused As Boolean '调用工具
Dim dblmapx As Double, dblmapy As Double
Dim mousedownmapx As Double
Dim mousedownmapy As Double
Dim Sumarea As Single '求多对象的面积
Dim FoundObj As MapXLib.FindFeature
Private Sub listalllayers() '将图层名放到List1,Combo1中
Dim i As Integer
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?