setgameform.frm

一个简单的打字练习东东

VERSION 5.00
Begin VB.Form setgameForm 
   Caption         =   "打字测试时间设置"
   ClientHeight    =   4275
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   4860
   ForeColor       =   &H8000000B&
   Icon            =   "setgameForm.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4275
   ScaleWidth      =   4860
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   1395
      Left            =   1320
      Picture         =   "setgameForm.frx":08CA
      ScaleHeight     =   1335
      ScaleWidth      =   2100
      TabIndex        =   7
      Top             =   1080
      Width           =   2160
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   495
      Left            =   3000
      TabIndex        =   6
      Top             =   3720
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   495
      Left            =   480
      TabIndex        =   5
      Top             =   3720
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Caption         =   "测试时间设置"
      Height          =   855
      Left            =   120
      TabIndex        =   1
      Top             =   2640
      Width           =   4695
      Begin VB.OptionButton Option3 
         Caption         =   "二分钟"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3120
         TabIndex        =   4
         Top             =   240
         Width           =   1455
      End
      Begin VB.OptionButton Option2 
         Caption         =   "一分钟"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1560
         TabIndex        =   3
         Top             =   240
         Value           =   -1  'True
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "半分钟"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   2
         Top             =   240
         Width           =   1455
      End
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "设置测试时间"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF8080&
      Height          =   855
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   4455
   End
End
Attribute VB_Name = "setgameForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'时间设置
'type_show_time
Private Sub Command1_Click()
 If Option1.Value = True Then '半分钟
   type_time = 30 * CLng(1000)
    type_show = "半分钟"
    Unload Me
   ' type_show = "半分钟"
  '  Me.Hide '本窗体Hide
   
 '   Debug.Print type_show
  
  
    ElseIf Option2.Value = True Then '1分钟
      type_time = 60 * CLng(1000)
       type_show = "1分钟"
       Unload Me
      
      
  '      Debug.Print type_show
    ElseIf Option3.Value = True Then
     type_time = 120 * CLng(1000)  '2分钟
      type_show = "2分钟"
      Unload Me
     
       
   '     Debug.Print type_show
 End If


End Sub

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

'打字测试时间设置 初始化
Private Sub Form_Load()
'在屏幕中央显示
Me.Left = (Screen.Width - Me.Width) / 2 - 200
Me.Top = (Screen.Height - Me.Height) / 2 - 300
type_time = 60 * CLng(1000) '打字默认的时间(毫秒)

'typeForm.Label2.Caption = type_show_time '显示打字时间
End Sub





Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'Debug.Print type_show
 typeForm.Show
End Sub