www.pudn.com > Winmine.rar > Form4.frm

VERSION 5.00 
Begin VB.Form Form4  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "恭喜恭喜" 
   ClientHeight    =   1380 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   3450 
   LinkTopic       =   "Form4" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   1380 
   ScaleWidth      =   3450 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.CommandButton Command1  
      Caption         =   "确定" 
      Default         =   -1  'True 
      Height          =   310 
      Left            =   1920 
      TabIndex        =   2 
      Top             =   960 
      Width           =   1215 
   End 
   Begin VB.TextBox Text1  
      Height          =   300 
      Left            =   240 
      TabIndex        =   1 
      Text            =   "匿名" 
      Top             =   600 
      Width           =   3015 
   End 
   Begin VB.Label Label1  
      Caption         =   "您已成为入门级的第一高手，请输入尊姓大名:" 
      Height          =   375 
      Left            =   240 
      TabIndex        =   0 
      Top             =   120 
      Width           =   3015 
   End 
End 
Attribute VB_Name = "Form4" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
If Text1.Text <> "" Then 
    Select Case TJb 
    Case 1 
        Call SetIniN("扫雷", "Time1", TTim) 
        Call SetIniS("扫雷", "Name1", Text1.Text) 
        Jl.Time1 = TTim 
        Jl.Name1 = Text1.Text 
    Case 2 
        Call SetIniN("扫雷", "Time2", TTim) 
        Call SetIniS("扫雷", "Name2", Text1.Text) 
        Jl.Time2 = TTim 
        Jl.Name2 = Text1.Text 
    Case 3 
        Call SetIniN("扫雷", "Time3", TTim) 
        Call SetIniS("扫雷", "Name3", Text1.Text) 
        Jl.Time3 = TTim 
        Jl.Name3 = Text1.Text 
    End Select 
End If 
Unload Me 
Form3.Show 1 
End Sub 
 
Private Sub Form_Load() 
Me.Icon = Form1.Icon 
Select Case TJb 
Case 1 
    Label1.Caption = "您已成为入门级的第一高手，请输入尊姓大名:" 
Case 2 
    Label1.Caption = "您已成为中间级的第一高手，请输入尊姓大名:" 
Case 3 
    Label1.Caption = "您已成为最高级的第一高手，请输入尊姓大名:" 
End Select 
End Sub