form1.frm

一个简单的打字练习东东

VERSION 5.00
Begin VB.Form mainForm 
   Caption         =   "谢祖荣打字王"
   ClientHeight    =   5490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5430
   ForeColor       =   &H0000C000&
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5490
   ScaleWidth      =   5430
   StartUpPosition =   3  '窗口缺省
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   3480
      Left            =   480
      Picture         =   "Form1.frx":030A
      ScaleHeight     =   3420
      ScaleWidth      =   4500
      TabIndex        =   4
      Top             =   1080
      Width           =   4560
   End
   Begin VB.CommandButton Command3 
      Caption         =   " 退出"
      Height          =   492
      Left            =   3840
      TabIndex        =   3
      Top             =   4800
      Width           =   1092
   End
   Begin VB.CommandButton Command2 
      Caption         =   "打字练习"
      Height          =   492
      Left            =   2160
      TabIndex        =   2
      Top             =   4800
      Width           =   1092
   End
   Begin VB.CommandButton entCommandtype 
      Caption         =   "打字测试"
      Height          =   492
      Left            =   360
      TabIndex        =   1
      Top             =   4800
      Width           =   1092
   End
   Begin VB.Label Label1 
      Caption         =   "谢祖荣打字王"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   735
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   4575
   End
End
Attribute VB_Name = "mainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command2_Click()
Me.Hide
tepedtestForm.Show
End Sub

'退出
Private Sub Command3_Click()

Me.Hide
End
End Sub

'进入打字测试时间设置界面
Private Sub entCommandtype_Click()
Me.Hide
setgameForm.Show


End Sub

'界初始化
Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2 - 50
Me.Top = (Screen.Height - Me.Height) / 2 - 300


End Sub