home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / wtest / macromed / action / drivers / qtw111 / samples / eachpic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-29  |  1.1 KB  |  40 lines
  1. VERSION 2.00
  2. Begin Form frmEachPic 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ControlBox      =   0   'False
  5.    Height          =   2805
  6.    Icon            =   EACHPIC.FRX:0000
  7.    Left            =   1035
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    MinButton       =   0   'False
  11.    ScaleHeight     =   2400
  12.    ScaleWidth      =   2700
  13.    Top             =   1140
  14.    Visible         =   0   'False
  15.    Width           =   2820
  16.    Begin Timer tmrPicture 
  17.       Left            =   780
  18.       Top             =   960
  19.    End
  20.    Begin QTPicture QTPicture1 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       Height          =   495
  24.       Left            =   0
  25.       PictureName     =   "(none)"
  26.       TabIndex        =   0
  27.       Top             =   0
  28.       Width           =   1215
  29.    End
  30. Option Explicit
  31. Sub QTPicture1_Click ()
  32. '   Stop the program when the user clicks on the Picture
  33.     End
  34. End Sub
  35. Sub tmrPicture_Timer ()
  36. '   Beep
  37.     PictureNum = PictureNum + 1
  38.     ShowPicture
  39. End Sub
  40.