practice9-11.frm

深圳大学的vb上机与教学的课件

VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form1 
   Caption         =   "播放avi文件"
   ClientHeight    =   1620
   ClientLeft      =   5520
   ClientTop       =   3750
   ClientWidth     =   2490
   LinkTopic       =   "Form1"
   ScaleHeight     =   1620
   ScaleWidth      =   2490
   Begin VB.PictureBox Picture1 
      Height          =   735
      Left            =   480
      ScaleHeight     =   675
      ScaleWidth      =   1515
      TabIndex        =   1
      Top             =   120
      Width           =   1575
   End
   Begin MCI.MMControl MMControl1 
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   1080
      Width           =   3540
      _ExtentX        =   6244
      _ExtentY        =   661
      _Version        =   393216
      DeviceType      =   ""
      FileName        =   ""
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub Form_Load()
   MMControl1.Visible = False      '第2步去掉这条语句
   MMControl1.RecordVisible = False
   MMControl1.EjectVisible = False
   MMControl1.DeviceType = "avivideo"
   MMControl1.FileName = App.Path & "\Findfile.avi"
   MMControl1.hWndDisplay = Picture1.hWnd
   MMControl1.Command = "open"
   MMControl1.Command = "play"
End Sub