home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Windows Gam…ming Gurus (2nd Edition) / Disc2.iso / msdn_vcb / samples / vc98 / atl / atlmovie / vbtest / vbtest.frm next >
Text File  |  1998-03-26  |  3KB  |  107 lines
  1. VERSION 5.00
  2. Object = "{A8AF3246-AED7-11D0-A771-00A0C90391D3}#1.0#0"; "ATLMovie.dll"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00808080&
  5.    Caption         =   "ATL Movie"
  6.    ClientHeight    =   5580
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   6900
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5580
  12.    ScaleWidth      =   6900
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton Command4 
  15.       Caption         =   "Reset"
  16.       Height          =   495
  17.       Left            =   5040
  18.       TabIndex        =   4
  19.       Top             =   4680
  20.       Width           =   1335
  21.    End
  22.    Begin VB.CommandButton Command3 
  23.       Caption         =   "Stop"
  24.       Height          =   495
  25.       Left            =   3480
  26.       TabIndex        =   3
  27.       Top             =   4680
  28.       Width           =   1335
  29.    End
  30.    Begin VB.CommandButton Command2 
  31.       Caption         =   "Pause"
  32.       Height          =   495
  33.       Left            =   1920
  34.       TabIndex        =   2
  35.       Top             =   4680
  36.       Width           =   1335
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "Play"
  40.       Height          =   495
  41.       Left            =   360
  42.       TabIndex        =   1
  43.       Top             =   4680
  44.       Width           =   1335
  45.    End
  46.    Begin VB.TextBox Text1 
  47.       Height          =   375
  48.       Left            =   720
  49.       TabIndex        =   0
  50.       Text            =   "\\deanro1\atlmovie\cybervision.mpg"
  51.       Top             =   4080
  52.       Width           =   3975
  53.    End
  54.    Begin VB.CommandButton Command5 
  55.       Enabled         =   0   'False
  56.       Height          =   1575
  57.       Left            =   120
  58.       TabIndex        =   5
  59.       Top             =   3840
  60.       Width           =   6615
  61.    End
  62.    Begin VB.CommandButton Command6 
  63.       Enabled         =   0   'False
  64.       Height          =   3615
  65.       Left            =   120
  66.       TabIndex        =   6
  67.       Top             =   120
  68.       Width           =   6615
  69.    End
  70.    Begin ATLMOVIELibCtl.MovieCtl Movie 
  71.       Height          =   3135
  72.       Left            =   360
  73.       OleObjectBlob   =   "VBTest.frx":0000
  74.       TabIndex        =   7
  75.       Top             =   360
  76.       Width           =   6135
  77.    End
  78. End
  79. Attribute VB_Name = "Form1"
  80. Attribute VB_GlobalNameSpace = False
  81. Attribute VB_Creatable = False
  82. Attribute VB_PredeclaredId = True
  83. Attribute VB_Exposed = False
  84. Private Sub Command1_Click()
  85.     On Error GoTo errClick
  86.     Movie.Play
  87.     Exit Sub
  88. errClick:
  89.     MsgBox "Cannot play movie"
  90. End Sub
  91.  
  92. Private Sub Command2_Click()
  93.     Movie.Pause
  94. End Sub
  95.  
  96. Private Sub Command3_Click()
  97.     Movie.Stop
  98. End Sub
  99.  
  100. Private Sub Command4_Click()
  101.     Movie.Reset
  102. End Sub
  103.  
  104. Private Sub Text1_LostFocus()
  105.     Movie.filename = Text1
  106. End Sub
  107.