home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Killer_Sno18221211272004.psc / frmSettings.frm < prev    next >
Text File  |  2004-11-24  |  7KB  |  222 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmSettings 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Settings"
  6.    ClientHeight    =   4185
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   3195
  10.    Icon            =   "frmSettings.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4185
  15.    ScaleWidth      =   3195
  16.    Begin VB.Frame Frame1 
  17.       Height          =   3975
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   2895
  22.       Begin VB.TextBox txtSnow 
  23.          Alignment       =   2  'Center
  24.          BeginProperty Font 
  25.             Name            =   "Arial"
  26.             Size            =   9
  27.             Charset         =   0
  28.             Weight          =   400
  29.             Underline       =   0   'False
  30.             Italic          =   0   'False
  31.             Strikethrough   =   0   'False
  32.          EndProperty
  33.          Height          =   285
  34.          Left            =   240
  35.          TabIndex        =   5
  36.          Text            =   "Ho Ho Ho!"
  37.          Top             =   3480
  38.          Width           =   2415
  39.       End
  40.       Begin MSComctlLib.Slider sldWind 
  41.          Height          =   375
  42.          Left            =   480
  43.          TabIndex        =   1
  44.          Top             =   600
  45.          Width           =   1815
  46.          _ExtentX        =   3201
  47.          _ExtentY        =   661
  48.          _Version        =   393216
  49.          LargeChange     =   1
  50.          SelStart        =   5
  51.          Value           =   5
  52.       End
  53.       Begin MSComctlLib.Slider sldFlakes 
  54.          Height          =   375
  55.          Left            =   480
  56.          TabIndex        =   3
  57.          Top             =   1560
  58.          Width           =   1815
  59.          _ExtentX        =   3201
  60.          _ExtentY        =   661
  61.          _Version        =   393216
  62.          LargeChange     =   1
  63.          Max             =   500
  64.          SelStart        =   300
  65.          Value           =   300
  66.       End
  67.       Begin MSComctlLib.Slider sldSize 
  68.          Height          =   375
  69.          Left            =   480
  70.          TabIndex        =   7
  71.          Top             =   2400
  72.          Width           =   1815
  73.          _ExtentX        =   3201
  74.          _ExtentY        =   661
  75.          _Version        =   393216
  76.          LargeChange     =   1
  77.          Min             =   1
  78.          SelStart        =   2
  79.          Value           =   2
  80.       End
  81.       Begin VB.Label Label2 
  82.          Alignment       =   2  'Center
  83.          Caption         =   "Flake Size"
  84.          BeginProperty Font 
  85.             Name            =   "Arial"
  86.             Size            =   9
  87.             Charset         =   0
  88.             Weight          =   400
  89.             Underline       =   0   'False
  90.             Italic          =   0   'False
  91.             Strikethrough   =   0   'False
  92.          EndProperty
  93.          Height          =   255
  94.          Left            =   480
  95.          TabIndex        =   8
  96.          Top             =   2040
  97.          Width           =   1815
  98.       End
  99.       Begin VB.Label Label1 
  100.          Alignment       =   2  'Center
  101.          Caption         =   "Snow Text"
  102.          BeginProperty Font 
  103.             Name            =   "Arial"
  104.             Size            =   9
  105.             Charset         =   0
  106.             Weight          =   400
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          Height          =   255
  112.          Left            =   360
  113.          TabIndex        =   6
  114.          Top             =   3120
  115.          Width           =   2055
  116.       End
  117.       Begin VB.Label lblFlakes 
  118.          Alignment       =   2  'Center
  119.          Caption         =   "Flakes"
  120.          BeginProperty Font 
  121.             Name            =   "Arial"
  122.             Size            =   9
  123.             Charset         =   0
  124.             Weight          =   400
  125.             Underline       =   0   'False
  126.             Italic          =   0   'False
  127.             Strikethrough   =   0   'False
  128.          EndProperty
  129.          Height          =   255
  130.          Left            =   480
  131.          TabIndex        =   4
  132.          Top             =   1200
  133.          Width           =   1815
  134.       End
  135.       Begin VB.Label lblWind 
  136.          Alignment       =   2  'Center
  137.          Caption         =   "Wind"
  138.          BeginProperty Font 
  139.             Name            =   "Arial"
  140.             Size            =   9
  141.             Charset         =   0
  142.             Weight          =   400
  143.             Underline       =   0   'False
  144.             Italic          =   0   'False
  145.             Strikethrough   =   0   'False
  146.          EndProperty
  147.          Height          =   255
  148.          Left            =   480
  149.          TabIndex        =   2
  150.          Top             =   240
  151.          Width           =   1815
  152.       End
  153.    End
  154. End
  155. Attribute VB_Name = "frmSettings"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. Private mLoading As Boolean
  161.  
  162. Private Sub Form_Load()
  163.     mLoading = True
  164.     sldFlakes.Value = mFlakeNum
  165.     lblFlakes.Caption = "Flakes (" & sldFlakes.Value & ")"
  166.     mLoading = False
  167.     Me.Left = frmMain.Left - Me.Width
  168.     Me.Top = frmMain.Top
  169. End Sub
  170.  
  171. Private Sub sldFlakes_Change()
  172.     'If the number of flakes change
  173.     'then reset frmMain
  174.     If mLoading = False Then
  175.         mFlakeNum = sldFlakes.Value
  176.         frmMain.StopSnow = True
  177.         frmMain.Cls
  178.         Setup
  179.         frmMain.StopSnow = False
  180.     End If
  181. End Sub
  182.  
  183. Private Sub sldFlakes_Scroll()
  184.     lblFlakes.Caption = "Flakes (" & sldFlakes.Value & ")"
  185. End Sub
  186.  
  187. Private Sub sldSize_Click()
  188.     'If the flake size changes
  189.     'then reset frmMain
  190.     mtFlakeSize = sldSize.Value
  191.     frmMain.StopSnow = True
  192.     frmMain.Cls
  193.     Setup
  194.     frmMain.StopSnow = False
  195. End Sub
  196.  
  197. Private Sub sldWind_Scroll()
  198.     'This sub simply appears to add
  199.     'wind to the snow.
  200.     If sldWind.Value > 5 Then
  201.         mRightWind = sldWind.Value - 3
  202.         mLeftWind = 2
  203.     ElseIf sldWind.Value < 5 Then
  204.         mLeftWind = (7 - sldWind.Value)
  205.         mRightWind = 2
  206.     Else
  207.         mLeftWind = 2
  208.         mRightWind = 2
  209.     End If
  210.     
  211. End Sub
  212.  
  213. Private Sub txtSnow_Change()
  214.     'If the text changes, update frmMain
  215.     'with the new text by resetting the form.
  216.     mSnowText = txtSnow.Text
  217.     frmMain.StopSnow = True
  218.     frmMain.Cls
  219.     Setup
  220.     frmMain.StopSnow = False
  221. End Sub
  222.