📄 mapproperties.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Begin VB.Form frmMapProperties
BorderStyle = 3 'Fixed Dialog
Caption = "Map Properties"
ClientHeight = 3750
ClientLeft = 2370
ClientTop = 1275
ClientWidth = 4785
ControlBox = 0 'False
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 3750
ScaleWidth = 4785
ShowInTaskbar = 0 'False
Begin VB.Frame Frame3
Height = 1695
Left = 120
TabIndex = 13
Top = 0
Width = 1935
Begin VB.CommandButton CmdAddLayer
Caption = "Add Layer..."
Height = 495
Left = 240
TabIndex = 15
Top = 360
Width = 1455
End
Begin VB.CommandButton CmdAddSDE
Caption = "Add SDE Layer..."
Height = 495
Left = 240
TabIndex = 14
Top = 960
Width = 1455
End
End
Begin VB.Frame Frame2
Height = 975
Left = 120
TabIndex = 10
Top = 2040
Width = 1935
Begin VB.CheckBox chkAppearance
Caption = "3D appearance"
Height = 255
Left = 120
TabIndex = 12
Top = 600
Width = 1455
End
Begin VB.CheckBox chkScrollbars
Caption = "Scrollbars on map"
Height = 255
Left = 120
TabIndex = 11
Top = 240
Width = 1575
End
End
Begin VB.Frame Frame1
Height = 3015
Left = 2280
TabIndex = 3
Top = 0
Width = 2415
Begin VB.ComboBox cboCancelAction
Height = 315
ItemData = "MapProperties.frx":0000
Left = 240
List = "MapProperties.frx":000D
Style = 2 'Dropdown List
TabIndex = 6
Top = 1560
Width = 2055
End
Begin VB.ComboBox cboBorderStyle
Height = 315
ItemData = "MapProperties.frx":005A
Left = 240
List = "MapProperties.frx":0064
Style = 2 'Dropdown List
TabIndex = 5
Top = 600
Width = 2055
End
Begin VB.ComboBox cboMapUnits
Height = 315
ItemData = "MapProperties.frx":0084
Left = 240
List = "MapProperties.frx":0094
TabIndex = 4
Text = "cboMapUnits"
Top = 2520
Width = 2055
End
Begin VB.Label lblCancelAction
Caption = "Cancel action when Escape key is pressed:"
Height = 375
Left = 240
TabIndex = 9
Top = 1080
Width = 2055
End
Begin VB.Label lblMapBorder
Caption = "Map border style:"
Height = 255
Left = 240
TabIndex = 8
Top = 360
Width = 1215
End
Begin VB.Label lblMapUnits
Caption = "What map units are your layers using?"
Height = 495
Left = 240
TabIndex = 7
Top = 2040
Width = 2055
End
End
Begin VB.CommandButton cmdOK
Caption = "Close"
Height = 375
Left = 3600
TabIndex = 2
Top = 3240
Width = 1095
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4320
Top = 2640
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox picMapBackColor
BackColor = &H00FFFFFF&
Height = 375
Left = 120
ScaleHeight = 315
ScaleWidth = 795
TabIndex = 0
Top = 3240
Width = 855
End
Begin VB.Label lblMapBackColor
Caption = "Click to select map background canvas color:"
Height = 375
Left = 1080
TabIndex = 1
Top = 3240
Width = 2295
End
End
Attribute VB_Name = "frmMapProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cboMapUnits_Click()
'Set the global strMapUnits variable
frmMain.strMapUnits = cboMapUnits.List(cboMapUnits.ListIndex)
'Update the scale display area
frmMain.updateScale
End Sub
Private Sub CmdAddLayer_Click()
frmMain.AddFile
'Update the MapTip layer and field values in the combo boxes.
If frmMain.chkTipLayer.Value = 1 Then frmMain.refreshMapTips
End Sub
Private Sub CmdAddSDE_Click()
Load frmConnectSDE
frmConnectSDE.Show vbModal
'Update the MapTip layer and field values in the combo boxes.
If frmMain.chkTipLayer.Value = 1 Then frmMain.refreshMapTips
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
'Align the left of this form with the left of the Main form.
Me.Left = frmMain.Left
'Position this form just under the Main form, unless
'that puts it off the bottom of the screen in which
'case, align the bottom of this form with the bottom
'of the screen.
If (Me.Height + frmMain.Top + frmMain.Height) > Screen.Height Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = frmMain.Top + frmMain.Height
End If
'Set defaults for scrollbar, borderstyle and cancel action.
Select Case frmMain.mapDisp.ScrollBars
Case True: chkScrollbars.Value = 1
Case False: chkScrollbars.Value = 0
End Select
chkAppearance.Value = frmMain.mapDisp.Appearance
cboBorderStyle.ListIndex = frmMain.mapDisp.BorderStyle
cboCancelAction.ListIndex = frmMain.mapDisp.CancelAction
'If the map already knows its map units, populate the
'map units combobox with that information.
Select Case frmMain.strMapUnits
Case "Unknown": cboMapUnits.ListIndex = 0
Case "Decimal Degrees": cboMapUnits.ListIndex = 1
Case "Meters": cboMapUnits.ListIndex = 2
Case "Feet": cboMapUnits.ListIndex = 3
End Select
'Report the BackColor of the map
picMapBackColor.BackColor = frmMain.mapDisp.BackColor
End Sub
Private Sub cboBorderStyle_Click()
'Set the border status by extracting the first
'letter from the selected item from the combo box.
Dim status As Integer
status = Left(cboBorderStyle.text, 1)
frmMain.mapDisp.BorderStyle = status
End Sub
Private Sub cboCancelAction_Click()
'Set the cancel status by extracting the first
'letter from the selected item from the combo box.
Dim status As Integer
status = Left(cboCancelAction.text, 1)
frmMain.mapDisp.CancelAction = status
End Sub
Private Sub chkAppearance_Click()
'Set appearance to 3D or Flat
If chkAppearance.Value = 1 Then
frmMain.mapDisp.Appearance = mo3D
ElseIf chkAppearance.Value = 0 Then
frmMain.mapDisp.Appearance = moFlat
End If
End Sub
Private Sub chkScrollbars_Click()
'Turn the map display scroll bars on or off
If chkScrollbars.Value = 0 Then
frmMain.mapDisp.ScrollBars = False
ElseIf chkScrollbars.Value = 1 Then
frmMain.mapDisp.ScrollBars = True
End If
End Sub
Private Sub picMapBackColor_Click()
'Set the background canvas color of the map
CommonDialog1.ShowColor
picMapBackColor.BackColor = CommonDialog1.color
frmMain.mapDisp.BackColor = picMapBackColor.BackColor
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -