home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / DEMOS / VBMMDE / FRMMOVIE.FR_ / FRMMOVIE.FR (.txt)
Encoding:
Visual Basic Form  |  1994-02-16  |  1.4 KB  |  52 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. Option Explicit
  37. Sub cmdMovieExit_Click ()
  38.     Unload frmMovie
  39. End Sub
  40. Sub Command1_Click ()
  41.     Unload frmMovie
  42. End Sub
  43. Sub Form_Load ()
  44.     ' set properties
  45.     frmMovie.mmMovie.Notify = False
  46.     frmMovie.mmMovie.Wait = True
  47.     frmMovie.mmMovie.Shareable = False
  48.     frmMovie.mmMovie.DeviceType = "AVIVideo"
  49.     frmMovie.mmMovie.FileName = "\mmdemo\bird1.avi"
  50.     frmMovie.mmMovie.Command = "Open"
  51. End Sub
  52.