home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / DEMOS / VBMMDE / FRMVIDEO.FR_ / FRMVIDEO.FR (.txt)
Encoding:
Visual Basic Form  |  1994-02-16  |  1.4 KB  |  49 lines
  1. VERSION 2.00
  2. Begin Form frmVideo 
  3.    BackColor       =   &H00400000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "MMDemo Video Player"
  6.    ClientHeight    =   645
  7.    ClientLeft      =   1560
  8.    ClientTop       =   5430
  9.    ClientWidth     =   5700
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   1050
  13.    Left            =   1500
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   645
  18.    ScaleWidth      =   5700
  19.    Top             =   5085
  20.    Width           =   5820
  21.    Begin CommandButton cmdVidExit 
  22.       Caption         =   "E&xit"
  23.       Height          =   375
  24.       Left            =   4560
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin MMControl mmVideo 
  30.       Height          =   375
  31.       Left            =   120
  32.       TabIndex        =   0
  33.       Top             =   120
  34.       Width           =   4215
  35.    End
  36. Option Explicit
  37. Sub cmdVidExit_Click ()
  38.     Unload frmVideo
  39. End Sub
  40. Sub Form_Load ()
  41.     ' set properties
  42.     frmVideo.mmVideo.Notify = False
  43.     frmVideo.mmVideo.Wait = True
  44.     frmVideo.mmVideo.Shareable = False
  45.     frmVideo.mmVideo.DeviceType = "AVIVideo"
  46.     frmVideo.mmVideo.FileName = "\mmdemo\earth.avi"
  47.     frmVideo.mmVideo.Command = "Open"
  48. End Sub
  49.