home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / waldo / waldo_f.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.6 KB  |  101 lines
  1. VERSION 2.00
  2. Begin Form WALDO_F 
  3.    Caption         =   "WHERE'S WALDO?"
  4.    ClientHeight    =   4605
  5.    ClientLeft      =   1695
  6.    ClientTop       =   1845
  7.    ClientWidth     =   6420
  8.    Height          =   5010
  9.    Icon            =   WALDO_F.FRX:0000
  10.    Left            =   1635
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   4605
  14.    ScaleWidth      =   6420
  15.    Top             =   1500
  16.    Width           =   6540
  17.    Begin PictureBox Picture4 
  18.       AutoSize        =   -1  'True
  19.       BorderStyle     =   0  'None
  20.       Height          =   5055
  21.       Left            =   -2280
  22.       ScaleHeight     =   5055
  23.       ScaleWidth      =   2535
  24.       TabIndex        =   3
  25.       Top             =   120
  26.       Visible         =   0   'False
  27.       Width           =   2535
  28.    End
  29.    Begin PictureBox Picture3 
  30.       AutoSize        =   -1  'True
  31.       BorderStyle     =   0  'None
  32.       Height          =   4410
  33.       Left            =   4680
  34.       Picture         =   WALDO_F.FRX:0302
  35.       ScaleHeight     =   4410
  36.       ScaleWidth      =   1860
  37.       TabIndex        =   2
  38.       Top             =   0
  39.       Visible         =   0   'False
  40.       Width           =   1860
  41.    End
  42.    Begin PictureBox Picture2 
  43.       AutoSize        =   -1  'True
  44.       BorderStyle     =   0  'None
  45.       Height          =   4425
  46.       Left            =   2760
  47.       Picture         =   WALDO_F.FRX:4CFC
  48.       ScaleHeight     =   4425
  49.       ScaleWidth      =   1800
  50.       TabIndex        =   1
  51.       Top             =   0
  52.       Visible         =   0   'False
  53.       Width           =   1800
  54.    End
  55.    Begin PictureBox Picture1 
  56.       AutoSize        =   -1  'True
  57.       BorderStyle     =   0  'None
  58.       Height          =   4350
  59.       Left            =   600
  60.       Picture         =   WALDO_F.FRX:929A
  61.       ScaleHeight     =   4350
  62.       ScaleWidth      =   2100
  63.       TabIndex        =   0
  64.       Top             =   0
  65.       Visible         =   0   'False
  66.       Width           =   2100
  67.    End
  68.    Begin Timer Timer1 
  69.       Interval        =   2000
  70.       Left            =   120
  71.       Top             =   0
  72.    End
  73. Sub Timer1_Timer ()
  74.     WALDO_F.Show      'Show the main form after small pause
  75.     Waldo             'Run WALDO sub routine of animation
  76.     End               'End of program
  77. End Sub
  78.     'This Sub uses three pictures of Waldo and one empty picture box
  79.     'Set all picture boxes Resize property to True with no borders
  80.     'Make sure that your Form Background color matches the background of your artwork
  81.     Sub Waldo ()     'Declaration of animation section
  82.     For I = 1 To 6    'Runs this loop 6 times
  83.         Picture4.Visible = -1   'Shows picture #4
  84.         Picture4.Picture = picture1.Picture 'put Pic1 in Pic4
  85.         Picture4.Left = Picture4.Left + 200 'Move Pic4 to the right to simulate walking
  86.         Picture4.Picture = picture2.Picture 'Show #2
  87.         Picture4.Left = Picture4.Left + 200 'Move again
  88.         Picture4.Picture = picture3.Picture 'Show #3
  89.         Picture4.Left = Picture4.Left + 200 'Move
  90.         Picture4.Picture = picture2.Picture 'Show #2 Again
  91.         Picture4.Left = Picture4.Left + 200 'Move
  92.         Picture4.Picture = picture1.Picture 'Show #1
  93.         Picture4.Left = Picture4.Left + 200 'Move
  94.     Next I                                    'Repeat
  95.     Picture4.Visible = 0  'Hide Pic4 when finished
  96.     Picture4.Left = -120  'Reset Pic4 to Far Left of Form
  97.     WALDO_F.Hide          'Close the Form
  98.     End                   'End the Program
  99.     'To increase speed of animation, change 400 to 600 etc.
  100. End Sub
  101.