⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmimportdatasource2_v.frm

📁 超图的文件的导入与导出VB开发程序的应用,对地理信息系统开发有益
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Begin VB.Form frmImportDs2_V 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "转入向导2 - 转入矢量文件"
   ClientHeight    =   3840
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6375
   Icon            =   "frmImportdatasource2_V.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3840
   ScaleWidth      =   6375
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Tag             =   "2911"
   Begin VB.Frame Frame3 
      Caption         =   "创建数据集"
      Height          =   570
      Left            =   1950
      TabIndex        =   19
      Tag             =   "3137"
      Top             =   735
      Width           =   4185
      Begin VB.CheckBox chkStyle 
         Caption         =   "对象存储风格"
         Height          =   225
         Left            =   2460
         TabIndex        =   21
         Tag             =   "3073"
         Top             =   240
         Width           =   1440
      End
      Begin VB.CheckBox chkCompressed 
         Caption         =   "压缩"
         Height          =   225
         Left            =   420
         TabIndex        =   20
         Tag             =   "3072"
         Top             =   240
         Width           =   1320
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "单位"
      Height          =   570
      Left            =   5010
      TabIndex        =   17
      Tag             =   "3142"
      Top             =   105
      Width           =   1125
      Begin VB.ComboBox cmbUnit 
         Height          =   300
         Left            =   90
         Style           =   2  'Dropdown List
         TabIndex        =   18
         Top             =   180
         Width           =   930
      End
   End
   Begin VB.CommandButton btnCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   5025
      TabIndex        =   16
      Tag             =   "3058"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.CommandButton btnNext 
      Caption         =   "完成"
      Default         =   -1  'True
      Height          =   375
      Left            =   3390
      TabIndex        =   15
      Tag             =   "3130"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.CommandButton btnBack 
      Caption         =   "上一步"
      Height          =   375
      Left            =   2190
      TabIndex        =   14
      Tag             =   "3129"
      Top             =   3435
      Width           =   1200
   End
   Begin VB.Frame Frame1 
      Caption         =   "图层类型"
      Height          =   570
      Left            =   1950
      TabIndex        =   11
      Tag             =   "3134"
      Top             =   105
      Width           =   2985
      Begin VB.OptionButton optGISLayer 
         Caption         =   "Gis 图层"
         Height          =   195
         Left            =   165
         TabIndex        =   13
         Tag             =   "3135"
         Top             =   240
         Value           =   -1  'True
         Width           =   1260
      End
      Begin VB.OptionButton optCADLayer 
         Caption         =   "CAD 图层"
         Height          =   210
         Left            =   1575
         TabIndex        =   12
         Tag             =   "3136"
         Top             =   240
         Width           =   1275
      End
   End
   Begin VB.Frame FrameGISLayer 
      Caption         =   "Gis 图层"
      Height          =   1815
      Left            =   1950
      TabIndex        =   0
      Tag             =   "3135"
      Top             =   1365
      Width           =   4185
      Begin VB.CheckBox chkNodesAttribTable 
         Caption         =   "结点属性表"
         Height          =   240
         Left            =   270
         TabIndex        =   10
         Tag             =   "3181"
         Top             =   1470
         Width           =   1800
      End
      Begin VB.TextBox txtGISPoint 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   288
         Left            =   255
         TabIndex        =   9
         ToolTipText     =   "输入GIS点图层名"
         Top             =   480
         Width           =   1530
      End
      Begin VB.TextBox txtGISRegion 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   288
         Left            =   255
         TabIndex        =   8
         ToolTipText     =   "输入GIS面图层名"
         Top             =   1050
         Width           =   1530
      End
      Begin VB.CheckBox chkText 
         Caption         =   "注记"
         Height          =   210
         Left            =   2265
         TabIndex        =   7
         Tag             =   "3141"
         Top             =   825
         Width           =   1170
      End
      Begin VB.CheckBox chkRegion 
         Caption         =   "面"
         Height          =   210
         Left            =   270
         TabIndex        =   6
         Tag             =   "3140"
         Top             =   840
         Width           =   1170
      End
      Begin VB.CheckBox chkLine 
         Caption         =   "线"
         Height          =   210
         Left            =   2265
         TabIndex        =   5
         Tag             =   "3139"
         Top             =   255
         Width           =   1170
      End
      Begin VB.CheckBox chkPoint 
         Caption         =   "点"
         Height          =   210
         Left            =   270
         TabIndex        =   4
         Tag             =   "3138"
         Top             =   255
         Width           =   1170
      End
      Begin VB.TextBox txtGISText 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   288
         Left            =   2250
         TabIndex        =   3
         ToolTipText     =   "输入GIS文本图层名"
         Top             =   1065
         Width           =   1725
      End
      Begin VB.TextBox txtGISLine 
         BackColor       =   &H80000004&
         Enabled         =   0   'False
         Height          =   288
         Left            =   2250
         TabIndex        =   2
         ToolTipText     =   "输入GIS线图层名"
         Top             =   450
         Width           =   1725
      End
      Begin VB.TextBox txtNodesAttribTable 
         BackColor       =   &H8000000A&
         Enabled         =   0   'False
         Height          =   288
         Left            =   2250
         TabIndex        =   1
         Top             =   1440
         Width           =   1725
      End
   End
   Begin VB.Frame FrameCADLayer 
      Caption         =   "CAD Layer"
      Height          =   720
      Left            =   1965
      TabIndex        =   22
      Tag             =   "3136"
      ToolTipText     =   "输入CAD图层的图层名"
      Top             =   1920
      Visible         =   0   'False
      Width           =   4155
      Begin VB.TextBox txtCADLayer 
         Height          =   336
         Left            =   1155
         TabIndex        =   23
         Top             =   252
         Width           =   2850
      End
      Begin VB.Label Label5 
         Caption         =   "Layer Name"
         Height          =   195
         Left            =   90
         TabIndex        =   24
         Tag             =   "3132"
         Top             =   300
         Width           =   1020
      End
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   3210
      Left            =   75
      Picture         =   "frmImportdatasource2_V.frx":000C
      Stretch         =   -1  'True
      Top             =   75
      Width           =   1785
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   -15
      X2              =   6390
      Y1              =   3345
      Y2              =   3345
   End
   Begin VB.Line Line1 
      X1              =   -15
      X2              =   6390

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -