home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / options.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-01-11  |  2.0 KB  |  70 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Settings"
  5.    ClientHeight    =   1455
  6.    ClientLeft      =   8310
  7.    ClientTop       =   1830
  8.    ClientWidth     =   3990
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1455
  13.    ScaleWidth      =   3990
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.TextBox Text2 
  17.       Height          =   285
  18.       Left            =   120
  19.       ScrollBars      =   2  'Vertical
  20.       TabIndex        =   3
  21.       Top             =   1080
  22.       Width           =   3735
  23.    End
  24.    Begin VB.TextBox Text1 
  25.       Height          =   285
  26.       Left            =   120
  27.       TabIndex        =   1
  28.       Top             =   360
  29.       Width           =   1695
  30.    End
  31.    Begin VB.Line Line2 
  32.       X1              =   3840
  33.       X2              =   1920
  34.       Y1              =   960
  35.       Y2              =   960
  36.    End
  37.    Begin VB.Line Line1 
  38.       X1              =   1920
  39.       X2              =   1920
  40.       Y1              =   120
  41.       Y2              =   960
  42.    End
  43.    Begin VB.Label Label2 
  44.       Caption         =   "Welcome Message"
  45.       Height          =   255
  46.       Left            =   120
  47.       TabIndex        =   2
  48.       Top             =   840
  49.       Width           =   1575
  50.    End
  51.    Begin VB.Label Label1 
  52.       Caption         =   "Sysop"
  53.       Height          =   255
  54.       Left            =   120
  55.       TabIndex        =   0
  56.       Top             =   120
  57.       Width           =   1575
  58.    End
  59. Attribute VB_Name = "Form2"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  65. ServerData.SysopName = Text1.Text
  66. End Sub
  67. Private Sub Text2_Change()
  68. ServerData.MotD = Text2.Text
  69. End Sub
  70.