📄 placelocator.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmPlaceLocator
BorderStyle = 3 'Fixed Dialog
Caption = "Addressmatch to the ___ layer (placelocator)"
ClientHeight = 5280
ClientLeft = 45
ClientTop = 330
ClientWidth = 5175
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5280
ScaleWidth = 5175
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog cdlPlaceLocator
Left = 0
Top = 840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin TabDlg.SSTab sstPlaceLocator
Height = 5055
Left = 120
TabIndex = 0
Top = 120
Width = 4935
_ExtentX = 8705
_ExtentY = 8916
_Version = 393216
TabHeight = 882
TabCaption(0) = "Make the layer matchable"
TabPicture(0) = "PlaceLocator.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblBaseFields"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "cboMatchField"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmdBuildIndex"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "chkForce"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "Match a single address"
TabPicture(1) = "PlaceLocator.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "cmdSingleMatch"
Tab(1).Control(1)= "cboSingleMatch(1)"
Tab(1).Control(2)= "cboSingleMatch(0)"
Tab(1).Control(3)= "picSingleMatch"
Tab(1).Control(4)= "txtPlaceName"
Tab(1).Control(5)= "lblSingleMatch(1)"
Tab(1).Control(6)= "lblSingleMatch(0)"
Tab(1).ControlCount= 7
TabCaption(2) = "Match a table of addresses"
TabPicture(2) = "PlaceLocator.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "picBatchMatch"
Tab(2).Control(1)= "cboBatchMatch(0)"
Tab(2).Control(2)= "cboBatchMatch(1)"
Tab(2).Control(3)= "cmdBatchMatch"
Tab(2).Control(4)= "cmdOpenDatabase"
Tab(2).Control(5)= "cboBatchMatch(2)"
Tab(2).Control(6)= "lblBatchMatch(4)"
Tab(2).Control(7)= "lblBatchMatch(1)"
Tab(2).Control(8)= "lblBatchMatch(3)"
Tab(2).Control(9)= "lblBatchMatch(2)"
Tab(2).Control(10)= "lblBatchMatch(0)"
Tab(2).ControlCount= 11
Begin VB.CheckBox chkForce
Caption = "Force index build"
BeginProperty Font
Name = "Arial"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 22
Top = 2520
Width = 1455
End
Begin VB.PictureBox picBatchMatch
BackColor = &H0000FFFF&
Height = 300
Left = -73440
ScaleHeight = 240
ScaleWidth = 555
TabIndex = 21
Top = 3840
Visible = 0 'False
Width = 615
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 0
ItemData = "PlaceLocator.frx":0054
Left = -72720
List = "PlaceLocator.frx":0064
TabIndex = 20
Top = 3840
Visible = 0 'False
Width = 1695
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 1
ItemData = "PlaceLocator.frx":0089
Left = -70920
List = "PlaceLocator.frx":00A8
TabIndex = 19
Top = 3840
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdBatchMatch
Caption = "Find Now"
Height = 495
Left = -72360
TabIndex = 18
Top = 4320
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdOpenDatabase
Caption = "Open Database"
Height = 375
Left = -72480
TabIndex = 14
Top = 1200
Width = 1695
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 2
Left = -72600
TabIndex = 12
Top = 2760
Visible = 0 'False
Width = 1935
End
Begin VB.CommandButton cmdSingleMatch
Caption = "Find Now"
Height = 495
Left = -73200
TabIndex = 10
Top = 3240
Width = 1215
End
Begin VB.ComboBox cboSingleMatch
Height = 315
Index = 1
ItemData = "PlaceLocator.frx":00CD
Left = -71640
List = "PlaceLocator.frx":00EC
TabIndex = 9
Top = 2400
Width = 735
End
Begin VB.ComboBox cboSingleMatch
Height = 315
Index = 0
ItemData = "PlaceLocator.frx":0111
Left = -73440
List = "PlaceLocator.frx":0121
TabIndex = 8
Top = 2400
Width = 1695
End
Begin VB.PictureBox picSingleMatch
BackColor = &H0000FFFF&
Height = 300
Left = -74160
ScaleHeight = 240
ScaleWidth = 555
TabIndex = 6
Top = 2400
Width = 615
End
Begin VB.TextBox txtPlaceName
Height = 285
Left = -73560
TabIndex = 5
Top = 1320
Width = 1935
End
Begin VB.CommandButton cmdBuildIndex
Caption = "Build matching index"
Height = 495
Left = 360
TabIndex = 3
Top = 1920
Width = 1935
End
Begin VB.ComboBox cboMatchField
Height = 315
Left = 360
TabIndex = 2
Text = "cboMatchField"
Top = 1440
Width = 1935
End
Begin VB.Label lblBatchMatch
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "...and draw them using this color, marker style, and size:"
Height = 400
Index = 4
Left = -72960
TabIndex = 17
Top = 3240
Visible = 0 'False
Width = 2535
End
Begin VB.Label lblBatchMatch
Caption = "Source table:"
Height = 225
Index = 1
Left = -73080
TabIndex = 16
Top = 1680
Visible = 0 'False
Width = 1455
End
Begin VB.Label lblBatchMatch
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Select the field that contains the addresses to be matched."
Height = 375
Index = 3
Left = -73080
TabIndex = 15
Top = 2280
Visible = 0 'False
Width = 2895
End
Begin VB.Label lblBatchMatch
Alignment = 2 'Center
BackColor = &H00FFFFFF&
Height = 255
Index = 2
Left = -73080
TabIndex = 13
Top = 1920
Visible = 0 'False
Width = 2895
End
Begin VB.Label lblBatchMatch
Alignment = 2 'Center
Caption = "Navigate to the dBASE table which contains the addresses to be matched."
Height = 495
Index = 0
Left = -73080
TabIndex = 11
Top = 720
Width = 2775
End
Begin VB.Label lblSingleMatch
Caption = "...and draw them using this color, marker style, and size:"
Height = 495
Index = 1
Left = -73560
TabIndex = 7
Top = 1920
Width = 2175
End
Begin VB.Label lblSingleMatch
Caption = "Find all of the features that match this name:"
Height = 495
Index = 0
Left = -73680
TabIndex = 4
Top = 720
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -