home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tttsrc / ticf1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-05-08  |  5.2 KB  |  172 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "TicTacToe"
  6.    ClientHeight    =   4590
  7.    ClientLeft      =   225
  8.    ClientTop       =   1530
  9.    ClientWidth     =   4215
  10.    Height          =   4995
  11.    Left            =   165
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "TICF1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4590
  16.    ScaleWidth      =   4215
  17.    Top             =   1185
  18.    Width           =   4335
  19.    Begin CheckBox XCheck 
  20.       BackColor       =   &H00000000&
  21.       Caption         =   "I'm playing  X"
  22.       ForeColor       =   &H00FFFFFF&
  23.       Height          =   375
  24.       Left            =   360
  25.       TabIndex        =   6
  26.       Top             =   3600
  27.       Width           =   1575
  28.    End
  29.    Begin ListBox namelist 
  30.       Height          =   1980
  31.       Left            =   2160
  32.       TabIndex        =   3
  33.       Top             =   1920
  34.       Width           =   1695
  35.    End
  36.    Begin Label Label4 
  37.       BackColor       =   &H00000000&
  38.       Caption         =   "Please choose your OPPONENT from the list on the right."
  39.       ForeColor       =   &H00FFFFFF&
  40.       Height          =   855
  41.       Left            =   360
  42.       TabIndex        =   4
  43.       Top             =   2400
  44.       Width           =   1455
  45.    End
  46.    Begin Label Label3 
  47.       Alignment       =   2  'Center
  48.       BackColor       =   &H00000000&
  49.       Caption         =   "Copyright 1994, Virtual Systems"
  50.       ForeColor       =   &H0000FFFF&
  51.       Height          =   255
  52.       Left            =   120
  53.       TabIndex        =   2
  54.       Top             =   4320
  55.       Width           =   3975
  56.    End
  57.    Begin Label Label2 
  58.       Alignment       =   2  'Center
  59.       BackColor       =   &H00000000&
  60.       Caption         =   "For use with America Online and C-Room"
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Arial"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       ForeColor       =   &H00FF00FF&
  68.       Height          =   615
  69.       Left            =   360
  70.       TabIndex        =   1
  71.       Top             =   960
  72.       Width           =   3375
  73.    End
  74.    Begin Label Label1 
  75.       BackColor       =   &H00000000&
  76.       Caption         =   "Tic Tac Toe"
  77.       FontBold        =   -1  'True
  78.       FontItalic      =   0   'False
  79.       FontName        =   "Arial"
  80.       FontSize        =   24
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       ForeColor       =   &H0000C000&
  84.       Height          =   615
  85.       Left            =   720
  86.       TabIndex        =   0
  87.       Top             =   120
  88.       Width           =   2775
  89.    End
  90.    Begin Label Label5 
  91.       Caption         =   "Label5"
  92.       Height          =   255
  93.       Left            =   2280
  94.       LinkItem        =   "People"
  95.       LinkTopic       =   "Croom|People"
  96.       TabIndex        =   5
  97.       Top             =   1920
  98.       Width           =   735
  99.    End
  100. Dim foo
  101. Sub Form_Load ()
  102.        'label5.LinkMode = 3
  103.    label5.LinkMode = 2
  104.    label5.LinkRequest      ' change, so get a new list
  105.    label5.LinkMode = 3     ' of people in the room
  106.     foo = 0
  107.     namelist.Clear
  108.     StartLoc = 1
  109.     For lp = 1 To Len(label5)
  110.         If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  111.           temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  112.           namelist.AddItem temp
  113.           StartLoc = lp + 1
  114.         End If
  115.     Next
  116. End Sub
  117. Sub Form_Unload (Cancel As Integer)
  118.        label5.LinkMode = 0
  119. End Sub
  120. Sub Label5_LinkNotify ()
  121. '   label5.LinkMode = 2     ' We've been notified of a
  122. '   label5.LinkRequest      ' change, so get a new list
  123. '   label5.LinkMode = 3     ' of people in the room
  124. '   namelist.Clear
  125. '   StartLoc = 1
  126. '   For lp = 1 To Len(label5)
  127. '       If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  128. '         temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  129. '         namelist.AddItem temp
  130. '         StartLoc = lp + 1
  131. '       End If
  132. '   Next
  133. End Sub
  134. Sub namelist_Click ()
  135.     CurrentMove = "X"
  136.     foo = foo + 1
  137.     If foo = 1 Then
  138.         opponent = namelist.Text
  139.         label4 = "Now, Pick YOUR screen name from the list on the right."
  140.    'label5.LinkMode = 2
  141.    'label5.LinkRequest      ' change, so get a new list
  142.    'label5.LinkMode = 3     ' of people in the room
  143.         
  144.     Else
  145.         Yourself = namelist.Text
  146.         If XCheck.Value = 1 Then
  147.         Marker = "X"
  148.         OMarker = "O"
  149.         Else
  150.         Marker = "O"
  151.         OMarker = "X"
  152.         End If
  153.         
  154.         form2.Show
  155.         form1.Hide
  156.     End If
  157. End Sub
  158. Sub Text1_LinkNotify ()
  159.    label5.LinkMode = 2
  160.    label5.LinkRequest      ' change, so get a new list
  161.    label5.LinkMode = 3     ' of people in the room
  162.     namelist.Clear
  163.     StartLoc = 1
  164.     For lp = 1 To Len(label5)
  165.         If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  166.           temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  167.           namelist.AddItem temp
  168.           StartLoc = lp + 1
  169.         End If
  170.     Next
  171. End Sub
  172.