xujunfang.frm

测绘工程

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   8610
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   10785
   LinkTopic       =   "Form2"
   ScaleHeight     =   8610
   ScaleWidth      =   10785
   StartUpPosition =   3  '窗口缺省
   Visible         =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "赋值"
      Height          =   495
      Left            =   4200
      TabIndex        =   23
      Top             =   7320
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "转换弧度"
      Height          =   495
      Left            =   8520
      TabIndex        =   19
      Top             =   2400
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   8
      Left            =   6600
      TabIndex        =   18
      Text            =   "261,25,36.1"
      Top             =   6360
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   7
      Left            =   6600
      TabIndex        =   17
      Text            =   "137,25,47.1"
      Top             =   5640
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   6
      Left            =   6600
      TabIndex        =   16
      Text            =   "77,44,53"
      Top             =   4920
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   5
      Left            =   6600
      TabIndex        =   15
      Text            =   "0,00,00"
      Top             =   4200
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   4
      Left            =   6600
      TabIndex        =   14
      Text            =   "321,25,43.2"
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   3
      Left            =   6600
      TabIndex        =   13
      Text            =   "221,43,53"
      Top             =   2760
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   2
      Left            =   6600
      TabIndex        =   12
      Text            =   "168,22,29.6"
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   1
      Left            =   6600
      TabIndex        =   11
      Text            =   "78,01,14.6"
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text3 
      Height          =   495
      Index           =   0
      Left            =   6600
      TabIndex        =   10
      Text            =   "0,00,00"
      Top             =   600
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Index           =   4
      Left            =   3120
      TabIndex        =   9
      Text            =   "45581.961"
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Index           =   3
      Left            =   3120
      TabIndex        =   8
      Text            =   "50109.934"
      Top             =   2760
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Index           =   2
      Left            =   3120
      TabIndex        =   7
      Text            =   "51066.877"
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Index           =   1
      Left            =   3120
      TabIndex        =   6
      Text            =   "49052.653"
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text2 
      Height          =   495
      Index           =   0
      Left            =   3120
      TabIndex        =   5
      Text            =   "46052.738"
      Top             =   600
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   4
      Left            =   360
      TabIndex        =   4
      Text            =   "59777.542"
      Top             =   3480
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   3
      Left            =   360
      TabIndex        =   3
      Text            =   "59096.596"
      Top             =   2760
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   2
      Left            =   360
      TabIndex        =   2
      Text            =   "62866.005"
      Top             =   2040
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   1
      Left            =   360
      TabIndex        =   1
      Text            =   "63129.560"
      Top             =   1320
      Width           =   1215
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Text            =   "62303.538"
      Top             =   600
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "L"
      Height          =   375
      Left            =   6720
      TabIndex        =   22
      Top             =   120
      Width           =   735
   End
   Begin VB.Label Label2 
      Caption         =   "y"
      Height          =   375
      Left            =   3120
      TabIndex        =   21
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "x"
      Height          =   375
      Left            =   360
      TabIndex        =   20
      Top             =   120
      Width           =   1095
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x(0 To 4) As Double
Dim y(0 To 4) As Double
Dim l(0 To 8) As Double
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To 4
x(i) = Text1(i).Text
y(i) = Text2(i).Text
Next i
For i = 0 To 8
l(i) = Text3(i).Text
Next i
Form1.Visible = True
Form1.Command1.Enabled = False
Form1.Command2.Enabled = True
Form2.Visible = False

End Sub