📄 layersymbol.frm
字号:
Top = 3000
Width = 2055
End
Begin VB.CheckBox chkSSP
Caption = "显示边界"
Height = 255
Left = -71400
TabIndex = 7
Top = 1920
Width = 1455
End
Begin VB.Label lblNOL
Caption = "遮蔽色"
Height = 255
Index = 2
Left = -71400
TabIndex = 82
Top = 1680
Width = 615
End
Begin VB.Label lblNOL
Caption = "字体"
Height = 255
Index = 1
Left = -74640
TabIndex = 81
Top = 1320
Width = 375
End
Begin VB.Label lblNOL
Caption = "字段"
Height = 255
Index = 0
Left = -74640
TabIndex = 80
Top = 600
Width = 735
End
Begin VB.Label lblSL
Caption = "字段"
Height = 255
Index = 0
Left = -74760
TabIndex = 64
Top = 600
Width = 1815
End
Begin VB.Label lblSL
Caption = "水平相对位置"
Height = 255
Index = 1
Left = -74760
TabIndex = 63
Top = 1200
Width = 1815
End
Begin VB.Label lblSL
Caption = "垂直相对位置"
Height = 255
Index = 2
Left = -74760
TabIndex = 62
Top = 1800
Width = 1815
End
Begin VB.Label lblSL
Caption = "字体"
Height = 255
Index = 3
Left = -74760
TabIndex = 61
Top = 2400
Width = 1815
End
Begin VB.Label lblSL
Caption = "标注水平偏移距离字段"
Height = 255
Index = 4
Left = -74760
TabIndex = 60
Top = 3000
Width = 1815
End
Begin VB.Label lblSL
Caption = "标注垂直偏移距离字段"
Height = 255
Index = 5
Left = -72000
TabIndex = 59
Top = 3000
Width = 1815
End
Begin VB.Label lblSL
Caption = "转角"
Height = 255
Index = 6
Left = -71880
TabIndex = 58
Top = 2280
Width = 375
End
Begin VB.Label lblSL
BackColor = &H80000009&
Caption = "0"
Height = 255
Index = 7
Left = -71400
TabIndex = 57
Top = 2280
Width = 375
End
Begin VB.Label lblcb
Caption = "字段"
Height = 255
Index = 0
Left = 240
TabIndex = 44
Top = 600
Width = 1215
End
Begin VB.Label lblcb
Caption = "分类数"
Height = 255
Index = 1
Left = 3120
TabIndex = 43
Top = 600
Width = 1455
End
Begin VB.Label lblcb
Caption = "色阶"
Height = 255
Index = 2
Left = 4320
TabIndex = 42
Top = 1560
Width = 855
End
Begin VB.Label lblcb
Alignment = 1 'Right Justify
Caption = "开始"
Height = 255
Index = 3
Left = 4080
TabIndex = 41
Top = 1920
Width = 495
End
Begin VB.Label lblcb
Alignment = 1 'Right Justify
Caption = "结束"
Height = 255
Index = 4
Left = 4080
TabIndex = 40
Top = 2280
Width = 495
End
Begin VB.Label lblUVFieldlist
Caption = "字段"
Height = 255
Left = -71400
TabIndex = 31
Top = 1125
Width = 1695
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "颜色"
Height = 255
Index = 0
Left = -74160
TabIndex = 22
Top = 1200
Width = 1215
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "样式"
Height = 255
Index = 1
Left = -73680
TabIndex = 21
Top = 1560
Width = 735
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "Character Index:"
Enabled = 0 'False
Height = 255
Index = 4
Left = -74400
TabIndex = 20
Top = 2640
Width = 1455
End
Begin VB.Label lblSSP
Caption = "边界颜色"
Height = 255
Index = 6
Left = -71160
TabIndex = 19
Top = 1200
Width = 1215
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "转角"
Enabled = 0 'False
Height = 255
Index = 5
Left = -73800
TabIndex = 18
Top = 3000
Width = 855
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "字体"
Enabled = 0 'False
Height = 255
Index = 3
Left = -74160
TabIndex = 17
Top = 2280
Width = 1215
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "尺寸"
Height = 255
Index = 2
Left = -74160
TabIndex = 16
Top = 1920
Width = 1215
End
Begin VB.Label lblSSP
Alignment = 1 'Right Justify
Caption = "0"
Enabled = 0 'False
Height = 255
Index = 7
Left = -73440
TabIndex = 15
Top = 3240
Width = 375
End
End
Begin MSComDlg.CommonDialog cdlgLayerProp
Left = 0
Top = 6000
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtLayerName
Height = 285
Left = 1200
TabIndex = 4
Top = 120
Width = 3495
End
Begin VB.CommandButton cmdApply
Caption = "应用"
Height = 375
Left = 1080
TabIndex = 2
Top = 6000
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 375
Left = 2760
TabIndex = 1
Top = 6000
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 375
Left = 4440
TabIndex = 0
Top = 6000
Width = 1095
End
Begin VB.Label lblPanelDesc
Caption = "用同一符号表示某层中所有特征"
Height = 375
Left = 120
TabIndex = 5
Top = 600
Width = 5535
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "图层名称"
Height = 255
Left = 120
TabIndex = 3
Top = 150
Width = 975
End
Begin VB.Line Line1
BorderColor = &H80000005&
BorderStyle = 6 'Inside Solid
X1 = -120
X2 = 6000
Y1 = 5400
Y2 = 5400
End
End
Attribute VB_Name = "frmLayerSymbol"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strMarkerStyle(4) As String
Dim strLineStyle(4) As String
Dim strFillStyle(10) As String
Dim strPanelDesc(5) As String
Dim lyr As MapObjects2.MapLayer
Dim recs As MapObjects2.Recordset
Dim tDesc As MapObjects2.TableDesc
Dim flds As MapObjects2.Fields
Dim A As Integer
Dim vmr As MapObjects2.ValueMapRenderer
Dim cbr As MapObjects2.ClassBreaksRenderer
Dim lr As MapObjects2.LabelRenderer
Dim lp As MapObjects2.LabelPlacer
Dim gr As MapObjects2.GroupRenderer
'Dim defcbr As MapObjects2.ClassBreaksRenderer
Dim colorMask, colorText As Long
Dim justOpened As Boolean
Private Sub cmdgr_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
If TypeOf lyr.Renderer Is MapObjects2.GroupRenderer Then
Set gr = lyr.Renderer
For i = 0 To gr.Count - 1
If TypeOf gr.Renderer(i) Is MapObjects2.ValueMapRenderer Then
gr.Remove (i)
txtgr(0).Text = ""
txtgr(4).Text = ""
End If
Next i
If gr.Count = 1 Then
Select Case True
Case TypeOf gr.Renderer(0) Is MapObjects2.LabelRenderer
Set lr = gr.Renderer(0)
txtgr(2).Text = ""
Case TypeOf gr.Renderer(0) Is MapObjects2.LabelPlacer
Set lp = gr.Renderer(0)
txtgr(3).Text = ""
End Select
End If
sstLayerProp.Tab = 0
Call ApplySingleSymbol
Select Case True
Case Not lr Is Nothing
Set lyr.Renderer = lr
sstLayerProp.Tab = 3
Case Not lp Is Nothing
Set lyr.Renderer = lp
sstLayerProp.Tab = 4
End Select
End If
Case 1
If TypeOf lyr.Renderer Is MapObjects2.GroupRenderer Then
Set gr = lyr.Renderer
For i = 0 To gr.Count - 1
If TypeOf gr.Renderer(i) Is MapObjects2.ClassBreaksRenderer Then
gr.Remove (i)
txtgr(1).Text = ""
txtgr(5).Text = ""
End If
Next i
If gr.Count = 1 Then
Select Case True
Case TypeOf gr.Renderer(0) Is MapObjects2.LabelRenderer
Set lr = gr.Renderer(0)
txtgr(2).Text = ""
Case TypeOf gr.Renderer(0) Is MapObjects2.LabelPlacer
Set lp = gr.Renderer(0)
txtgr(3).Text = ""
End Select
End If
sstLayerProp.Tab = 0
Call ApplySingleSymbol
Select Case True
Case Not lr Is Nothing
Set lyr.Renderer = lr
sstLayerProp.Tab = 3
Case Not lp Is Nothing
Set lyr.Renderer = lp
sstLayerProp.Tab = 4
End Select
End If
Case 2
If TypeOf lyr.Renderer Is MapObjects2.GroupRenderer Then
Set gr = lyr.Renderer
For i = 0 To gr.Count - 1
If TypeOf gr.Renderer(i) Is MapObjects2.LabelRenderer Then
gr.Remove (i)
txtgr(2).Text = ""
End If
Next i
If gr.Count = 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -