home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / burglr / animate.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.7 KB  |  123 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1770
  8.    ClientWidth     =   7365
  9.    Height          =   4710
  10.    Icon            =   ANIMATE.FRX:0000
  11.    Left            =   1035
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   4020
  15.    ScaleWidth      =   7365
  16.    Top             =   1140
  17.    Width           =   7485
  18.    Begin PictureBox Picture4 
  19.       AutoSize        =   -1  'True
  20.       Height          =   510
  21.       Left            =   720
  22.       Picture         =   ANIMATE.FRX:0302
  23.       ScaleHeight     =   480
  24.       ScaleWidth      =   480
  25.       TabIndex        =   3
  26.       Top             =   2760
  27.       Width           =   510
  28.    End
  29.    Begin PictureBox Picture3 
  30.       AutoSize        =   -1  'True
  31.       BackColor       =   &H00FFFFFF&
  32.       BorderStyle     =   0  'None
  33.       Height          =   375
  34.       Left            =   2520
  35.       ScaleHeight     =   375
  36.       ScaleWidth      =   375
  37.       TabIndex        =   2
  38.       Top             =   1920
  39.       Width           =   375
  40.    End
  41.    Begin PictureBox Picture2 
  42.       AutoSize        =   -1  'True
  43.       BackColor       =   &H00FFFFFF&
  44.       BorderStyle     =   0  'None
  45.       Height          =   495
  46.       Left            =   960
  47.       ScaleHeight     =   495
  48.       ScaleWidth      =   495
  49.       TabIndex        =   1
  50.       Top             =   1440
  51.       Width           =   495
  52.    End
  53.    Begin PictureBox Picture1 
  54.       AutoSize        =   -1  'True
  55.       BackColor       =   &H00FFFFFF&
  56.       BorderStyle     =   0  'None
  57.       Height          =   495
  58.       Left            =   600
  59.       ScaleHeight     =   495
  60.       ScaleWidth      =   495
  61.       TabIndex        =   0
  62.       Top             =   600
  63.       Width           =   495
  64.    End
  65.    Begin Menu Animatecom 
  66.       Caption         =   "&Animate"
  67.       Begin Menu Startcom 
  68.          Caption         =   "&Start"
  69.       End
  70.       Begin Menu exitcom 
  71.          Caption         =   "E&xit"
  72.       End
  73.    End
  74. Sub exitcom_Click ()
  75. End Sub
  76. Sub Form_Load ()
  77. form1.windowstate = 2
  78. picture1.visible = 0
  79. picture2.visible = 0
  80. picture3.visible = 0
  81. picture4.visible = 0
  82. End Sub
  83. Sub Startcom_Click ()
  84. form1.drawwidth = 1
  85. form1.drawstyle = 4
  86. picture4.visible = 0
  87. picture1.visible = 0
  88. picture2.visible = 0
  89. picture3.visible = 0
  90. picture1.top = form1.top + (picture4.height)
  91. picture1.left = form1.left - (picture1.width + picture4.width)
  92. picture1.picture = LoadPicture("burglar2.ico")
  93. picture2.picture = LoadPicture("burglar3.ico")
  94. picture3.picture = LoadPicture("burglar4.ico")
  95. picture1.visible = 1
  96. walkacross:
  97. For q = 1 To 75
  98.     picture4.top = picture1.top - 25
  99.     form1.Line (form1.left, picture4.top + picture4.height + 2)-Step(form1.left + form1.width, 0)
  100.     picture2.top = picture1.top
  101.     picture2.left = picture1.left + 50
  102.     picture4.left = picture2.left - picture4.width
  103.     picture4.visible = -1
  104.     picture2.visible = -1
  105.     picture1.visible = 0
  106.     picture3.top = picture1.top
  107.     picture3.left = picture2.left + 50
  108.     picture4.left = picture3.left - picture4.width
  109.     picture4.visible = -1
  110.     picture3.visible = -1
  111.     picture2.visible = 0
  112.     picture1.left = picture3.left + 50
  113.     picture4.left = picture1.left - picture4.width
  114.     picture4.visible = -1
  115.     picture1.visible = -1
  116.     picture3.visible = 0
  117.     x = DoEvents()
  118. picture1.left = form1.left - (picture1.width + picture4.width)
  119. picture1.top = picture1.top + (picture1.height * 2)
  120. If picture1.top > form1.height Then picture1.top = form1.top + picture4.height
  121. GoTo walkacross
  122. End Sub
  123.