www.pudn.com > vb_game.rar > frmLogin.frm

VERSION 5.00 
Begin VB.Form frmLogin  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "拼图游戏高手记名" 
   ClientHeight    =   1545 
   ClientLeft      =   2835 
   ClientTop       =   3480 
   ClientWidth     =   3795 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   912.837 
   ScaleMode       =   0  'User 
   ScaleWidth      =   3563.3 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox Text1  
      Height          =   339 
      Left            =   105 
      TabIndex        =   2 
      Text            =   "影子" 
      Top             =   600 
      Width           =   3495 
   End 
   Begin VB.CommandButton cmdOK  
      Caption         =   "确定" 
      Default         =   -1  'True 
      Height          =   339 
      Left            =   2400 
      TabIndex        =   1 
      Top             =   1080 
      Width           =   1140 
   End 
   Begin VB.Label lblLabels  
      Caption         =   "你已成为初级的第一高手,请输入大侠的名号:" 
      Height          =   270 
      Index           =   0 
      Left            =   105 
      TabIndex        =   0 
      Top             =   150 
      Width           =   3720 
   End 
End 
Attribute VB_Name = "frmLogin" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub cmdOK_Click() 
  Open Form1.Label1(1) For Output As #1 
  Print #1, Form1.Label1(0).Caption + "!" + Text1.Text 
  Close #1 
  Unload Me 
End Sub