frmoverlay.frm

都是基于VB所做的程序集合,值得大家作为实践的参考资料.

VERSION 5.00
Begin VB.Form frmOverlay 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "叠加分析"
   ClientHeight    =   3285
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5820
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3285
   ScaleWidth      =   5820
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Tag             =   "1319"
   Begin VB.Frame Frame2 
      Caption         =   "源数据集"
      Height          =   1170
      Left            =   150
      TabIndex        =   18
      Tag             =   "3225"
      Top             =   150
      Width           =   2655
      Begin VB.ComboBox cmbDsNameA 
         Height          =   315
         Left            =   780
         Style           =   2  'Dropdown List
         TabIndex        =   20
         Top             =   270
         Width           =   1755
      End
      Begin VB.ComboBox cmbDtNameA 
         Height          =   315
         Left            =   780
         Style           =   2  'Dropdown List
         TabIndex        =   19
         Top             =   720
         Width           =   1755
      End
      Begin VB.Label Label1 
         Caption         =   "数据源"
         Height          =   255
         Left            =   135
         TabIndex        =   22
         Tag             =   "3051"
         Top             =   330
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "数据集"
         Height          =   255
         Left            =   135
         TabIndex        =   21
         Tag             =   "3052"
         Top             =   750
         Width           =   735
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "叠加数据集"
      Height          =   1170
      Left            =   3000
      TabIndex        =   13
      Tag             =   "3226"
      Top             =   150
      Width           =   2655
      Begin VB.ComboBox cmbDtNameB 
         Height          =   315
         Left            =   765
         Style           =   2  'Dropdown List
         TabIndex        =   15
         Top             =   720
         Width           =   1755
      End
      Begin VB.ComboBox cmbDsNameB 
         Height          =   315
         Left            =   765
         Style           =   2  'Dropdown List
         TabIndex        =   14
         Top             =   270
         Width           =   1755
      End
      Begin VB.Label Label5 
         Caption         =   "数据集"
         Height          =   240
         Left            =   135
         TabIndex        =   17
         Tag             =   "3052"
         Top             =   765
         Width           =   690
      End
      Begin VB.Label Label2 
         Caption         =   "数据源"
         Height          =   240
         Left            =   135
         TabIndex        =   16
         Tag             =   "3051"
         Top             =   330
         Width           =   690
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "结果数据集"
      Height          =   1170
      Left            =   150
      TabIndex        =   8
      Tag             =   "3227"
      Top             =   1440
      Width           =   2655
      Begin VB.ComboBox cmbDsNameC 
         Height          =   315
         Left            =   780
         Style           =   2  'Dropdown List
         TabIndex        =   10
         Top             =   225
         Width           =   1755
      End
      Begin VB.TextBox txtDtNameC 
         Height          =   315
         Left            =   780
         TabIndex        =   9
         Top             =   675
         Width           =   1755
      End
      Begin VB.Label Label6 
         Caption         =   "数据集"
         Height          =   270
         Left            =   135
         TabIndex        =   12
         Tag             =   "3052"
         Top             =   735
         Width           =   720
      End
      Begin VB.Label Label3 
         Caption         =   "数据源"
         Height          =   270
         Left            =   120
         TabIndex        =   11
         Tag             =   "3051"
         Top             =   300
         Width           =   720
      End
   End
   Begin VB.CommandButton btnOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   390
      Left            =   1335
      TabIndex        =   7
      Tag             =   "3057"
      Top             =   2835
      Width           =   1200
   End
   Begin VB.CommandButton btnCancel 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   390
      Left            =   3300
      TabIndex        =   6
      Tag             =   "3058"
      Top             =   2835
      Width           =   1200
   End
   Begin VB.Frame Frame1 
      Caption         =   "分析方式"
      Height          =   1170
      Left            =   3000
      TabIndex        =   0
      Tag             =   "3067"
      Top             =   1440
      Width           =   2655
      Begin VB.CheckBox chkJoinAttribute 
         Caption         =   "合并属性"
         Enabled         =   0   'False
         Height          =   240
         Left            =   1320
         TabIndex        =   23
         Tag             =   "5307"
         Top             =   825
         Width           =   1140
      End
      Begin VB.OptionButton optErase 
         Caption         =   "擦除"
         Height          =   195
         Left            =   1305
         TabIndex        =   5
         Tag             =   "3284"
         Top             =   532
         Width           =   945
      End
      Begin VB.OptionButton optIntersect 
         Caption         =   "相交"
         Height          =   195
         Left            =   195
         TabIndex        =   4
         Tag             =   "3229"
         Top             =   240
         Width           =   1000
      End
      Begin VB.OptionButton optIdentity 
         Caption         =   "同一"
         Height          =   195
         Left            =   195
         TabIndex        =   3
         Tag             =   "3231"
         Top             =   855
         Width           =   870
      End
      Begin VB.OptionButton optClip 
         Caption         =   "裁剪"
         Height          =   195
         Left            =   1305
         TabIndex        =   2
         Tag             =   "3228"
         Top             =   240
         Value           =   -1  'True
         Width           =   945
      End
      Begin VB.OptionButton optUnion 
         Caption         =   "合并"
         Height          =   195
         Left            =   195
         TabIndex        =   1
         Tag             =   "3230"
         Top             =   547
         Width           =   735
      End
   End
   Begin VB.Line Line1 
      Index           =   1
      X1              =   15
      X2              =   5850