📄 frmexport.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmExport
BorderStyle = 3 'Fixed Dialog
Caption = "转出数据集"
ClientHeight = 3840
ClientLeft = 45
ClientTop = 330
ClientWidth = 6480
Icon = "frmExport.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3840
ScaleWidth = 6480
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Tag = "1311"
Begin VB.CheckBox chkProgress
Caption = "显示进程条"
Height = 225
Left = 2145
TabIndex = 7
Tag = "3110"
Top = 3030
Value = 1 'Checked
Width = 1935
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "放弃"
Height = 375
Left = 4920
TabIndex = 9
Tag = "3058"
Top = 3420
Width = 1200
End
Begin VB.CommandButton cmdExport
Caption = "转出"
Default = -1 'True
Height = 375
Left = 3105
TabIndex = 8
Tag = "3111"
Top = 3435
Width = 1200
End
Begin VB.Frame fraExport
Caption = "输出"
Height = 1500
Left = 2130
TabIndex = 13
Tag = "1311"
Top = 1425
Width = 4116
Begin VB.ComboBox cmbDGNUnit
BackColor = &H80000004&
Enabled = 0 'False
Height = 315
Left = 2835
Style = 2 'Dropdown List
TabIndex = 6
Top = 1065
Width = 1095
End
Begin VB.ComboBox cmbUnit
Height = 315
Left = 945
Style = 2 'Dropdown List
TabIndex = 5
Top = 1065
Width = 960
End
Begin VB.CommandButton cmdOpen
Caption = ">>"
Height = 315
Left = 3630
TabIndex = 4
Top = 630
Width = 315
End
Begin VB.TextBox txtExportFileName
Height = 315
Left = 945
TabIndex = 3
Top = 630
Width = 2715
End
Begin VB.ComboBox cmbFileType
Height = 315
ItemData = "frmExport.frx":000C
Left = 945
List = "frmExport.frx":000E
Style = 2 'Dropdown List
TabIndex = 2
Top = 225
Width = 3000
End
Begin VB.Label lblDGNUnit
Alignment = 1 'Right Justify
Caption = "Dgn单位"
Height = 210
Left = 1980
TabIndex = 17
Tag = "3109"
Top = 1110
Width = 795
End
Begin VB.Label Label6
Caption = "单 位"
Height = 225
Left = 150
TabIndex = 16
Tag = "3108"
Top = 1110
Width = 660
End
Begin VB.Label Label4
Caption = "文 件 名"
Height = 210
Left = 90
TabIndex = 15
Tag = "3107"
Top = 675
Width = 870
End
Begin VB.Label Label3
Caption = "文件类型"
Height = 225
Left = 120
TabIndex = 14
Tag = "3106"
Top = 285
Width = 855
End
End
Begin VB.Frame fraDataset
Caption = "源数据集"
Height = 1095
Left = 2130
TabIndex = 10
Tag = "3087"
Top = 225
Width = 4092
Begin VB.ComboBox cmbDataset
Height = 315
Left = 1110
Style = 2 'Dropdown List
TabIndex = 1
Top = 675
Width = 2820
End
Begin VB.ComboBox cmbDatasource
Height = 315
Left = 1110
Style = 2 'Dropdown List
TabIndex = 0
Top = 225
Width = 2820
End
Begin VB.Label Label2
Caption = "数据集"
Height = 225
Left = 75
TabIndex = 12
Tag = "3052"
Top = 705
Width = 1005
End
Begin VB.Label Label1
Caption = "数据源"
Height = 225
Left = 75
TabIndex = 11
Tag = "3051"
Top = 285
Width = 1005
End
End
Begin MSComDlg.CommonDialog cmlFile
Left = 345
Top = 3375
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 3210
Left = 150
Picture = "frmExport.frx":0010
Stretch = -1 'True
Top = 75
Width = 1860
End
Begin VB.Line Line2
X1 = 0
X2 = 6450
Y1 = 3330
Y2 = 3330
End
Begin VB.Line Line1
BorderColor = &H80000005&
X1 = 0
X2 = 6450
Y1 = 3345
Y2 = 3345
End
End
Attribute VB_Name = "frmExport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'================================================================
'数据集转出模块,矢量数据集只能转出到矢量文件,栅格数据集转出到栅格文件
'所以,设置bIsVector变量记录数据集属性
'矢量文件用 soDataset 的Export方法转出
'栅格文件用 soDataset 的ExportImg方法转出
'================================================================
Option Explicit
Dim bIsVector As Boolean
Private Sub cmbDataset_Click()
Dim Dt As Object
Set Dt = frmMain.SuperWorkspace1.Datasources.Item(cmbDatasource.Text).Datasets.Item(cmbDataset.Text)
If Dt Is Nothing Then
MsgBox "数据集打开失败!", vbInformation
cmbFileType.Enabled = False
cmdOpen.Enabled = False
Exit Sub
End If
If Dt.Vector = True Then
bIsVector = True
'添加文件类型组合框
With cmbFileType
.Clear
'矢量文件
.AddItem "MapInfo 交换文件 (*.mif)" '"MapInfo 交换文件 (*.mif)"
.AddItem "AutoCAD 交换文件(*.dxf)" '"AutoCAD 交换文件(*.dxf)"
.AddItem "MicroStation dgn 文件(*.dgn)" '"MicroStation dgn 文件(*.dgn)"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -