frest.frm

一个用VB编的小游戏

VERSION 5.00
Begin VB.Form fRest 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "今天休息！"
   ClientHeight    =   885
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3885
   ControlBox      =   0   'False
   Icon            =   "fRest.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   59
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   259
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmd 
      Caption         =   "匆匆度过"
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Top             =   480
      Width           =   1695
   End
   Begin VB.Timer tmr 
      Interval        =   500
      Left            =   120
      Top             =   480
   End
   Begin VB.Label lblT 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      BorderStyle     =   1  'Fixed Single
      Caption         =   "6:00"
      BeginProperty Font 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   300
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3600
   End
   Begin VB.Shape ShpA 
      BackColor       =   &H000000FF&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   300
      Left            =   120
      Top             =   120
      Width           =   30
   End
   Begin VB.Shape shpB 
      BackColor       =   &H0080FF80&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   300
      Left            =   120
      Top             =   120
      Width           =   3615
   End
End
Attribute VB_Name = "fRest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Click()
  tmr.Enabled = False
  ShpA.Width = 240
  lblT.Caption = "24:00"
  Call NextDay
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 200
ShpA.Width = 0
Me.Caption = "今天休息！（距离高考还有" & gameData.gnrDay & "天）"
End Sub
Private Sub tmr_Timer()
ShpA.Width = ShpA.Width + 10
lblT.Caption = Int(ShpA.Width / 10) & ":00"
If ShpA.Width >= 240 Then
  tmr.Enabled = False
  Call NextDay
End If
End Sub
Public Sub NextDay()
gameData.scPE = gameData.scPE + 3
If gameData.scPE > 200 Then gameData.scPE = 200
gameData.gnrDay = gameData.gnrDay - 1
If gameData.gnrDay = 0 Then
  Unload Me
  fNMET.Show
  Exit Sub
End If
gameData.gnrWeekday = gameData.gnrWeekday + 1
If gameData.gnrWeekday = 7 Then gameData.gnrWeekday = 0
Select Case gameData.gnrWeekday
Case 1, 2, 3, 4, 5
  Unload Me
  fGameSel.Show
Case 6
  If gameData.gnrWorkday Then
    Unload Me
    fGameSel.Show
  Else
    ShpA.Width = 0
    lblT.Caption = "0:00"
    tmr.Enabled = True
    Me.Caption = "今天休息！（距离高考还有" & gameData.gnrDay & "天）"
  End If
Case 0
    ShpA.Width = 0
    lblT.Caption = "0:00"
    tmr.Enabled = True
    Me.Caption = "今天休息！（距离高考还有" & gameData.gnrDay & "天）"
End Select
End Sub