?? form1.frm
字號:
VERSION 5.00
Object = "{9D6ED199-5910-11D2-98A6-00A0C9742CCA}#4.0#0"; "MAPX40.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 8190
ClientLeft = 165
ClientTop = 855
ClientWidth = 11880
LinkTopic = "Form1"
MinButton = 0 'False
ScaleHeight = 8190
ScaleWidth = 11880
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame2
Caption = "地物空間查詢:"
Height = 1455
Left = 1320
TabIndex = 12
Top = 3600
Width = 5175
Begin VB.ComboBox Combo2
Height = 300
Left = 2640
TabIndex = 19
Top = 840
Width = 1575
End
Begin VB.TextBox Text1
Height = 270
Left = 1200
TabIndex = 16
Top = 240
Width = 1095
End
Begin VB.TextBox Text2
Height = 270
Left = 3840
TabIndex = 15
Top = 240
Width = 855
End
Begin VB.CommandButton find
Caption = "find"
Height = 495
Left = 4320
TabIndex = 14
Top = 720
Width = 735
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Form1.frx":0000
Left = 600
List = "Form1.frx":0002
TabIndex = 13
Top = 840
Width = 1455
End
Begin VB.Label Label6
Caption = "地物:"
Height = 255
Left = 2160
TabIndex = 21
Top = 840
Width = 495
End
Begin VB.Label Label4
Caption = "圖層:"
Height = 255
Left = 120
TabIndex = 20
Top = 840
Width = 495
End
Begin VB.Label Label1
Caption = "距離（米）："
Height = 255
Left = 120
TabIndex = 18
Top = 240
Width = 1095
End
Begin VB.Label Label2
Caption = "面積（平方米）："
Height = 255
Left = 2400
TabIndex = 17
Top = 240
Width = 1455
End
End
Begin MSComDlg.CommonDialog CmD1
Left = 4560
Top = 120
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin TabDlg.SSTab SSTab1
Height = 3135
Left = 5640
TabIndex = 2
Top = 720
Width = 3495
_ExtentX = 6165
_ExtentY = 5530
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "分層顯示"
TabPicture(0) = "Form1.frx":0004
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Command4"
Tab(0).Control(1)= "Command3"
Tab(0).Control(2)= "Command1"
Tab(0).Control(3)= "List1"
Tab(0).Control(4)= "Frame1"
Tab(0).Control(5)= "Label3"
Tab(0).ControlCount= 6
TabCaption(1) = "屬性信息"
TabPicture(1) = "Form1.frx":0020
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Label5"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Command2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Picture1"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
Begin VB.CommandButton Command4
Caption = "下移"
Height = 495
Left = -72000
TabIndex = 23
Top = 2160
Width = 375
End
Begin VB.CommandButton Command3
Caption = "上移"
Height = 495
Left = -72000
TabIndex = 22
Top = 960
Width = 375
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoRedraw = -1 'True
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1935
Left = 240
ScaleHeight = 1905
ScaleWidth = 2025
TabIndex = 11
Top = 840
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "選擇地物"
Height = 615
Left = 2520
TabIndex = 10
Top = 1560
Width = 615
End
Begin VB.CommandButton Command1
Caption = "刪除圖層"
Height = 375
Left = -74280
Style = 1 'Graphical
TabIndex = 8
Top = 2040
Width = 1095
End
Begin VB.ListBox List1
Height = 1860
ItemData = "Form1.frx":003C
Left = -72960
List = "Form1.frx":003E
TabIndex = 6
Top = 840
Width = 855
End
Begin VB.Frame Frame1
Caption = "圖層顯示："
Height = 1335
Left = -74880
TabIndex = 3
Top = 600
Width = 1695
Begin VB.OptionButton Option2
Caption = "不可見"
Height = 300
Left = 480
TabIndex = 5
Top = 720
Width = 855
End
Begin VB.OptionButton Option1
Caption = "可見"
Height = 180
Left = 480
TabIndex = 4
Top = 360
Value = -1 'True
Width = 735
End
Begin VB.Image Image1
Height = 315
Left = 120
Picture = "Form1.frx":0040
Top = 240
Width = 375
End
End
Begin VB.Label Label5
Caption = "所選地物相關屬性信息如下："
Height = 375
Left = 240
TabIndex = 9
Top = 360
Width = 1575
End
Begin VB.Label Label3
Caption = "圖層："
Height = 255
Left = -72960
TabIndex = 7
Top = 600
Width = 735
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 3840
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":00DC
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":01FE
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":060E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":09F7
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0E1D
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 1
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "pan"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "layers"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "choose"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zoomin"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "zoomout"
ImageIndex = 5
EndProperty
EndProperty
End
Begin MapXLib.Map Map1
Height = 3135
Left = 0
TabIndex = 0
Top = 840
Width = 5415
_Version = 400013
_ExtentX = 9551
_ExtentY = 5530
_StockProps = 1
GeoDictionary = "GeoDictionary"
GeoSet = "hzau 1"
GeoSetUserName = "hzau 1"
CurrentTool = 1000
Zoom = .553235
PaperUnit = 7
AreaUnit = 21
MaxSearchTime = 30
CenterX = 3.91161125320999E-02
CenteryY = 2.56425258951823E-02
Rotation = 0
FeatureEditMode = 1
NodeHandleSize = 0
TitleText = "hzau 1"
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 = 6
Layer0.path = "排水節點.TAB"
Layer0.name = "排水節點"
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -