frmvideo.frm

自动售药系统

VERSION 5.00
Object = "{05589FA0-C356-11CE-BF01-00AA0055595A}#2.0#0"; "Amovie.ocx"
Begin VB.Form FrmVideo 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1140
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   2280
   LinkTopic       =   "Form1"
   ScaleHeight     =   1140
   ScaleWidth      =   2280
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin AMovieCtl.ActiveMovie ActiveMovie1 
      Height          =   375
      Left            =   600
      TabIndex        =   1
      Top             =   720
      Visible         =   0   'False
      Width           =   975
      _ExtentX        =   1720
      _ExtentY        =   661
      FullScreenMode  =   -1  'True
      AutoStart       =   -1  'True
      BorderStyle     =   0
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   240
      Visible         =   0   'False
      Width           =   1335
   End
End
Attribute VB_Name = "FrmVideo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub ActiveMovie1_Click()
'Me.ActiveMovie1.FullScreenMode = Not Me.ActiveMovie1.FullScreenMode
'Me.ActiveMovie1.Pause
'Me.ActiveMovie1.Run
Unload Me
End Sub


Private Sub ActiveMovie1_DisplayModeChange()
Unload Me
End Sub

Private Sub ActiveMovie1_OpenComplete()
Me.ActiveMovie1.FullScreenMode = Not Me.ActiveMovie1.FullScreenMode
End Sub

Private Sub Command1_Click()
Unload Me
End Sub



Private Sub Form_Load()

Me.ActiveMovie1.FileName = App.Path & "\2.wmv"
'Me.ActiveMovie1.Run

Me.ActiveMovie1.MovieWindowSize = amvDoubleOriginalSize

'Me.ActiveMovie1.FullScreenMode = Not Me.ActiveMovie1.FullScreenMode

End Sub