frmtriangle.frm

房产测绘用的软件源代码

VERSION 5.00
Begin VB.Form frmTriangle 
   Caption         =   "已知三角形的三条边,计算对应的三个角度"
   ClientHeight    =   5265
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7845
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmTriangle.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   5265
   ScaleWidth      =   7845
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "关闭(&E)"
      Height          =   375
      Left            =   6045
      TabIndex        =   4
      Top             =   3825
      Width           =   1065
   End
   Begin VB.CommandButton cmdCalc 
      Caption         =   "计算(&C)"
      Height          =   375
      Left            =   4245
      TabIndex        =   3
      Top             =   3825
      Width           =   1065
   End
   Begin VB.Frame Frame2 
      Caption         =   "与三条边对应的三个角(度)"
      Height          =   2385
      Left            =   5295
      TabIndex        =   13
      Top             =   90
      Width           =   2490
      Begin VB.Label LabelA1 
         AutoSize        =   -1  'True
         Caption         =   "LabelA1"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   690
         TabIndex        =   22
         Top             =   420
         Width           =   735
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "a1："
         Height          =   180
         Left            =   255
         TabIndex        =   21
         Top             =   420
         Width           =   360
      End
      Begin VB.Label LabelA3 
         AutoSize        =   -1  'True
         Caption         =   "LabelA3"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   690
         TabIndex        =   20
         Top             =   1440
         Width           =   735
      End
      Begin VB.Label LabelA2 
         AutoSize        =   -1  'True
         Caption         =   "LabelA2"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   690
         TabIndex        =   19
         Top             =   915
         Width           =   735
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         Caption         =   "a3："
         Height          =   180
         Left            =   255
         TabIndex        =   18
         Top             =   1440
         Width           =   360
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "a2："
         Height          =   180
         Left            =   240
         TabIndex        =   17
         Top             =   915
         Width           =   360
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "三角形三条边长"
      Height          =   2385
      Left            =   3345
      TabIndex        =   12
      Top             =   90
      Width           =   1980
      Begin VB.TextBox txtL3 
         Height          =   300
         Left            =   510
         TabIndex        =   2
         Top             =   1380
         Width           =   1365
      End
      Begin VB.TextBox txtL2 
         Height          =   300
         Left            =   510
         TabIndex        =   1
         Top             =   870
         Width           =   1365
      End
      Begin VB.TextBox txtL1 
         Height          =   300
         Left            =   510
         TabIndex        =   0
         Top             =   345
         Width           =   1365
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "L3："
         Height          =   180
         Left            =   105
         TabIndex        =   16
         Top             =   1425
         Width           =   360
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "L2："
         Height          =   180
         Left            =   135
         TabIndex        =   15
         Top             =   915
         Width           =   360
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "L1："
         Height          =   180
         Left            =   150
         TabIndex        =   14
         Top             =   390
         Width           =   360
      End
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00FFFFFF&
      Height          =   5025
      Left            =   75
      ScaleHeight     =   4965
      ScaleWidth      =   2955
      TabIndex        =   5
      Top             =   120
      Width           =   3015
      Begin VB.Label lblA3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "a3"
         Height          =   180
         Left            =   1110
         TabIndex        =   11
         Top             =   1470
         Width           =   180
      End
      Begin VB.Label lblA2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "a2"
         Height          =   180
         Left            =   780
         TabIndex        =   10
         Top             =   3165
         Width           =   180
      End
      Begin VB.Label lblA1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "a1"
         Height          =   180
         Left            =   1905
         TabIndex        =   9
         Top             =   2790
         Width           =   180
      End
      Begin VB.Label lblL3 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "L3"
         Height          =   180
         Left            =   1485
         TabIndex        =   8
         Top             =   3315
         Width           =   180
      End
      Begin VB.Label lblL2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "L2"
         Height          =   180
         Left            =   1830
         TabIndex        =   7
         Top             =   1950
         Width           =   180
      End
      Begin VB.Label lblL1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "L1"
         Height          =   180
         Left            =   585
         TabIndex        =   6
         Top             =   2265
         Width           =   180
      End
      Begin VB.Line Line3 
         X1              =   630
         X2              =   2340
         Y1              =   3480
         Y2              =   2970
      End
      Begin VB.Line Line2 
         X1              =   1110
         X2              =   2340
         Y1              =   1170
         Y2              =   2985
      End
      Begin VB.Line Line1 
         X1              =   630
         X2              =   1110
         Y1              =   3480
         Y2              =   1170
      End