home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / wtest / macromed / action / drivers / qtw111 / samples / eachmov.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-29  |  1.7 KB  |  55 lines
  1. VERSION 2.00
  2. Begin Form frmEachMov 
  3.    BorderStyle     =   1  'Fixed Single
  4.    ControlBox      =   0   'False
  5.    Height          =   2805
  6.    Icon            =   0
  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 tmrMovie 
  17.       Left            =   780
  18.       Top             =   960
  19.    End
  20.    Begin QTMovie QTMovie1 
  21.       AutoSize        =   -1  'True
  22.       BorderStyle     =   0  'None
  23.       GrowBox         =   -1  'True
  24.       Height          =   495
  25.       Left            =   0
  26.       MovieName       =   "(none)"
  27.       OffsetX         =   0
  28.       OffsetY         =   0
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Visible         =   -1  'True
  32.       Width           =   1215
  33.    End
  34. Option Explicit
  35. Sub QTMovie1_Click ()
  36. '   Stop the program when the user clicks on the movie
  37.     End
  38. End Sub
  39. Sub QTMovie1_QTPlay (lPlayRate As Long, bContinue As Integer)
  40. '   When the current movie stops (lPlayRate = 0), increment
  41. '   MovieNum and play the next movie
  42.     If lPlayRate = 0& Then
  43.         MovieNum = MovieNum + 1
  44. '       Set the timer interval to start the next movie
  45.         frmEachMov!tmrMovie.Interval = 1
  46.     End If
  47. End Sub
  48. Sub tmrMovie_Timer ()
  49. '   The purpose of this timer is to start the current movie
  50. '   then shut itself off until the movie is done
  51.     PlayMovie
  52.     frmEachMov!QTMovie1.PlayRate = frmEachMov!QTMovie1.PreferredRate
  53.     tmrMovie.Interval = 0
  54. End Sub
  55.