form1.frm

这是学生做的一个游戏系统 大家参考一下

VERSION 5.00
Begin VB.Form Result 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "排行榜"
   ClientHeight    =   3435
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4125
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3435
   ScaleWidth      =   4125
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton CancelCmd 
      Caption         =   "关闭"
      Height          =   375
      Left            =   3120
      TabIndex        =   5
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton OKCmd 
      Caption         =   "确定"
      Height          =   375
      Left            =   3120
      TabIndex        =   4
      Top             =   120
      Width           =   855
   End
   Begin VB.ListBox List1 
      BackColor       =   &H80000003&
      Height          =   1680
      Left            =   120
      TabIndex        =   3
      Top             =   1560
      Width           =   3855
   End
   Begin VB.TextBox user 
      CausesValidation=   0   'False
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   360
      Width           =   1695
   End
   Begin VB.Line Line1 
      X1              =   120
      X2              =   3960
      Y1              =   1080
      Y2              =   1080
   End
   Begin VB.Label Label2 
      Caption         =   "排行榜"
      Height          =   255
      Left            =   1680
      TabIndex        =   1
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "用户："
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   480
      Width           =   615
   End
End
Attribute VB_Name = "Result"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub CancelCmd_Click()
  Unload Me
End Sub

Private Sub Form_Load()
 Dim i As Integer
 
 Result.Left = (Screen.Width - Result.Width) \ 2
 Result.Top = (Screen.Height - Result.Height) \ 2
 
  RegKey = "HKEY_CURRENT_USER\Software\EliminateMine\ResultArray"
  CreateKey RegKey
  userNum = Val(GetStringValue(RegKey, "UserNumber"))
  
 ' If userNum > 0 Then
   For i = 0 To userNum
     Usersp(i) = GetStringValue(RegKey, "User" & i)
     'Debug.Print Len(Usersp(i))
     If Usersp(i) <> "" Then
        Arraysp(i) = Val(Right(Usersp(i), 3))
        'Debug.Print Arraysp(i)
        List1.AddItem Usersp(i)
     End If
   Next i
  'End If
End Sub

Private Sub OKCmd_Click()
 Dim userData As String, i As Integer, j As Integer, fp1 As String, fp2 As String
 
 userData = Trim(user.Text) & Space(20 - Len(Trim(user.Text))) & Format(time, "000")
 If user.Text <> "" Then
    List1.AddItem userData
   If Usersp(0) = "" Then
     Usersp(0) = userData
   Else
   For i = 0 To userNum
     If time < Arraysp(i) Then
       fp1 = Usersp(i)
       For j = i To userNum
         fp2 = Usersp(j + 1)
         Usersp(j + 1) = fp1
         fp1 = fp2
       Next j
         Usersp(i) = userData
         Exit For
     Else
        Usersp(userNum + 1) = userData
     End If
   Next i
   userNum = userNum + 1
   End If
   If userNum < 10 Then
     For i = 0 To userNum
        SetStringValue RegKey, "User" & i, Usersp(i)
     Next i
     SetStringValue RegKey, "UserNumber", userNum
   Else
     For i = 0 To 9
        SetStringValue RegKey, "User" & i, Usersp(i)
     Next i
     SetStringValue RegKey, "UserNumber", 9
   End If
   Unload Me
 Else
     MsgBox "请输入你的名字！"
 End If
End Sub