home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Classic_Ae2034511222006.psc / Flight / frmChoose.frm < prev    next >
Text File  |  2006-12-01  |  3KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form frmChoose 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Choose your colour"
  5.    ClientHeight    =   1560
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   3285
  9.    Icon            =   "frmChoose.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1560
  14.    ScaleWidth      =   3285
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton Command1 
  18.       Caption         =   "OK"
  19.       Default         =   -1  'True
  20.       Height          =   495
  21.       Left            =   1200
  22.       TabIndex        =   4
  23.       Top             =   840
  24.       Width           =   855
  25.    End
  26.    Begin VB.PictureBox picPlane 
  27.       Appearance      =   0  'Flat
  28.       AutoSize        =   -1  'True
  29.       BackColor       =   &H80000005&
  30.       ForeColor       =   &H80000008&
  31.       Height          =   390
  32.       Index           =   3
  33.       Left            =   1800
  34.       Picture         =   "frmChoose.frx":08CA
  35.       ScaleHeight     =   360
  36.       ScaleWidth      =   360
  37.       TabIndex        =   3
  38.       Top             =   240
  39.       Width           =   390
  40.    End
  41.    Begin VB.PictureBox picPlane 
  42.       Appearance      =   0  'Flat
  43.       BackColor       =   &H80000005&
  44.       ForeColor       =   &H80000008&
  45.       Height          =   420
  46.       Index           =   4
  47.       Left            =   2520
  48.       Picture         =   "frmChoose.frx":0D46
  49.       ScaleHeight     =   390
  50.       ScaleWidth      =   390
  51.       TabIndex        =   2
  52.       Top             =   240
  53.       Width           =   420
  54.    End
  55.    Begin VB.PictureBox picPlane 
  56.       Appearance      =   0  'Flat
  57.       AutoSize        =   -1  'True
  58.       BackColor       =   &H80000005&
  59.       ForeColor       =   &H80000008&
  60.       Height          =   390
  61.       Index           =   2
  62.       Left            =   1080
  63.       Picture         =   "frmChoose.frx":11BD
  64.       ScaleHeight     =   360
  65.       ScaleWidth      =   360
  66.       TabIndex        =   1
  67.       Top             =   240
  68.       Width           =   390
  69.    End
  70.    Begin VB.PictureBox picPlane 
  71.       Appearance      =   0  'Flat
  72.       AutoSize        =   -1  'True
  73.       BackColor       =   &H00FFFFFF&
  74.       ForeColor       =   &H80000008&
  75.       Height          =   390
  76.       Index           =   1
  77.       Left            =   360
  78.       Picture         =   "frmChoose.frx":163E
  79.       ScaleHeight     =   360
  80.       ScaleWidth      =   360
  81.       TabIndex        =   0
  82.       Top             =   240
  83.       Width           =   390
  84.    End
  85. End
  86. Attribute VB_Name = "frmChoose"
  87. Attribute VB_GlobalNameSpace = False
  88. Attribute VB_Creatable = False
  89. Attribute VB_PredeclaredId = True
  90. Attribute VB_Exposed = False
  91. 'This form is created on 23 October 2004 1:53 AM
  92. 'Use Keyboard Arrow to select Plane Colour?
  93. Option Explicit
  94.  
  95. Private Sub Command1_Click()
  96.     Unload Me
  97. End Sub
  98.  
  99. Private Sub Form_Load()
  100.     picPlane(PlayerColour).BackColor = vbBlack
  101. End Sub
  102.  
  103. Private Sub picPlane_Click(Index As Integer)
  104.     picPlane(PlayerColour).BackColor = vbWhite
  105.     blnAI(PlayerColour) = True
  106.     PlayerColour = Index
  107.     blnAI(PlayerColour) = False
  108.     picPlane(PlayerColour).BackColor = vbBlack
  109. End Sub
  110.