www.pudn.com > zzksxt.rar > Form2.frm, change:2007-04-14,size:2002b


VERSION 5.00 
Begin VB.Form Form2  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "登陆窗体" 
   ClientHeight    =   3090 
   ClientLeft      =   45 
   ClientTop       =   435 
   ClientWidth     =   4680 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3090 
   ScaleWidth      =   4680 
   StartUpPosition =   1  '所有者中心 
   Begin VB.TextBox Text2  
      Appearance      =   0  'Flat 
      Height          =   270 
      Left            =   1800 
      TabIndex        =   3 
      Text            =   "127.0.0.1" 
      Top             =   1200 
      Width           =   1695 
   End 
   Begin VB.CommandButton Command1  
      Caption         =   "连接服务器" 
      Default         =   -1  'True 
      Height          =   375 
      Left            =   1560 
      TabIndex        =   2 
      Top             =   2040 
      Width           =   1455 
   End 
   Begin VB.TextBox Text1  
      Appearance      =   0  'Flat 
      Height          =   270 
      Left            =   1800 
      TabIndex        =   0 
      Top             =   720 
      Width           =   1695 
   End 
   Begin VB.Label Label2  
      Caption         =   "连接IP:" 
      Height          =   255 
      Left            =   840 
      TabIndex        =   4 
      Top             =   1215 
      Width           =   975 
   End 
   Begin VB.Label Label1  
      Caption         =   "你的姓名:" 
      Height          =   255 
      Left            =   840 
      TabIndex        =   1 
      Top             =   735 
      Width           =   975 
   End 
End 
Attribute VB_Name = "Form2" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub Command1_Click() 
If Text1.Text <> "" Then 
 LoginName = Text1.Text 
 ConnentIP = Text2.Text 
 Unload Me 
 Form1.Show 
Else 
 MsgBox "姓名不可以为空!" 
End If 
End Sub