基本参数输入窗体.frm

摄影测量影象匹配

            TabIndex        =   42
            Top             =   720
            Width           =   1575
         End
         Begin VB.Label Label8 
            Caption         =   "右相片右下角x值"
            Height          =   495
            Left            =   240
            TabIndex        =   41
            Top             =   240
            Width           =   1455
         End
      End
      Begin VB.Frame Frame7 
         Height          =   1335
         Left            =   120
         TabIndex        =   31
         Top             =   2160
         Width           =   4575
         Begin VB.TextBox Text7 
            Height          =   375
            Left            =   1680
            TabIndex        =   33
            Text            =   "73.8151815181522 "
            Top             =   720
            Width           =   2175
         End
         Begin VB.TextBox Text6 
            Height          =   375
            Left            =   1680
            TabIndex        =   32
            Text            =   "-64.9"
            Top             =   240
            Width           =   2175
         End
         Begin VB.Label Label16 
            Caption         =   "mm"
            Height          =   255
            Left            =   4080
            TabIndex        =   37
            Top             =   840
            Width           =   255
         End
         Begin VB.Label Label15 
            Caption         =   "mm"
            Height          =   375
            Left            =   4080
            TabIndex        =   36
            Top             =   240
            Width           =   255
         End
         Begin VB.Label Label7 
            Caption         =   "右相片左上角y值"
            Height          =   375
            Left            =   120
            TabIndex        =   35
            Top             =   840
            Width           =   1575
         End
         Begin VB.Label Label6 
            Caption         =   "右相片左上角x值"
            Height          =   375
            Left            =   120
            TabIndex        =   34
            Top             =   240
            Width           =   1575
         End
      End
      Begin VB.Frame Frame6 
         Height          =   1455
         Left            =   4800
         TabIndex        =   24
         Top             =   600
         Width           =   4815
         Begin VB.TextBox Text5 
            Height          =   375
            Left            =   2040
            TabIndex        =   26
            Text            =   "60.9999005556716"
            Top             =   840
            Width           =   2175
         End
         Begin VB.TextBox Text4 
            Height          =   375
            Left            =   2040
            TabIndex        =   25
            Text            =   "45.4073549743305"
            Top             =   240
            Width           =   2175
         End
         Begin VB.Label Label14 
            Caption         =   "mm"
            Height          =   375
            Left            =   4320
            TabIndex        =   30
            Top             =   840
            Width           =   255
         End
         Begin VB.Label Label13 
            Caption         =   "mm"
            Height          =   375
            Left            =   4320
            TabIndex        =   29
            Top             =   360
            Width           =   375
         End
         Begin VB.Label Label5 
            Caption         =   "左相片右下角y值"
            Height          =   495
            Left            =   240
            TabIndex        =   28
            Top             =   840
            Width           =   1455
         End
         Begin VB.Label Label4 
            Caption         =   "左相片右下角x值"
            Height          =   495
            Left            =   240
            TabIndex        =   27
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.Frame Frame5 
         Height          =   1455
         Left            =   120
         TabIndex        =   23
         Top             =   600
         Width           =   4575
         Begin VB.TextBox Text3 
            Height          =   375
            Left            =   1680
            TabIndex        =   46
            Text            =   "72.1014058372955 "
            Top             =   840
            Width           =   2175
         End
         Begin VB.TextBox Text2 
            Height          =   375
            Left            =   1680
            TabIndex        =   45
            Text            =   "27.9208398895976"
            Top             =   240
            Width           =   2175
         End
         Begin VB.Label Label3 
            Caption         =   "左相片左上角y值"
            Height          =   495
            Left            =   120
            TabIndex        =   50
            Top             =   840
            Width           =   1455
         End
         Begin VB.Label Label2 
            Caption         =   "左相片左上角x值"
            Height          =   495
            Left            =   120
            TabIndex        =   49
            Top             =   240
            Width           =   1575
         End
         Begin VB.Label Label11 
            Caption         =   "mm"
            Height          =   375
            Left            =   4080
            TabIndex        =   48
            Top             =   360
            Width           =   375
         End
         Begin VB.Label Label12 
            Caption         =   "mm"
            Height          =   375
            Left            =   4080
            TabIndex        =   47
            Top             =   840
            Width           =   375
         End
      End
      Begin VB.Label Label1 
         Caption         =   "所截取的图在各自的相平面坐标系中的坐标数值"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   3975
      End
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Const jiange = 0.020982757
f = Val(Text21.Text)
xzs = Val(Text2.Text)
yzs = Val(Text3.Text)
xzx = Val(Text4.Text)
yzx = Val(Text5.Text)

xys = Val(Text6.Text)
yys = Val(Text7.Text)
xyx = Val(Text8.Text)
yyx = Val(Text9.Text)

q1 = Val(Text1.Text)
w1 = Val(Text10.Text)
k1 = Val(Text11.Text)

q2 = Val(Text12.Text)
w2 = Val(Text13.Text)
k2 = Val(Text14.Text)
jiange1 = 0.02077699
Form2.Picture1.Scale (xzs, yzs)-(xzx, yzx)
Form3.Picture1.Scale (xys, yys)-(xyx, yyx)
Frame1.Enabled = False
Frame2.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Form4.Hide
Form1.Show
Form1.Command4.Enabled = False
Form1.Command5.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Enabled = True
Command2.Enabled = False
End Sub