📄 frmtopo.frm
字号:
VERSION 5.00
Begin VB.Form frmTopo
Appearance = 0 'Flat
BackColor = &H80000004&
BorderStyle = 3 'Fixed Dialog
Caption = "Topo处理设置"
ClientHeight = 4710
ClientLeft = 45
ClientTop = 330
ClientWidth = 5310
ControlBox = 0 'False
Icon = "frmTopo.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4710
ScaleWidth = 5310
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 420
Left = 3735
TabIndex = 41
Tag = "5368"
Top = 4215
Width = 1140
End
Begin VB.CommandButton cmdOk
Caption = "确定"
Height = 420
Left = 2497
TabIndex = 40
Tag = "5368"
Top = 4215
Width = 1140
End
Begin VB.CommandButton cmdAdvance
Caption = "高级设置"
Height = 420
Left = 1260
TabIndex = 39
Tag = "5368"
Top = 4215
Width = 1140
End
Begin VB.Frame frameAdvance
Height = 2985
Left = 5730
TabIndex = 18
Top = 1185
Visible = 0 'False
Width = 5325
Begin VB.Frame Frame1
Height = 1440
Left = 0
TabIndex = 30
Top = 1545
Width = 5325
Begin VB.ComboBox cmbDtPt
Height = 315
Left = 1515
Style = 2 'Dropdown List
TabIndex = 38
Top = 255
Width = 1425
End
Begin VB.TextBox txtFltTlr
Height = 300
Left = 1515
TabIndex = 37
Text = "0.4"
Top = 1065
Width = 1425
End
Begin VB.TextBox txtFlt
Enabled = 0 'False
Height = 300
Left = 1515
TabIndex = 36
Top = 660
Width = 1425
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = $"frmTopo.frx":000C
ForeColor = &H80000008&
Height = 1125
Left = 3015
TabIndex = 42
Top = 240
Width = 2190
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "点数据集:"
Height = 195
Index = 1
Left = 735
TabIndex = 35
Top = 345
Width = 765
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "打断条件:"
Height = 195
Index = 1
Left = 735
TabIndex = 34
Top = 720
Width = 765
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "打断容限:"
Height = 195
Index = 1
Left = 735
TabIndex = 33
Top = 1110
Width = 765
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "打断设置"
Height = 195
Index = 2
Left = 60
TabIndex = 32
Tag = "3261"
Top = 120
Width = 720
End
End
Begin VB.Frame frameTolerance
Height = 1560
Left = 0
TabIndex = 19
Tag = "3158"
Top = 0
Width = 5325
Begin VB.CommandButton cmdClear
Caption = "清除容限"
Height = 420
Left = 4185
TabIndex = 44
Tag = "5369"
Top = 1080
Width = 1035
End
Begin VB.CommandButton cmdDefault
Caption = "设为默认"
Height = 420
Left = 3120
TabIndex = 43
Tag = "5368"
Top = 1080
Width = 1035
End
Begin VB.TextBox txtFuzzy
Height = 300
Left = 1515
TabIndex = 24
Top = 352
Width = 1425
End
Begin VB.TextBox txtDangle
Height = 300
Left = 1515
TabIndex = 23
Top = 757
Width = 1425
End
Begin VB.TextBox txtNodesnap
Height = 300
Left = 3780
TabIndex = 22
Top = 352
Width = 1425
End
Begin VB.TextBox txtSmallplygon
Height = 300
Left = 1515
TabIndex = 21
Top = 1162
Width = 1425
End
Begin VB.TextBox txtGrain
Height = 300
Left = 3780
TabIndex = 20
Top = 757
Width = 1425
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "容限设置"
Height = 195
Index = 1
Left = 45
TabIndex = 31
Tag = "3261"
Top = 120
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "模糊容限:"
Height = 195
Index = 0
Left = 720
TabIndex = 29
Top = 405
Width = 765
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "悬线容限:"
Height = 195
Index = 0
Left = 720
TabIndex = 28
Top = 810
Width = 765
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "结点容限:"
Height = 195
Left = 2985
TabIndex = 27
Top = 405
Width = 765
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "最小多边形容限:"
Height = 195
Index = 0
Left = 180
TabIndex = 26
Top = 1215
Width = 1305
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "颗粒容限:"
Height = 195
Left = 2985
TabIndex = 25
Top = 810
Width = 765
End
End
End
Begin VB.Frame frameErrOption
Caption = "错误处理选项"
Height = 1560
Left = 0
TabIndex = 8
Tag = "3262"
Top = 2580
Width = 5325
Begin VB.CheckBox chkEDL
Caption = "延长长悬线"
Height = 240
Left = 3720
TabIndex = 17
Tag = "3269"
Top = 675
Width = 1290
End
Begin VB.CheckBox chkCOD
Caption = "去除短悬线"
Height = 255
Left = 3720
TabIndex = 16
Tag = "3268"
Top = 330
Value = 1 'Checked
Width = 1230
End
Begin VB.CheckBox chkMPN
Caption = "合并假结点"
Height = 240
Left = 1867
TabIndex = 15
Tag = "3267"
Top = 330
Value = 1 'Checked
Width = 1290
End
Begin VB.CheckBox chkCRL
Caption = "去除重复线"
Height = 225
Left = 1867
TabIndex = 14
Tag = "3266"
Top = 675
Width = 1230
End
Begin VB.CheckBox chkMRN
Caption = "合并邻近结点"
Height = 210
Left = 225
TabIndex = 13
Tag = "3265"
Top = 1065
Value = 1 'Checked
Width = 1425
End
Begin VB.CheckBox chkCIV
Caption = "去除冗余点"
Height = 270
Left = 225
TabIndex = 12
Tag = "3264"
Top = 675
Value = 1 'Checked
Width = 1620
End
Begin VB.CheckBox chkIL
Caption = "弧段求交"
Height = 225
Left = 225
TabIndex = 11
Tag = "3263"
Top = 330
Value = 1 'Checked
Width = 1080
End
Begin VB.CommandButton btnSelectAll
Caption = "全选中"
Height = 420
Left = 2475
TabIndex = 10
Tag = "5368"
Top = 1005
Width = 1140
End
Begin VB.CommandButton btnUnSelectAll
Caption = "全取消"
Height = 420
Left = 3735
TabIndex = 9
Tag = "5369"
Top = 1005
Width = 1140
End
End
Begin VB.Frame frameTopCreate
Caption = "创建拓扑"
Height = 1410
Left = 0
TabIndex = 0
Tag = "3256"
Top = 1185
Width = 5310
Begin VB.CheckBox chkErrInfo
Caption = "生成拓扑错误信息"
Height = 285
Left = 195
TabIndex = 5
Tag = "3259"
Top = 1020
Value = 1 'Checked
Width = 1800
End
Begin VB.CheckBox chkNetTopu
Caption = "创建网络拓扑图层"
Height = 225
Left = 195
TabIndex = 4
Tag = "3258"
Top = 690
Width = 1830
End
Begin VB.CheckBox chkTopuPolygon
Caption = "创建拓扑多边形"
Height = 285
Left = 195
TabIndex = 3
Tag = "3257"
Top = 300
Width = 1575
End
Begin VB.TextBox txtPolygonName
BackColor = &H80000004&
Enabled = 0 'False
Height = 300
Left = 3345
TabIndex = 2
Top = 247
Width = 1725
End
Begin VB.TextBox txtNetName
BackColor = &H80000004&
Enabled = 0 'False
Height = 300
Left = 3345
TabIndex = 1
Top = 637
Width = 1725
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "多边形图层名"
Height = 195
Left = 2205
TabIndex = 7
Tag = "3260"
Top = 300
Width = 1080
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -