home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-1a / frmlogin.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-27  |  2.5 KB  |  86 lines
  1. VERSION 5.00
  2. Begin VB.Form frmLogin 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Login"
  5.    ClientHeight    =   1545
  6.    ClientLeft      =   2835
  7.    ClientTop       =   3480
  8.    ClientWidth     =   3750
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   912.837
  12.    ScaleMode       =   0  'User
  13.    ScaleWidth      =   3521.047
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin VB.TextBox txtUserName 
  16.       Height          =   345
  17.       Left            =   1290
  18.       TabIndex        =   1
  19.       Top             =   135
  20.       Width           =   2325
  21.    End
  22.    Begin VB.CommandButton cmdOK 
  23.       Caption         =   "OK"
  24.       Default         =   -1  'True
  25.       Height          =   390
  26.       Left            =   495
  27.       TabIndex        =   4
  28.       Top             =   1020
  29.       Width           =   1140
  30.    End
  31.    Begin VB.CommandButton cmdCancel 
  32.       Cancel          =   -1  'True
  33.       Caption         =   "Cancel"
  34.       Height          =   390
  35.       Left            =   2100
  36.       TabIndex        =   5
  37.       Top             =   1020
  38.       Width           =   1140
  39.    End
  40.    Begin VB.TextBox txtServerIP 
  41.       Height          =   345
  42.       IMEMode         =   3  'DISABLE
  43.       Left            =   1290
  44.       TabIndex        =   3
  45.       Top             =   525
  46.       Width           =   2325
  47.    End
  48.    Begin VB.Label lblLabels 
  49.       Caption         =   "&User Name:"
  50.       Height          =   270
  51.       Index           =   0
  52.       Left            =   105
  53.       TabIndex        =   0
  54.       Top             =   150
  55.       Width           =   1080
  56.    End
  57.    Begin VB.Label lblLabels 
  58.       Caption         =   "&Server IP:"
  59.       Height          =   270
  60.       Index           =   1
  61.       Left            =   105
  62.       TabIndex        =   2
  63.       Top             =   540
  64.       Width           =   1080
  65.    End
  66. Attribute VB_Name = "frmLogin"
  67. Attribute VB_GlobalNameSpace = False
  68. Attribute VB_Creatable = False
  69. Attribute VB_PredeclaredId = True
  70. Attribute VB_Exposed = False
  71. Private Sub cmdCancel_Click()
  72. End Sub
  73. Private Sub cmdOK_Click()
  74. On Error GoTo Error_Handler:
  75. Me.Caption = "Login - Connecting..."
  76. frmMain.sckClient.Connect txtServerIP.Text, 1000
  77. Exit Sub
  78. Error_Handler:
  79. MsgBox "Please enter a valid IP Address!", vbExclamation, "Note:"
  80. Me.Caption = "Login"
  81. frmMain.sckClient.Close
  82. End Sub
  83. Private Sub txtUserName_Change()
  84. User.Name = txtUserName.Text
  85. End Sub
  86.