frmgui.frm

测绘仪器的模拟器

   Begin VB.CommandButton Command4 
      Height          =   255
      Left            =   4200
      TabIndex        =   27
      Top             =   2040
      Width           =   495
   End
   Begin VB.CommandButton Command5 
      Height          =   255
      Left            =   240
      TabIndex        =   26
      Top             =   3360
      Width           =   735
   End
   Begin VB.CommandButton Command6 
      Height          =   255
      Left            =   1200
      TabIndex        =   25
      Top             =   3360
      Width           =   735
   End
   Begin VB.CommandButton Command7 
      Height          =   255
      Left            =   2160
      TabIndex        =   24
      Top             =   3360
      Width           =   735
   End
   Begin VB.CommandButton Command8 
      Height          =   255
      Left            =   3120
      TabIndex        =   23
      Top             =   3360
      Width           =   735
   End
   Begin VB.CommandButton Command9 
      Height          =   255
      Left            =   4920
      TabIndex        =   22
      Top             =   600
      Width           =   375
   End
   Begin VB.CommandButton Command10 
      Height          =   255
      Left            =   5400
      TabIndex        =   21
      Top             =   600
      Width           =   375
   End
   Begin VB.CommandButton Command11 
      Height          =   255
      Left            =   5880
      TabIndex        =   20
      Top             =   600
      Width           =   375
   End
   Begin VB.CommandButton Command12 
      Height          =   255
      Left            =   4920
      TabIndex        =   19
      Top             =   1080
      Width           =   375
   End
   Begin VB.CommandButton Command13 
      Height          =   255
      Left            =   5400
      TabIndex        =   18
      Top             =   1080
      Width           =   375
   End
   Begin VB.CommandButton Command14 
      Height          =   255
      Left            =   5880
      TabIndex        =   17
      Top             =   1080
      Width           =   375
   End
   Begin VB.CommandButton Command15 
      Height          =   255
      Left            =   4920
      TabIndex        =   16
      Top             =   1560
      Width           =   375
   End
   Begin VB.CommandButton Command16 
      Height          =   255
      Left            =   5400
      TabIndex        =   15
      Top             =   1560
      Width           =   375
   End
   Begin VB.CommandButton Command17 
      Height          =   255
      Left            =   5880
      TabIndex        =   14
      Top             =   1560
      Width           =   375
   End
   Begin VB.CommandButton Command18 
      Height          =   255
      Left            =   4920
      TabIndex        =   13
      Top             =   2040
      Width           =   375
   End
   Begin VB.CommandButton Command19 
      Height          =   255
      Left            =   5400
      TabIndex        =   12
      Top             =   2040
      Width           =   375
   End
   Begin VB.CommandButton Command20 
      Height          =   255
      Left            =   5880
      TabIndex        =   11
      Top             =   2040
      Width           =   375
   End
   Begin VB.CommandButton Command21 
      Height          =   495
      Left            =   5040
      TabIndex        =   10
      Top             =   3120
      Width           =   615
   End
   Begin VB.CommandButton Command22 
      Height          =   495
      Left            =   5640
      TabIndex        =   9
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton Command23 
      Height          =   495
      Left            =   5040
      TabIndex        =   8
      Top             =   3600
      Width           =   615
   End
   Begin VB.CommandButton Command24 
      Height          =   495
      Left            =   4440
      TabIndex        =   7
      Top             =   3360
      Width           =   615
   End
   Begin VB.CommandButton Command25 
      Height          =   495
      Left            =   3480
      TabIndex        =   6
      Top             =   3720
      Width           =   735
   End
   Begin VB.CommandButton Command26 
      Height          =   375
      Left            =   600
      TabIndex        =   5
      Top             =   3840
      Width           =   735
   End
   Begin VB.CommandButton Command27 
      Height          =   375
      Left            =   1560
      TabIndex        =   4
      Top             =   3840
      Width           =   735
   End
   Begin VB.CommandButton Command28 
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   3840
      Width           =   735
   End
   Begin VB.CommandButton Command29 
      Height          =   255
      Left            =   4200
      TabIndex        =   2
      Top             =   2520
      Width           =   495
   End
   Begin VB.CommandButton Command30 
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   255
   End
   Begin VB.CommandButton Command31 
      Height          =   255
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   615
   End
End
Attribute VB_Name = "frmGUI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
Dim iniPathName As String
iniPathName = App.Path + "\App\Angle.ini"

    Me.Text1(1).Text = GetProfile(iniPathName, "角度测量", "Text1")
    Me.Text1(2).Text = GetProfile(iniPathName, "角度测量", "Text2")
    Me.Text1(3).Text = GetProfile(iniPathName, "角度测量", "Text3")
    Me.Text1(4).Text = GetProfile(iniPathName, "角度测量", "Text4")
    Me.Label1(0).Caption = GetProfile(iniPathName, "角度测量", "Label1")
    Me.Label1(1).Caption = GetProfile(iniPathName, "角度测量", "Label2")
    Me.Label1(2).Caption = GetProfile(iniPathName, "角度测量", "Label3")
    Me.Label1(3).Caption = GetProfile(iniPathName, "角度测量", "Label4")
    

End Sub

Private Sub Text1_GotFocus(Index As Integer)
    Text1(Index).BackColor = &H0&
    Text1(Index).ForeColor = &HFFFFFF
End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 38 Then
       If Index > 1 Then
          Beep
          Text1(Index - 1).SetFocus
       End If
    ElseIf KeyCode = 40 Then
       If Index < 4 Then
          Beep
          Text1(Index + 1).SetFocus
       End If
    End If
End Sub

Private Sub Text1_LostFocus(Index As Integer)
    Text1(Index).BackColor = &HFFFFFF
    Text1(Index).ForeColor = &H0&
End Sub