home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Nokia_Snak1869633302005.psc / SNAKE / frmOptions.frm < prev    next >
Text File  |  2005-03-30  |  7KB  |  215 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   3045
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5835
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   203
  10.    ScaleMode       =   3  'Pixel
  11.    ScaleWidth      =   389
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.PictureBox picOptionsOne 
  15.       AutoRedraw      =   -1  'True
  16.       AutoSize        =   -1  'True
  17.       BorderStyle     =   0  'None
  18.       Height          =   1800
  19.       Left            =   0
  20.       Picture         =   "frmOptions.frx":0000
  21.       ScaleHeight     =   120
  22.       ScaleMode       =   3  'Pixel
  23.       ScaleWidth      =   260
  24.       TabIndex        =   2
  25.       Top             =   300
  26.       Width           =   3900
  27.       Begin VB.ListBox lstSkin 
  28.          Enabled         =   0   'False
  29.          BeginProperty Font 
  30.             Name            =   "Verdana"
  31.             Size            =   8.25
  32.             Charset         =   0
  33.             Weight          =   700
  34.             Underline       =   0   'False
  35.             Italic          =   0   'False
  36.             Strikethrough   =   0   'False
  37.          EndProperty
  38.          Height          =   255
  39.          ItemData        =   "frmOptions.frx":16DE2
  40.          Left            =   360
  41.          List            =   "frmOptions.frx":16DEC
  42.          TabIndex        =   7
  43.          Top             =   960
  44.          Width           =   3375
  45.       End
  46.       Begin Snake_By_Umer.Button buttOK 
  47.          Height          =   375
  48.          Left            =   2640
  49.          TabIndex        =   5
  50.          Top             =   1440
  51.          Width           =   1215
  52.          _extentx        =   2143
  53.          _extenty        =   661
  54.          lbl             =   "OK"
  55.       End
  56.       Begin Snake_By_Umer.CheckBox chkboxWalls 
  57.          Height          =   255
  58.          Left            =   120
  59.          TabIndex        =   3
  60.          Top             =   240
  61.          Width           =   255
  62.          _extentx        =   450
  63.          _extenty        =   450
  64.       End
  65.       Begin Snake_By_Umer.Button buttAbout 
  66.          Height          =   375
  67.          Left            =   1440
  68.          TabIndex        =   6
  69.          Top             =   1440
  70.          Width           =   1215
  71.          _extentx        =   2143
  72.          _extenty        =   661
  73.          lbl             =   "About"
  74.       End
  75.       Begin VB.Label Label1 
  76.          BackStyle       =   0  'Transparent
  77.          Caption         =   " Skins"
  78.          Enabled         =   0   'False
  79.          BeginProperty Font 
  80.             Name            =   "Verdana"
  81.             Size            =   8.25
  82.             Charset         =   0
  83.             Weight          =   700
  84.             Underline       =   0   'False
  85.             Italic          =   0   'False
  86.             Strikethrough   =   0   'False
  87.          EndProperty
  88.          Height          =   255
  89.          Left            =   360
  90.          TabIndex        =   8
  91.          Top             =   720
  92.          Width           =   3375
  93.       End
  94.       Begin VB.Label lblGoThroughWalls 
  95.          BackStyle       =   0  'Transparent
  96.          Caption         =   " Snake can go through walls."
  97.          BeginProperty Font 
  98.             Name            =   "Verdana"
  99.             Size            =   8.25
  100.             Charset         =   0
  101.             Weight          =   700
  102.             Underline       =   0   'False
  103.             Italic          =   0   'False
  104.             Strikethrough   =   0   'False
  105.          EndProperty
  106.          Height          =   255
  107.          Left            =   360
  108.          TabIndex        =   4
  109.          Top             =   255
  110.          Width           =   3375
  111.       End
  112.    End
  113.    Begin VB.PictureBox picBar 
  114.       AutoRedraw      =   -1  'True
  115.       AutoSize        =   -1  'True
  116.       BorderStyle     =   0  'None
  117.       Height          =   300
  118.       Left            =   0
  119.       Picture         =   "frmOptions.frx":16E0B
  120.       ScaleHeight     =   20
  121.       ScaleMode       =   3  'Pixel
  122.       ScaleWidth      =   260
  123.       TabIndex        =   0
  124.       Top             =   0
  125.       Width           =   3900
  126.       Begin VB.Label lblBar 
  127.          Alignment       =   2  'Center
  128.          BackStyle       =   0  'Transparent
  129.          Caption         =   "Options"
  130.          BeginProperty Font 
  131.             Name            =   "Verdana"
  132.             Size            =   8.25
  133.             Charset         =   0
  134.             Weight          =   700
  135.             Underline       =   0   'False
  136.             Italic          =   0   'False
  137.             Strikethrough   =   0   'False
  138.          EndProperty
  139.          Height          =   255
  140.          Left            =   120
  141.          TabIndex        =   1
  142.          Top             =   60
  143.          Width           =   3615
  144.       End
  145.    End
  146. End
  147. Attribute VB_Name = "frmOptions"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152. '#########################################
  153. '#         Developed By Umer KK          #
  154. '#        Umerkhan_63@Hotmail.com        #
  155. '#########################################
  156.  
  157. Option Explicit
  158.  
  159. Private Sub buttAbout_click()
  160.  'show about form
  161.   frmAbout.Show
  162.  'disbale me
  163.   Me.Enabled = False
  164. End Sub
  165.  
  166. Private Sub buttOK_click()
  167.  'unload the form
  168.   Unload Me
  169.  'enable frmsnake
  170.   frmSnake.Enabled = True
  171.   frmSnake.picGameField.SetFocus
  172.  
  173.   'If lstSkin.Text = "White Python" Then
  174.   'Call SkinAll("whitepython")
  175.  'Else
  176.   'Call SkinAll("blackadder")
  177.  'End If
  178. End Sub
  179.  
  180. Private Sub chkboxWalls_click()
  181. 'Sets option to go through walls or not
  182.  If chkboxWalls.Value = Checked Then
  183.   blnGoThroughWalls = False
  184.   chkboxWalls.Value = Unchecked
  185.  Else
  186.   blnGoThroughWalls = True
  187.   chkboxWalls.Value = Checked
  188.  End If
  189. End Sub
  190.  
  191. Private Sub Form_Load()
  192.  'Set width and height
  193.   Me.Height = 2100
  194.   Me.Width = 3915
  195.  'set chkboxes
  196.   If blnGoThroughWalls = True Then
  197.    chkboxWalls.Value = Checked
  198.   Else
  199.    chkboxWalls.Value = Unchecked
  200.   End If
  201.  'Set buttons
  202.   buttOK.Tekst = "OK"
  203.   buttAbout.Tekst = "About"
  204. End Sub
  205.  
  206. Private Sub lblBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  207.  'This Let's the Form Move, like a real titlebar
  208.   Call MouseMove(Me)
  209. End Sub
  210.  
  211. Private Sub picBar_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  212.  'This Let's the Form Move, like a real titlebar
  213.   Call MouseMove(Me)
  214. End Sub
  215.