home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / IChat_Chat510691252002.psc / frmCon.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-01-26  |  3.6 KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form frmCon 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Connect To..."
  5.    ClientHeight    =   1695
  6.    ClientLeft      =   45
  7.    ClientTop       =   435
  8.    ClientWidth     =   6015
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1695
  13.    ScaleWidth      =   6015
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton cmdCancel 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "Cancel"
  18.       Height          =   330
  19.       Left            =   4680
  20.       TabIndex        =   5
  21.       Top             =   555
  22.       Width           =   1230
  23.    End
  24.    Begin VB.CommandButton cmdOK 
  25.       Caption         =   "OK"
  26.       Default         =   -1  'True
  27.       Height          =   315
  28.       Left            =   4665
  29.       TabIndex        =   4
  30.       Top             =   195
  31.       Width           =   1245
  32.    End
  33.    Begin VB.OptionButton Option2 
  34.       Caption         =   "Private - cannot see in the user list"
  35.       Height          =   255
  36.       Left            =   1080
  37.       TabIndex        =   3
  38.       ToolTipText     =   "Using this, you are not listed in the user list, and cannot be sent private messanges."
  39.       Top             =   1290
  40.       Width           =   2775
  41.    End
  42.    Begin VB.OptionButton Option1 
  43.       Caption         =   "Clear - can see you in the user list"
  44.       Height          =   240
  45.       Left            =   1080
  46.       TabIndex        =   2
  47.       ToolTipText     =   "Using this, everyone can see you in the chat. You can recieve private messages."
  48.       Top             =   1080
  49.       Value           =   -1  'True
  50.       Width           =   3180
  51.    End
  52.    Begin VB.TextBox txtNick 
  53.       Height          =   285
  54.       Left            =   1215
  55.       TabIndex        =   1
  56.       Top             =   705
  57.       Width           =   2025
  58.    End
  59.    Begin VB.TextBox txtHost 
  60.       Height          =   285
  61.       Left            =   1215
  62.       TabIndex        =   0
  63.       Top             =   225
  64.       Width           =   2040
  65.    End
  66.    Begin VB.Label Label2 
  67.       Caption         =   "My Nickname:"
  68.       Height          =   210
  69.       Left            =   120
  70.       TabIndex        =   7
  71.       Top             =   780
  72.       Width           =   1080
  73.    End
  74.    Begin VB.Label Label1 
  75.       Caption         =   "Remote Host:"
  76.       Height          =   195
  77.       Left            =   120
  78.       TabIndex        =   6
  79.       Top             =   270
  80.       Width           =   1035
  81.    End
  82. Attribute VB_Name = "frmCon"
  83. Attribute VB_GlobalNameSpace = False
  84. Attribute VB_Creatable = False
  85. Attribute VB_PredeclaredId = True
  86. Attribute VB_Exposed = False
  87. Private Cancel As Boolean
  88. 'XP UPGRADE AUTO-INSERT
  89. Private Declare Function InitCommonControls Lib "comctl32.dll" () As Long
  90. Private Sub cmdCancel_Click()
  91. Cancel = True
  92. Me.Hide
  93. End Sub
  94. Private Sub cmdOK_Click()
  95. If txtHost <> "" And txtNick <> "" Then Me.Hide
  96. End Sub
  97. Public Sub GetInfo(HostName As String, UserName As String)
  98. If HostName <> "" Then txtHost.Text = HostName: txtHost.Enabled = False
  99. If UserName <> "" Then txtNick.Text = UserName: txtNick.Enabled = False
  100. Me.Show vbModal
  101. If Cancel Then HostName = "": UserName = "": Cancel = False: GoTo quit
  102. HostName = txtHost
  103. UserName = IIf(Option1.Value = True, txtNick, vbNullChar & txtNick)
  104. quit:
  105. Unload Me
  106. End Sub
  107. Private Sub txtNick_KeyPress(KeyAscii As Integer)
  108. If KeyAscii = Asc(" ") Then KeyAscii = 0
  109. End Sub
  110. Private Sub Form_Initialize()
  111. 'XP UPGRADE AUTO-INSERT
  112. InitCommonControls
  113. End Sub
  114.