frminfo.frm

来自「《Visual Basic 6.0趣味程序导学》光盘」· FRM 代码 · 共 137 行

VERSION 5.00
Begin VB.Form frmInfo 
   BackColor       =   &H00FFC0C0&
   Caption         =   "英雄榜"
   ClientHeight    =   4200
   ClientLeft      =   5235
   ClientTop       =   3270
   ClientWidth     =   5040
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   5040
   Begin VB.ListBox ListScore 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3660
      ItemData        =   "frmInfo.frx":0000
      Left            =   3480
      List            =   "frmInfo.frx":0002
      TabIndex        =   2
      Top             =   480
      Width           =   1455
   End
   Begin VB.ListBox ListName 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3660
      ItemData        =   "frmInfo.frx":0004
      Left            =   720
      List            =   "frmInfo.frx":0006
      TabIndex        =   1
      Top             =   480
      Width           =   2775
   End
   Begin VB.ListBox ListNo 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3660
      ItemData        =   "frmInfo.frx":0008
      Left            =   120
      List            =   "frmInfo.frx":002A
      TabIndex        =   0
      Top             =   480
      Width           =   615
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "NO：      Name                      Score"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Top             =   0
      Width           =   4815
   End
End
Attribute VB_Name = "frmInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Dim i, j As Integer
    Dim temp As String
    For i = 1 To 9
      For j = i To 10
        If Val(Top_Data(i).TopScore) < Val(Top_Data(j).TopScore) Then
            temp = Top_Data(i).TopName
            Top_Data(i).TopName = Top_Data(j).TopName
            Top_Data(j).TopName = temp
            
            temp = Top_Data(i).TopScore
            Top_Data(i).TopScore = Top_Data(j).TopScore
            Top_Data(j).TopScore = temp
        End If
      Next j
    Next i
    For i = 1 To 10
        ListName.List(i - 1) = Top_Data(i).TopName
        ListScore.List(i - 1) = Top_Data(i).TopScore
    Next i
    
    temp = App.Path
    Open temp & "\TopName.txt" For Output As #1
    For i = 1 To 10
        Print #1, Top_Data(i).TopName
    Next i
    Close #1
    
    Open temp & "\TopScore.txt" For Output As #2
    For i = 1 To 10
        Print #2, Top_Data(i).TopScore
    Next i
    Close #2
End Sub

Private Sub Form_Unload(Cancel As Integer)
        Unload frmInfo
    Select Case MsgBox("你玩完了！想再试试身手吗？", 4 + 32)
      Case vbYes
        frmForm.mnuGameNew_Click
      Case Else
        frmForm.Global_Init
    End Select
End Sub