home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / irc-code.exe / SETUP.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-21  |  3.3 KB  |  122 lines
  1. VERSION 4.00
  2. Begin VB.Form setup 
  3.    Caption         =   "IRCPre2 Setup"
  4.    ClientHeight    =   1984
  5.    ClientLeft      =   1568
  6.    ClientTop       =   1424
  7.    ClientWidth     =   3024
  8.    Height          =   2368
  9.    Left            =   1504
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1984
  12.    ScaleWidth      =   3024
  13.    Top             =   1104
  14.    Width           =   3152
  15.    Begin VB.CommandButton OK 
  16.       Caption         =   "&OK"
  17.       Height          =   400
  18.       Left            =   704
  19.       TabIndex        =   7
  20.       Top             =   1472
  21.       Width           =   1040
  22.    End
  23.    Begin VB.CommandButton Cancel 
  24.       Caption         =   "&Cancel"
  25.       Height          =   400
  26.       Left            =   1856
  27.       TabIndex        =   6
  28.       Top             =   1472
  29.       Width           =   1040
  30.    End
  31.    Begin VB.TextBox NickText 
  32.       Height          =   304
  33.       Left            =   1088
  34.       MaxLength       =   9
  35.       TabIndex        =   5
  36.       Text            =   "IRCPre2"
  37.       Top             =   1024
  38.       Width           =   1808
  39.    End
  40.    Begin VB.TextBox PortText 
  41.       Height          =   304
  42.       Left            =   1088
  43.       TabIndex        =   3
  44.       Text            =   "6667"
  45.       Top             =   576
  46.       Width           =   1808
  47.    End
  48.    Begin VB.ComboBox ServerCombo 
  49.       Height          =   336
  50.       ItemData        =   "setup.frx":0000
  51.       Left            =   1088
  52.       List            =   "setup.frx":0013
  53.       TabIndex        =   1
  54.       Text            =   "irc.neosoft.com"
  55.       Top             =   128
  56.       Width           =   1808
  57.    End
  58.    Begin VB.Label Label1 
  59.       AutoSize        =   -1  'True
  60.       Caption         =   "Nickname:"
  61.       Height          =   208
  62.       Index           =   2
  63.       Left            =   128
  64.       TabIndex        =   4
  65.       Top             =   1088
  66.       Width           =   816
  67.    End
  68.    Begin VB.Label Label1 
  69.       AutoSize        =   -1  'True
  70.       Caption         =   "Port:"
  71.       Height          =   208
  72.       Index           =   1
  73.       Left            =   128
  74.       TabIndex        =   2
  75.       Top             =   640
  76.       Width           =   352
  77.    End
  78.    Begin VB.Label Label1 
  79.       AutoSize        =   -1  'True
  80.       Caption         =   "Server:"
  81.       Height          =   208
  82.       Index           =   0
  83.       Left            =   128
  84.       TabIndex        =   0
  85.       Top             =   192
  86.       Width           =   544
  87.    End
  88. Attribute VB_Name = "setup"
  89. Attribute VB_Creatable = False
  90. Attribute VB_Exposed = False
  91. Option Explicit
  92. Private Sub Cancel_Click()
  93.   ' Close setup
  94.   Unload Me
  95. End Sub
  96. Private Sub Form_Load()
  97.   ' Center myself in the middle of the screen
  98.   Me.Left = (Screen.Width \ 2) - (Me.Width \ 2)
  99.   Me.Top = (Screen.Height \ 2) - (Me.Height \ 2)
  100. End Sub
  101. Private Sub OK_Click()
  102.   ' Make sure all fields have data
  103.   If ServerCombo.Text = "" Then
  104.     Beep
  105.     ServerCombo.SetFocus: Exit Sub
  106.   End If
  107.   If PortText.Text = "" Then
  108.     Beep
  109.     PortText.SetFocus: Exit Sub
  110.   End If
  111.   If NickText.Text = "" Then
  112.     Beep
  113.     NickText.SetFocus: Exit Sub
  114.   End If
  115.   ' Set the global variables
  116.   Server = ServerCombo.Text
  117.   Port = PortText.Text
  118.   Nickname = NickText.Text
  119.   ' Close setup
  120.   Unload Me
  121. End Sub
  122.