home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / Chip_1999-09_cd.bin / sharewar / vbintrod / projects / example.frm (.txt) next >
Visual Basic Form  |  1999-06-04  |  11KB  |  378 lines
  1. VERSION 5.00
  2. Begin VB.Form frmExample 
  3.    Caption         =   "Example Program"
  4.    ClientHeight    =   6225
  5.    ClientLeft      =   1530
  6.    ClientTop       =   1470
  7.    ClientWidth     =   7500
  8.    LinkTopic       =   "Form1"
  9.    PaletteMode     =   1  'UseZOrder
  10.    ScaleHeight     =   6225
  11.    ScaleWidth      =   7500
  12.    Begin VB.CommandButton cmdExit 
  13.       Caption         =   "E&xit"
  14.       Height          =   495
  15.       Left            =   5160
  16.       TabIndex        =   20
  17.       Top             =   360
  18.       Width           =   1215
  19.    End
  20.    Begin VB.CommandButton cmdStart 
  21.       Caption         =   "Start"
  22.       Height          =   495
  23.       Left            =   5160
  24.       TabIndex        =   19
  25.       Top             =   2760
  26.       Width           =   1215
  27.    End
  28.    Begin VB.Frame framColour 
  29.       Caption         =   "Your Fovourite Colour?"
  30.       Height          =   615
  31.       Left            =   240
  32.       TabIndex        =   13
  33.       Top             =   5400
  34.       Width           =   6255
  35.       Begin VB.OptionButton optBlack 
  36.          Caption         =   "Black"
  37.          Height          =   255
  38.          Left            =   5040
  39.          TabIndex        =   18
  40.          Top             =   240
  41.          Width           =   975
  42.       End
  43.       Begin VB.OptionButton optGreen 
  44.          Caption         =   "Green"
  45.          Height          =   255
  46.          Left            =   3840
  47.          TabIndex        =   17
  48.          Top             =   240
  49.          Width           =   975
  50.       End
  51.       Begin VB.OptionButton optBlue 
  52.          Caption         =   "Blue"
  53.          Height          =   255
  54.          Left            =   2640
  55.          TabIndex        =   16
  56.          Top             =   240
  57.          Width           =   975
  58.       End
  59.       Begin VB.OptionButton optYellow 
  60.          Caption         =   "Yellow"
  61.          Height          =   255
  62.          Left            =   1440
  63.          TabIndex        =   15
  64.          Top             =   240
  65.          Width           =   975
  66.       End
  67.       Begin VB.OptionButton optRed 
  68.          Caption         =   "Red"
  69.          Height          =   255
  70.          Left            =   240
  71.          TabIndex        =   14
  72.          Top             =   240
  73.          Width           =   975
  74.       End
  75.    End
  76.    Begin VB.TextBox txtMessage 
  77.       Height          =   975
  78.       Left            =   3240
  79.       MultiLine       =   -1  'True
  80.       ScrollBars      =   2  'Vertical
  81.       TabIndex        =   11
  82.       Top             =   4080
  83.       Width           =   3015
  84.    End
  85.    Begin VB.Frame framAge 
  86.       Caption         =   "How Old Are You?"
  87.       Height          =   1335
  88.       Left            =   240
  89.       TabIndex        =   8
  90.       Top             =   3840
  91.       Width           =   2535
  92.       Begin VB.TextBox txtAge 
  93.          Alignment       =   2  'Center
  94.          Height          =   285
  95.          Left            =   840
  96.          MultiLine       =   -1  'True
  97.          TabIndex        =   10
  98.          Text            =   "example.frx":0000
  99.          Top             =   360
  100.          Width           =   855
  101.       End
  102.       Begin VB.HScrollBar hsbAge 
  103.          Height          =   255
  104.          LargeChange     =   5
  105.          Left            =   240
  106.          Max             =   100
  107.          TabIndex        =   9
  108.          Top             =   840
  109.          Width           =   2055
  110.       End
  111.    End
  112.    Begin VB.Timer tmrLights 
  113.       Interval        =   1000
  114.       Left            =   5520
  115.       Top             =   1920
  116.    End
  117.    Begin VB.CommandButton cmdBeep 
  118.       Caption         =   "Press Me!"
  119.       Height          =   495
  120.       Left            =   5160
  121.       TabIndex        =   7
  122.       Top             =   1080
  123.       Width           =   1215
  124.    End
  125.    Begin VB.Frame framPictures 
  126.       Caption         =   "Pictures"
  127.       Height          =   3375
  128.       Left            =   240
  129.       TabIndex        =   0
  130.       Top             =   240
  131.       Width           =   1455
  132.       Begin VB.CheckBox chkTree 
  133.          Caption         =   "Tree"
  134.          Height          =   375
  135.          Left            =   240
  136.          TabIndex        =   6
  137.          Top             =   2760
  138.          Width           =   975
  139.       End
  140.       Begin VB.CheckBox chkRose 
  141.          Caption         =   "Rose"
  142.          Height          =   375
  143.          Left            =   240
  144.          TabIndex        =   5
  145.          Top             =   2280
  146.          Width           =   975
  147.       End
  148.       Begin VB.CheckBox chkOwl 
  149.          Caption         =   "Owl"
  150.          Height          =   375
  151.          Left            =   240
  152.          TabIndex        =   4
  153.          Top             =   1800
  154.          Width           =   975
  155.       End
  156.       Begin VB.CheckBox chkClown 
  157.          Caption         =   "Clown"
  158.          Height          =   375
  159.          Left            =   240
  160.          TabIndex        =   3
  161.          Top             =   1320
  162.          Width           =   975
  163.       End
  164.       Begin VB.CheckBox chkCastle 
  165.          Caption         =   "Castle"
  166.          Height          =   375
  167.          Left            =   240
  168.          TabIndex        =   2
  169.          Top             =   840
  170.          Width           =   975
  171.       End
  172.       Begin VB.CheckBox chkCar 
  173.          Caption         =   "Car"
  174.          Height          =   375
  175.          Left            =   240
  176.          TabIndex        =   1
  177.          Top             =   360
  178.          Width           =   975
  179.       End
  180.    End
  181.    Begin VB.Frame framMessage 
  182.       Caption         =   "Type Your Message Here:"
  183.       Height          =   1335
  184.       Left            =   3000
  185.       TabIndex        =   12
  186.       Top             =   3840
  187.       Width           =   3495
  188.    End
  189.    Begin VB.Image imgTree 
  190.       BorderStyle     =   1  'Fixed Single
  191.       Height          =   735
  192.       Left            =   3000
  193.       Picture         =   "example.frx":0002
  194.       Stretch         =   -1  'True
  195.       Top             =   2520
  196.       Visible         =   0   'False
  197.       Width           =   735
  198.    End
  199.    Begin VB.Image imgRose 
  200.       BorderStyle     =   1  'Fixed Single
  201.       Height          =   735
  202.       Left            =   2040
  203.       Picture         =   "example.frx":0801
  204.       Stretch         =   -1  'True
  205.       Top             =   2520
  206.       Visible         =   0   'False
  207.       Width           =   735
  208.    End
  209.    Begin VB.Image imgOwl 
  210.       BorderStyle     =   1  'Fixed Single
  211.       Height          =   735
  212.       Left            =   3000
  213.       Picture         =   "example.frx":0FC2
  214.       Stretch         =   -1  'True
  215.       Top             =   1440
  216.       Visible         =   0   'False
  217.       Width           =   735
  218.    End
  219.    Begin VB.Image imgClown 
  220.       BorderStyle     =   1  'Fixed Single
  221.       Height          =   735
  222.       Left            =   2040
  223.       Picture         =   "example.frx":16B5
  224.       Stretch         =   -1  'True
  225.       Top             =   1440
  226.       Visible         =   0   'False
  227.       Width           =   735
  228.    End
  229.    Begin VB.Image imgCar 
  230.       BorderStyle     =   1  'Fixed Single
  231.       Height          =   735
  232.       Left            =   2040
  233.       Picture         =   "example.frx":1FBA
  234.       Stretch         =   -1  'True
  235.       Top             =   360
  236.       Visible         =   0   'False
  237.       Width           =   735
  238.    End
  239.    Begin VB.Image imgCastle 
  240.       BorderStyle     =   1  'Fixed Single
  241.       Height          =   735
  242.       Left            =   3000
  243.       Picture         =   "example.frx":28A6
  244.       Stretch         =   -1  'True
  245.       Top             =   360
  246.       Visible         =   0   'False
  247.       Width           =   735
  248.    End
  249.    Begin VB.Image imgDisplay 
  250.       Height          =   1335
  251.       Left            =   4080
  252.       Top             =   1920
  253.       Width           =   615
  254.    End
  255.    Begin VB.Image imgLights 
  256.       Height          =   1350
  257.       Index           =   3
  258.       Left            =   6720
  259.       Picture         =   "example.frx":2F0D
  260.       Top             =   4440
  261.       Visible         =   0   'False
  262.       Width           =   750
  263.    End
  264.    Begin VB.Image imgLights 
  265.       Height          =   1350
  266.       Index           =   2
  267.       Left            =   6720
  268.       Picture         =   "example.frx":3967
  269.       Top             =   3000
  270.       Visible         =   0   'False
  271.       Width           =   750
  272.    End
  273.    Begin VB.Image imgLights 
  274.       Height          =   1350
  275.       Index           =   1
  276.       Left            =   6720
  277.       Picture         =   "example.frx":43C1
  278.       Top             =   1560
  279.       Visible         =   0   'False
  280.       Width           =   750
  281.    End
  282.    Begin VB.Image imgLights 
  283.       Height          =   1350
  284.       Index           =   0
  285.       Left            =   6720
  286.       Picture         =   "example.frx":4E1B
  287.       Top             =   120
  288.       Visible         =   0   'False
  289.       Width           =   750
  290.    End
  291. Attribute VB_Name = "frmExample"
  292. Attribute VB_GlobalNameSpace = False
  293. Attribute VB_Creatable = False
  294. Attribute VB_PredeclaredId = True
  295. Attribute VB_Exposed = False
  296. Option Explicit
  297. Dim Counter As Integer
  298. Dim StopGo As Integer
  299. Private Sub chkCar_Click()
  300. If imgCar.Visible = False Then
  301.   imgCar.Visible = True
  302.   imgCar.Visible = False
  303. End If
  304. End Sub
  305. Private Sub chkCastle_Click()
  306. If imgCastle.Visible = False Then
  307.   imgCastle.Visible = True
  308.   imgCastle.Visible = False
  309. End If
  310. End Sub
  311. Private Sub cmdBeep_Click()
  312. End Sub
  313. Private Sub chkClown_Click()
  314. If imgClown.Visible = False Then
  315.   imgClown.Visible = True
  316.   imgClown.Visible = False
  317. End If
  318. End Sub
  319. Private Sub chkOwl_Click()
  320. If imgOwl.Visible = False Then
  321.   imgOwl.Visible = True
  322.   imgOwl.Visible = False
  323. End If
  324. End Sub
  325. Private Sub chkRose_Click()
  326. If imgRose.Visible = False Then
  327.   imgRose.Visible = True
  328.   imgRose.Visible = False
  329. End If
  330. End Sub
  331. Private Sub chkTree_Click()
  332. If imgTree.Visible = False Then
  333.   imgTree.Visible = True
  334.   imgTree.Visible = False
  335. End If
  336. End Sub
  337. Private Sub cmdExit_Click()
  338. End Sub
  339. Private Sub cmdStart_Click()
  340. If StopGo = 0 Then
  341.   StopGo = 1
  342.   cmdStart.Caption = "Stop"
  343.   StopGo = 0
  344.   cmdStart.Caption = "Start"
  345. End If
  346. End Sub
  347. Private Sub Form_Load()
  348. Counter = 0
  349. StopGo = 0
  350. End Sub
  351. Private Sub hsbAge_Change()
  352. txtAge.Text = Val(hsbAge)
  353. End Sub
  354. Private Sub optBlack_Click()
  355. frmExample.BackColor = vbBlack
  356. End Sub
  357. Private Sub optBlue_Click()
  358. frmExample.BackColor = vbBlue
  359. End Sub
  360. Private Sub optGreen_Click()
  361. frmExample.BackColor = vbGreen
  362. End Sub
  363. Private Sub optRed_Click()
  364. frmExample.BackColor = vbRed
  365. End Sub
  366. Private Sub optYellow_Click()
  367. frmExample.BackColor = vbYellow
  368. End Sub
  369. Private Sub tmrLights_Timer()
  370. If StopGo = 1 Then
  371.   imgDisplay.Picture = imgLights(Counter).Picture
  372.   Counter = Counter + 1
  373.   If Counter = 4 Then
  374.     Counter = 0
  375.   End If
  376. End If
  377. End Sub
  378.