📄 frmcreatebuffer.frm
字号:
VERSION 5.00
Begin VB.Form frmCreateBuffer
BorderStyle = 3 'Fixed Dialog
Caption = "创建缓冲区"
ClientHeight = 3345
ClientLeft = 45
ClientTop = 330
ClientWidth = 6210
Icon = "frmCreateBuffer.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3345
ScaleWidth = 6210
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame frameRadius
Caption = "半径值"
Height = 1650
Left = 90
TabIndex = 17
Tag = "2908"
Top = 45
Width = 2820
Begin VB.OptionButton optRadius
Caption = "输入"
Height = 225
Left = 165
TabIndex = 22
Tag = "3096"
Top = 375
Value = -1 'True
Width = 915
End
Begin VB.OptionButton optFieldVal
Caption = "使用字段"
Height = 270
Left = 165
TabIndex = 21
Tag = "3097"
Top = 787
Width = 1065
End
Begin VB.ComboBox cmbField
BackColor = &H8000000F&
Enabled = 0 'False
Height = 315
Left = 1260
Style = 2 'Dropdown List
TabIndex = 20
Top = 735
Width = 1455
End
Begin VB.ComboBox cmbUnit
Enabled = 0 'False
Height = 315
Left = 1260
Style = 2 'Dropdown List
TabIndex = 19
Top = 1185
Width = 1455
End
Begin VB.TextBox txtRadius
BackColor = &H00FFFFFF&
Height = 285
Left = 1245
TabIndex = 18
Top = 315
Width = 1455
End
Begin VB.Label Label1
Caption = "长度单位"
Height = 195
Left = 390
TabIndex = 23
Tag = "3098"
Top = 1245
Width = 975
End
End
Begin VB.Frame frameManner
Height = 990
Left = 90
TabIndex = 14
Tag = "3067"
Top = 1665
Width = 2835
Begin VB.OptionButton optEveryOne
Caption = "为每个对象各建一个缓冲区"
Height = 240
Left = 135
TabIndex = 16
Tag = "3099"
Top = 285
Value = -1 'True
Width = 2595
End
Begin VB.OptionButton optAll
Caption = "为所有对象建立一个缓冲区"
Height = 240
Left = 135
TabIndex = 15
Tag = "3100"
Top = 645
Width = 2595
End
End
Begin VB.Frame frameOption
Caption = "设定"
Height = 2610
Left = 2940
TabIndex = 2
Tag = "3071"
Top = 45
Width = 3210
Begin VB.TextBox txtArc
Height = 300
Left = 915
TabIndex = 11
Text = "20"
Top = 315
Width = 1095
End
Begin VB.Frame frameSave
Caption = "保存到"
Height = 1815
Left = 270
TabIndex = 3
Tag = "3050"
Top = 735
Width = 2880
Begin VB.ComboBox cmbDtName
Height = 315
Left = 1020
Style = 2 'Dropdown List
TabIndex = 7
ToolTipText = "存放生成的缓冲区的面数据集"
Top = 645
Width = 1785
End
Begin VB.ComboBox cmbDSName
Height = 315
Left = 1020
Style = 2 'Dropdown List
TabIndex = 6
ToolTipText = "存放缓冲区的数据集所在的数据源"
Top = 240
Width = 1785
End
Begin VB.CheckBox chkNewDt
Caption = "新的数据集"
Height = 255
Left = 225
TabIndex = 5
Tag = "3070"
Top = 1035
Width = 2250
End
Begin VB.TextBox txtNewDtName
BackColor = &H80000004&
Enabled = 0 'False
Height = 315
Left = 1020
TabIndex = 4
Top = 1425
Width = 1785
End
Begin VB.Label lblDtName
Caption = "数据集"
Height = 225
Left = 225
TabIndex = 10
Tag = "3052"
Top = 682
Width = 810
End
Begin VB.Label lblDSName
Caption = "数据源"
Height = 225
Left = 225
TabIndex = 9
Tag = "3051"
Top = 330
Width = 810
End
Begin VB.Label lblNewDtName
Caption = "名称"
Height = 225
Left = 225
TabIndex = 8
Tag = "3103"
Top = 1470
Width = 420
End
End
Begin VB.Label Label2
Caption = "平滑度"
Height = 225
Left = 255
TabIndex = 13
Tag = "3101"
Top = 375
Width = 720
End
Begin VB.Label Label3
Caption = "弧段/圆"
Height = 225
Left = 2085
TabIndex = 12
Tag = "3102"
Top = 390
Width = 825
End
End
Begin VB.CommandButton btnOK
Caption = "确定"
Default = -1 'True
Height = 435
Left = 1695
TabIndex = 1
Tag = "3057"
Top = 2835
Width = 1170
End
Begin VB.CommandButton btnCancel
Cancel = -1 'True
Caption = "取消"
Height = 435
Left = 3075
TabIndex = 0
Tag = "3058"
Top = 2835
Width = 1170
End
Begin VB.Line Line1
BorderColor = &H80000005&
X1 = 0
X2 = 7245
Y1 = 2760
Y2 = 2760
End
Begin VB.Line Line2
X1 = 0
X2 = 7245
Y1 = 2745
Y2 = 2745
End
End
Attribute VB_Name = "frmCreateBuffer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnCancel_Click()
Unload Me
End Sub
Private Sub btnOK_Click()
Dim objSourceGeomtry As soGeometry '生成缓冲区的源对象
Dim objDestGeomtry As soGeoRegion '由源对象生成的单个缓冲区
Dim objAllGeomtry As soGeoRegion '所有对象作成一个缓冲区,生成的对象
Dim RecordSet As soRecordset '所选择的对象的记录集
Dim DestRecordSet As soRecordset '生成的缓冲区对象的记录集
Dim objDtVector As soDatasetVector '生成的缓冲区存放的数据集
Dim i As Integer
Dim bFirst As Boolean
Dim objDt As soDataset
Dim iImgIndex As Integer
'处理存放缓冲区的数据集
If chkNewDt.Value = 1 Then '选择了新数据集,创建面数据集,添加到TreeView
If Trim$(txtNewDtName.Text) = "" Then
MsgBox "请给出数据集名称!", vbInformation
txtNewDtName.SetFocus
Exit Sub
End If
Set objDt = FrmMain.SuperWorkspace1.Datasources.Item(cmbDsName.Text).CreateDataset(txtNewDtName.Text, scdRegion, 0)
If Not (objDt Is Nothing) Then '创建成功
'添加到TreeView列表中
Select Case objDt.Type
Case scdPoint
iImgIndex = 10
Case scdLine
iImgIndex = 12
Case scdRegion
iImgIndex = 4
Case scdText
iImgIndex = 11
Case scdCAD
iImgIndex = 13
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -