📄 form1.frm
字号:
VERSION 5.00
Object = "{9BD6A640-CE75-11D1-AF04-204C4F4F5020}#2.0#0"; "mo20.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "ZRendere示例"
ClientHeight = 5880
ClientLeft = 1875
ClientTop = 420
ClientWidth = 8415
FillColor = &H00C0C0C0&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5880
ScaleWidth = 8415
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 390
Left = 0
TabIndex = 15
Top = 0
Width = 8415
_ExtentX = 14843
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 6
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "ZoomIn"
Object.ToolTipText = "放大"
Object.Tag = ""
ImageIndex = 1
Style = 2
Value = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "ZoomOut"
Object.ToolTipText = "缩小"
Object.Tag = ""
ImageIndex = 2
Style = 2
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Pan"
Object.ToolTipText = "移动"
Object.Tag = ""
ImageIndex = 3
Style = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Rect"
Object.ToolTipText = "选择二维矩形或三维立方体中的山峰"
Object.Tag = ""
ImageIndex = 5
Style = 2
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "全图显示"
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "FullExtent"
Object.ToolTipText = "Full Extent"
Object.Tag = ""
ImageIndex = 6
EndProperty
EndProperty
End
Begin VB.CheckBox LPlacer
Caption = "显示名称"
Height = 195
Left = 3600
TabIndex = 16
Top = 5520
Value = 1 'Checked
Width = 2655
End
Begin VB.PictureBox PictureLeg
BackColor = &H80000009&
Height = 975
Left = 3600
ScaleHeight = 915
ScaleWidth = 2595
TabIndex = 14
Top = 4320
Width = 2655
End
Begin VB.TextBox floor
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7440
TabIndex = 7
Text = "750"
Top = 5400
Width = 615
End
Begin VB.TextBox ceiling
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 7440
TabIndex = 8
Text = "1000"
Top = 5040
Width = 615
End
Begin VB.OptionButton sel3d
Caption = "三维立方体"
Enabled = 0 'False
Height = 255
Left = 6480
TabIndex = 6
Top = 4680
Width = 1455
End
Begin VB.OptionButton sel2d
Caption = "二维矩形"
Enabled = 0 'False
Height = 255
Left = 6480
TabIndex = 5
Top = 4440
Value = -1 'True
Width = 1455
End
Begin VB.Frame Frame1
Caption = "Renderer"
Height = 1215
Left = 120
TabIndex = 1
Top = 4200
Width = 3375
Begin VB.OptionButton VRen
Caption = "ValueMapRenderer(按照类型着色)"
Height = 375
Left = 120
TabIndex = 4
Top = 480
Width = 3135
End
Begin VB.OptionButton Zren
Caption = "ZRenderer(高度的单位为英尺)"
Height = 255
Left = 120
TabIndex = 3
Top = 840
Width = 3135
End
Begin VB.OptionButton NoRen
Caption = "无"
Height = 255
Left = 120
TabIndex = 2
Top = 240
Value = -1 'True
Width = 1095
End
End
Begin MapObjects2.Map Map1
Height = 3615
Left = 120
TabIndex = 0
Top = 480
Width = 8175
_Version = 131072
_ExtentX = 14420
_ExtentY = 6376
_StockProps = 225
BackColor = 16777215
BorderStyle = 1
ScrollBars = 0 'False
Contents = "Form1.frx":0000
End
Begin VB.Frame Frame2
Caption = "选项"
ForeColor = &H00000000&
Height = 1575
Left = 6360
TabIndex = 9
Top = 4200
Width = 1935
Begin VB.Label Label2
Caption = "顶部坐标："
Height = 255
Left = 120
TabIndex = 13
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Caption = "低部坐标："
Height = 255
Left = 120
TabIndex = 12
Top = 840
Width = 1215
End
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 8421376
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 6
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":001A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":012C
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":023E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":0350
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":0462
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form1.frx":0574
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Clue
Height = 255
Left = 120
TabIndex = 10
Top = 5520
Width = 3375
End
Begin VB.Label values
BackStyle = 0 'Transparent
Height = 1335
Left = 1440
TabIndex = 11
Top = 7080
Width = 1455
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -