frmsteup.frm

疯狂五笔打字

                  Size            =   10.5
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               TabIndex        =   28
               Top             =   240
               Width           =   2775
            End
            Begin VB.CommandButton Command13 
               Caption         =   "..."
               Height          =   375
               Left            =   2880
               TabIndex        =   27
               Top             =   240
               Width           =   495
            End
            Begin VB.CommandButton Command12 
               Caption         =   "设定文章"
               Height          =   375
               Left            =   600
               TabIndex        =   26
               Top             =   680
               Width           =   975
            End
            Begin VB.CommandButton Command11 
               Caption         =   "默认设定"
               Height          =   375
               Left            =   1800
               TabIndex        =   25
               Top             =   680
               Width           =   975
            End
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "练习时间："
            Height          =   180
            Left            =   120
            TabIndex        =   32
            Top             =   240
            Width           =   900
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "分钟"
            Height          =   180
            Left            =   1800
            TabIndex        =   31
            Top             =   240
            Width           =   360
         End
      End
      Begin VB.Frame Frame1 
         Height          =   3375
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   3495
         Begin VB.Frame Frame3 
            Caption         =   "测试音乐选择"
            Height          =   1095
            Left            =   0
            TabIndex        =   13
            Top             =   1680
            Width           =   3495
            Begin VB.CommandButton Command7 
               Caption         =   "默认设定"
               Height          =   375
               Left            =   1800
               TabIndex        =   17
               Top             =   680
               Width           =   975
            End
            Begin VB.CommandButton Command6 
               Caption         =   "设定音乐"
               Height          =   375
               Left            =   600
               TabIndex        =   16
               Top             =   680
               Width           =   975
            End
            Begin VB.CommandButton Command5 
               Caption         =   "..."
               Height          =   375
               Left            =   2880
               TabIndex        =   15
               Top             =   240
               Width           =   495
            End
            Begin VB.TextBox Text3 
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               TabIndex        =   14
               Top             =   240
               Width           =   2775
            End
         End
         Begin VB.Frame Frame2 
            Caption         =   "测试文章选择"
            Height          =   1215
            Left            =   0
            TabIndex        =   8
            Top             =   600
            Width           =   3495
            Begin VB.CommandButton Command4 
               Caption         =   "默认设定"
               Height          =   375
               Left            =   1800
               TabIndex        =   12
               Top             =   680
               Width           =   975
            End
            Begin VB.CommandButton Command3 
               Caption         =   "设定文章"
               Height          =   375
               Left            =   600
               TabIndex        =   11
               Top             =   680
               Width           =   975
            End
            Begin VB.CommandButton Command2 
               Caption         =   "..."
               Height          =   375
               Left            =   2880
               TabIndex        =   10
               Top             =   240
               Width           =   495
            End
            Begin VB.TextBox Text2 
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   10.5
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   375
               Left            =   120
               TabIndex        =   9
               Top             =   240
               Width           =   2775
            End
         End
         Begin VB.CheckBox Check1 
            Caption         =   "测试后不提示不存储结果"
            Height          =   255
            Index           =   1
            Left            =   480
            TabIndex        =   7
            Top             =   3000
            Width           =   2775
         End
         Begin VB.CheckBox Check1 
            Caption         =   "测试后不提示直接存储结果"
            Height          =   255
            Index           =   0
            Left            =   480
            TabIndex        =   6
            Top             =   2760
            Width           =   2535
         End
         Begin VB.CommandButton CmdE 
            Caption         =   "设定"
            Height          =   375
            Left            =   2400
            TabIndex        =   3
            Top             =   130
            Width           =   975
         End
         Begin VB.TextBox TxtTime 
            Height          =   270
            Left            =   1080
            MaxLength       =   2
            TabIndex        =   2
            Top             =   200
            Width           =   615
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "分钟"
            Height          =   180
            Left            =   1800
            TabIndex        =   5
            Top             =   240
            Width           =   360
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "测试时间："
            Height          =   180
            Left            =   120
            TabIndex        =   4
            Top             =   240
            Width           =   900
         End
      End
   End
End
Attribute VB_Name = "FrmSteup"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub CmdE_Click()
    On Error GoTo ErrB
    If TxtTime.Text >= 1 And TxtTime.Text <= 60 Then
        Test = TxtTime.Text
        MsgBox "时间设定成功", , "提示"
    Else
        MsgBox "时间不能小于0大于60", , "提示"
        TxtTime.Text = Empty
        TxtTime.SetFocus
    End If
    Exit Sub
ErrB:
    MsgBox "数据不匹配", , "提示"
    TxtTime.Text = Empty
    TxtTime.SetFocus
End Sub

Private Sub Form_Load()
    TxtTime.Text = Test
End Sub