基于Visual Basic 6.0的VCD播放器的设计。

				VERSION 5.00
				Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
				Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
				Begin VB.Form FrmVCD播放器 
				   Caption         =   "VCD播放器"
				   ClientHeight    =   1620
				   ClientLeft      =   60
				   ClientTop       =   345
				   ClientWidth     =   4155
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   1620
				   ScaleWidth      =   4155
				   StartUpPosition =   3  '窗口缺省
				   Begin MSComDlg.CommonDialog CommonDialog1 
				      Left            =   3000
				      Top             =   960
				      _ExtentX        =   847
				      _ExtentY        =   847
				      _Version        =   393216
				   End
				   Begin MCI.MMControl MMControl1 
				      Height          =   495
				      Left            =   240
				      TabIndex        =   1
				      Top             =   240
				      Width           =   3615
				      _ExtentX        =   6376
				      _ExtentY        =   873
				      _Version        =   393216
				      DeviceType      =   ""
				      FileName        =   ""
				   End
				   Begin VB.CommandButton Command1 
				      Caption         =   "打开播放影象文件"
				      Height          =   495
				      Left            =   1200
				      TabIndex        =   0
				      Top             =   960
				      Width           =   1695
				   End
				End
				Attribute VB_Name = "FrmVCD播放器"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Command1_Click()
				    Dim RESPONSE As Integer
				    MMControl1.DeviceType = "MPEGVideo"
				    CommonDialog1.ShowOpen
				    MMControl1.FileName = CommonDialog1.FileName
				    MMControl1.Command = "Open"
				    MMControl1.Command = "play"
				End Sub
				
				Private Sub Form_Unload(Cancel As Integer)
				    MMControl1.Command = "close"
				End Sub
				
				Private Sub MMControl1_BackClick(Cancel As Integer)
				    Dim I As Integer
				    I = MMControl1.Position - 100
				    If I < 0 Then
				        MMControl1.From = 0
				    Else
				        MMControl1.From = 1
				    End If
				    MMControl1.Command = "play"
				End Sub
				
				Private Sub MMControl1_StepClick(Cancel As Integer)
				    Dim J As Integer
				    J = MMControl1.Position + 100
				    If J > MMControl1.Length Then
				        MMControl1.From = MMControl1.Length
				    Else
				        MMControl1.From = J
				    End If
				    MMControl1.Command = "play"
				End Sub