frmimportdatasource3_dgn.frm

超图的文件的导入与导出VB开发程序的应用,对地理信息系统开发有益

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmImportDs3_Dgn 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "转入向导3 - 转入矢量DGN文件1"
   ClientHeight    =   3840
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6375
   Icon            =   "frmImportDatasource3_Dgn.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3840
   ScaleWidth      =   6375
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Tag             =   "2912"
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   5025
      TabIndex        =   11
      Tag             =   "3058"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.CommandButton btnNext 
      Caption         =   "&Next"
      Default         =   -1  'True
      Height          =   375
      Left            =   3390
      TabIndex        =   10
      Tag             =   "3130"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.CommandButton btnBack 
      Caption         =   "&Back"
      Height          =   375
      Left            =   2190
      TabIndex        =   9
      Tag             =   "3129"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.Frame Frame1 
      Caption         =   "Set Import Unit"
      Height          =   1950
      Left            =   2010
      TabIndex        =   1
      Tag             =   "3144"
      Top             =   945
      Width           =   3930
      Begin VB.TextBox txtStyleMap 
         Height          =   315
         Left            =   1050
         TabIndex        =   7
         Top             =   825
         Width           =   2235
      End
      Begin VB.CommandButton btnStyleMap 
         Caption         =   ">>"
         Height          =   300
         Left            =   3285
         TabIndex        =   6
         Top             =   825
         Width           =   315
      End
      Begin VB.TextBox txtColorFile 
         Height          =   315
         Left            =   1050
         TabIndex        =   4
         Top             =   1320
         Width           =   2235
      End
      Begin VB.CommandButton btnColorFile 
         Caption         =   ">>"
         Height          =   300
         Left            =   3285
         TabIndex        =   3
         Top             =   1335
         Width           =   315
      End
      Begin VB.ComboBox cmbDgnUnit 
         Height          =   315
         Left            =   1050
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   330
         Width           =   2550
      End
      Begin VB.Label Label3 
         Caption         =   "颜色表"
         Height          =   195
         Left            =   150
         TabIndex        =   8
         Tag             =   "5358"
         Top             =   1410
         Width           =   855
      End
      Begin VB.Label Label2 
         Caption         =   "对照表"
         Height          =   195
         Left            =   150
         TabIndex        =   5
         Tag             =   "5357"
         Top             =   885
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Dgn Unit:"
         Height          =   210
         Left            =   150
         TabIndex        =   2
         Tag             =   "3109"
         Top             =   375
         Width           =   870
      End
   End
   Begin MSComDlg.CommonDialog cdl1 
      Left            =   375
      Top             =   3225
      _ExtentX        =   688
      _ExtentY        =   688
      _Version        =   393216
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3180
      Left            =   75
      Picture         =   "frmImportDatasource3_Dgn.frx":000C
      Stretch         =   -1  'True
      Top             =   75
      Width           =   1785
   End
   Begin VB.Line Line2 
      X1              =   30
      X2              =   6435
      Y1              =   3330
      Y2              =   3330
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000009&
      X1              =   0
      X2              =   6405
      Y1              =   3345
      Y2              =   3345
   End
End
Attribute VB_Name = "frmImportDs3_Dgn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnBack_Click()
    Unload Me
    frmImportDs2_V.Show
End Sub

Private Sub btnCancel_Click()
    Unload Me
    Unload frmImportDs2_V
    Unload frmImportDs1
End Sub

Private Sub btnColorFile_Click()
    With cdl1
        .DialogTitle = "颜色表文件"
        .Flags = cdlOFNFileMustExist
        .Filter = "Dgn颜色表文件(*.tbl)|*.tbl"
        .CancelError = False
        .FileName = ""
        .ShowOpen
    End With
    txtColorFile.Text = cdl1.FileName
End Sub

Private Sub btnNext_Click()
    Me.Hide
    frmImportDs4_Dgn.Show vbModal, Me
End Sub

Private Sub btnStyleMap_Click()
    With cdl1
        .CancelError = False
        .FileName = ""
        .Filter = "*.srt|*.srt"
        .Flags = cdlOFNFileMustExist
        .ShowOpen
        If .FileName <> "" Then txtStyleMap.Text = .FileName
    End With
End Sub

Private Sub Form_Load()
    With cmbDgnUnit             'DGN转入单位
        .AddItem "主单位"
        .AddItem "从单位"
        .AddItem "最小分辨率"
        .ListIndex = 2
    End With
    txtColorFile.Text = ""
End Sub

Private Sub txtColorFile_Change()
    txtColorFile.Text = Trim$(txtColorFile.Text)
End Sub

Private Sub txtStyleMap_Change()
    txtStyleMap.Text = Trim$(txtStyleMap.Text)
End Sub