frmhighscore.frm

来自「大家来找茬 0.90版 漂亮」· FRM 代码 · 共 79 行

VERSION 5.00
Begin VB.Form FrmHighScore 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "最高分"
   ClientHeight    =   2715
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3840
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   3840
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command3 
      Caption         =   "重记分数"
      Height          =   375
      Left            =   225
      TabIndex        =   2
      Top             =   2250
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "结束游戏"
      Height          =   375
      Left            =   2625
      TabIndex        =   1
      Top             =   2250
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "重新开始"
      Height          =   375
      Left            =   1425
      TabIndex        =   0
      Top             =   2250
      Width           =   1095
   End
End
Attribute VB_Name = "FrmHighScore"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click() '重新开始
    FrmMain.Show
    FrmMain.Form_Load
    Me.Hide
End Sub
Private Sub Command2_Click() '结束游戏
    Unload FrmMain
    Me.Hide
End Sub
Private Sub Command3_Click() '重记分数
    rt = MsgBox("是否要重记分数？", vbYesNo, Pname & Ver)
    If rt = vbYes Then
     For I = 0 To 4
      Record(I).Na = "N/A"
      Record(I).Sc = 0
     Next I
     Form_Load
    End If
End Sub
Private Sub Form_Load()
    Cls
    Show
    Print
    Print Tab(4); "排名"; Tab(10); "姓  名"; Tab(34); "最高分"
    Print
    For I = 0 To 4
    Print Tab(4); I + 1; Tab(10); Record(I).Na; Tab(34); Record(I).Sc
    Print
    Next I
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Command2_Click
End Sub