form4.frm

我们是厦门理工学院的学生,因为我们急需贵网站的一分重要资料下载,希望能给予下载权限,虽然上传的原码比较普通,但希望站长能给予谅解,

VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   " 扫雷英雄榜"
   ClientHeight    =   1695
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3810
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1695
   ScaleWidth      =   3810
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   285
      Index           =   1
      Left            =   2640
      TabIndex        =   0
      Top             =   1230
      Width           =   615
   End
   Begin VB.CommandButton Command1 
      Caption         =   "重新计分(&R)"
      Height          =   285
      Index           =   0
      Left            =   570
      TabIndex        =   4
      Top             =   1230
      Width           =   1185
   End
   Begin VB.Label lblname 
      Alignment       =   1  'Right Justify
      Caption         =   "佚名"
      Height          =   225
      Index           =   2
      Left            =   1530
      TabIndex        =   10
      Top             =   810
      Width           =   915
   End
   Begin VB.Label lblname 
      Alignment       =   1  'Right Justify
      Caption         =   "佚名"
      Height          =   225
      Index           =   1
      Left            =   1530
      TabIndex        =   9
      Top             =   570
      Width           =   915
   End
   Begin VB.Label lblname 
      Alignment       =   1  'Right Justify
      Caption         =   "佚名"
      Height          =   225
      Index           =   0
      Left            =   1530
      TabIndex        =   8
      Top             =   330
      Width           =   915
   End
   Begin VB.Label lblTime 
      Alignment       =   1  'Right Justify
      Caption         =   "999"
      Height          =   195
      Index           =   2
      Left            =   630
      TabIndex        =   7
      Top             =   810
      Width           =   465
   End
   Begin VB.Label lblTime 
      Alignment       =   1  'Right Justify
      Caption         =   "999"
      Height          =   195
      Index           =   1
      Left            =   630
      TabIndex        =   6
      Top             =   570
      Width           =   465
   End
   Begin VB.Label lblTime 
      Alignment       =   1  'Right Justify
      Caption         =   "999"
      Height          =   195
      Index           =   0
      Left            =   630
      TabIndex        =   5
      Top             =   330
      Width           =   465
   End
   Begin VB.Label Label1 
      Caption         =   "中级:  999 秒        佚名"
      Height          =   225
      Index           =   2
      Left            =   210
      TabIndex        =   3
      Top             =   570
      Width           =   2445
   End
   Begin VB.Label Label1 
      Caption         =   "高级:  999 秒        佚名"
      Height          =   225
      Index           =   1
      Left            =   210
      TabIndex        =   2
      Top             =   810
      Width           =   2445
   End
   Begin VB.Label Label1 
      Caption         =   "初级:  999 秒        佚名"
      Height          =   225
      Index           =   0
      Left            =   210
      TabIndex        =   1
      Top             =   330
      Width           =   2445
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click(Index As Integer)
 If Index = 0 Then
      leiname(0) = "佚名"
      leiname(1) = "佚名"
      leiname(2) = "佚名"
      leitime(0) = "999"
      leitime(1) = "999"
      leitime(2) = "999"
      Form_Load
 End If
 If Index = 1 Then Unload Me
 
End Sub

Private Sub Form_Load()
 lblTime(0).Caption = leitime(0)
 lblTime(1).Caption = leitime(1)
 lblTime(2).Caption = leitime(2)
 lblname(0).Caption = leiname(0)
 lblname(1).Caption = leiname(1)
 lblname(2).Caption = leiname(2)
End Sub