home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_demos / vbmmde / frmmovie.fr_ / frmmovie.fr
Text File  |  1994-02-16  |  1KB  |  57 lines
  1. VERSION 2.00
  2. Begin Form frmMovie 
  3.    BackColor       =   &H00808000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "MMDemo Movie Player"
  6.    ClientHeight    =   600
  7.    ClientLeft      =   1560
  8.    ClientTop       =   3450
  9.    ClientWidth     =   5700
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   1005
  13.    Left            =   1500
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   600
  18.    ScaleWidth      =   5700
  19.    Top             =   3105
  20.    Width           =   5820
  21.    Begin CommandButton cmdMovieExit 
  22.       Caption         =   "E&xit"
  23.       Height          =   375
  24.       Left            =   4560
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin MMControl mmMovie 
  30.       Height          =   375
  31.       Left            =   120
  32.       TabIndex        =   0
  33.       Top             =   120
  34.       Width           =   4215
  35.    End
  36. End
  37. Option Explicit
  38.  
  39. Sub cmdMovieExit_Click ()
  40.     Unload frmMovie
  41. End Sub
  42.  
  43. Sub Command1_Click ()
  44.     Unload frmMovie
  45. End Sub
  46.  
  47. Sub Form_Load ()
  48.     ' set properties
  49.     frmMovie.mmMovie.Notify = False
  50.     frmMovie.mmMovie.Wait = True
  51.     frmMovie.mmMovie.Shareable = False
  52.     frmMovie.mmMovie.DeviceType = "AVIVideo"
  53.     frmMovie.mmMovie.FileName = "\mmdemo\bird1.avi"
  54.     frmMovie.mmMovie.Command = "Open"
  55. End Sub
  56.  
  57.