frmprjinfo.frm

来自「都是基于VB所做的程序集合,值得大家作为实践的参考资料.」· FRM 代码 · 共 473 行 · 第 1/2 页

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPCSProp 
   Caption         =   "投影坐标系"
   ClientHeight    =   6690
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8040
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   6690
   ScaleWidth      =   8040
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdOK 
      Caption         =   "修改"
      Enabled         =   0   'False
      Height          =   345
      Left            =   600
      TabIndex        =   21
      Top             =   6240
      Visible         =   0   'False
      Width           =   1455
   End
   Begin VB.Frame Frame2 
      Caption         =   "单位"
      Height          =   975
      Left            =   3120
      TabIndex        =   14
      Top             =   1320
      Width           =   4815
      Begin VB.ComboBox cmbDistUnit 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "frmPrjInfo.frx":0000
         Left            =   1800
         List            =   "frmPrjInfo.frx":0042
         TabIndex        =   18
         Text            =   "Combo1"
         Top             =   600
         Width           =   2895
      End
      Begin VB.ComboBox cmbUnit 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "frmPrjInfo.frx":007E
         Left            =   1800
         List            =   "frmPrjInfo.frx":00C0
         TabIndex        =   15
         Text            =   "Combo1"
         Top             =   240
         Width           =   2895
      End
      Begin VB.Label Label1 
         Caption         =   "距离单位（DistUnit）"
         Height          =   255
         Left            =   120
         TabIndex        =   17
         Top             =   600
         Width           =   1695
      End
      Begin VB.Label Label19 
         Caption         =   "坐标单位(CoordUnit)"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   270
         Width           =   1695
      End
   End
   Begin VB.ComboBox cmbPCSType 
      Height          =   315
      ItemData        =   "frmPrjInfo.frx":00FC
      Left            =   4800
      List            =   "frmPrjInfo.frx":013B
      TabIndex        =   12
      Text            =   "Combo1"
      Top             =   960
      Width           =   3135
   End
   Begin VB.CommandButton cmdGCS 
      Caption         =   "地理坐标系"
      Height          =   345
      Left            =   6720
      TabIndex        =   9
      Top             =   5490
      Width           =   1155
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "关闭"
      Height          =   345
      Left            =   6120
      TabIndex        =   8
      Top             =   6240
      Width           =   1335
   End
   Begin VB.CommandButton cmdTranslate 
      Caption         =   "转换"
      Default         =   -1  'True
      Height          =   375
      Left            =   3120
      TabIndex        =   7
      Top             =   6210
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "投影（Projection）"
      Height          =   3495
      Left            =   3120
      TabIndex        =   3
      Top             =   2400
      Width           =   4815
      Begin VB.ComboBox cmbTransMethod 
         Height          =   315
         ItemData        =   "frmPrjInfo.frx":01CF
         Left            =   1800
         List            =   "frmPrjInfo.frx":01F8
         TabIndex        =   20
         Text            =   "Combo1"
         Top             =   2640
         Width           =   2895
      End
      Begin VB.ComboBox cmbPrjType 
         Enabled         =   0   'False
         Height          =   315
         ItemData        =   "frmPrjInfo.frx":025D
         Left            =   1920
         List            =   "frmPrjInfo.frx":02A3
         TabIndex        =   13
         Text            =   "Combo1"
         Top             =   360
         Width           =   2775
      End
      Begin VB.TextBox txtGCSName 
         Enabled         =   0   'False
         Height          =   285
         Left            =   1800
         TabIndex        =   11
         Text            =   "Text1"
         Top             =   3120
         Width           =   1785
      End
      Begin MSComctlLib.ListView lvwPrjParam 
         Height          =   1815
         Left            =   120
         TabIndex        =   5
         Top             =   735
         Width           =   4575
         _ExtentX        =   8070
         _ExtentY        =   3201
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   2
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "值"
            Object.Width           =   2540
         EndProperty
         BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            SubItemIndex    =   1
            Text            =   "参数"
            Object.Width           =   2540
         EndProperty
      End
      Begin VB.Label Label4 
         Caption         =   "地理坐标系转换方法"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   2685
         Width           =   1695
      End
      Begin VB.Label Label3 
         Caption         =   "地理坐标系（GCS）"
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   3160
         Width           =   1695
      End
      Begin VB.Label Label18 
         Caption         =   "投影类型（Projection）"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   385
         Width           =   1815
      End
   End
   Begin VB.TextBox txtName 
      Enabled         =   0   'False
      Height          =   285
      Left            =   4800
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   600
      Width           =   3135
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   5685
      Left            =   120
      Picture         =   "frmPrjInfo.frx":0323
      Stretch         =   -1  'True
      Top             =   240
      Width           =   2865
   End
   Begin VB.Line Line2 
      BorderColor     =   &H80000005&
      X1              =   240
      X2              =   7560
      Y1              =   6105
      Y2              =   6105
   End
   Begin VB.Line Line1 
      X1              =   240
      X2              =   7560
      Y1              =   6120
      Y2              =   6120
   End
   Begin VB.Label Label2 
      Caption         =   "　　改变投影系的参数可以给数据源设置新的投影系"
      Height          =   375
      Left            =   3240
      TabIndex        =   6
      Top             =   120
      Width           =   4455
   End
   Begin VB.Label Label16 
      Caption         =   "名称（Name）"
      Height          =   255
      Left            =   3120