现在用光盘发行的游戏，有很多以后辍名为.MID和.WAV形式存放的多媒体声
音和音乐文件，为了欣赏这些精彩的乐曲，一般是用WINDOWS附件组中的媒体播放
器或其他的应用程序来打开它们：单击“文件”菜单，选“打开”项，程序弹出
“打开文件”对话盒，再选文件类型、驱动器、目录、文件，确认后，再单击
“放音”。操作规范但是繁琐无聊，如果是听少量几个文件尚可，文件多了便有
不胜其烦之感。笔者接触了Visual Basic 3.0后 ，用其编制了一个多媒体点播机，
界面美观、操作快捷高效，用鼠标单击文件名即可放音，还可下拉光标键实现连续
放音。（窗体中的控制布局图及设置后的界面图从略）。
MYPLAY.FRM
D:WINDOWS\SYSTEM\MCI.VBX
ProjWinSize=342,426,248,215
ProjWinShow=2
IconForm=″Forml″
Title=″多媒体点播机″
ExeName=″MYPLAY.EXE″
Sub Commmand2_Click()
End Sub
Sub Dirl_Change()
MMControl1.DeviceType = "waveaudio"
If optionl.value <> 0 Then
MMControl1.DeviceType = "seqencer"
End If
MMControl1.UpdateInterval = 0
If Not MMControl1.Mode = 524 Then
MMControl1.Command = "close"
End If
If Right(file.Path, 1) <> "\" Then
MMControl1.FileName = file.Path ＆ "\" ＆ file1.FileName
Else
MMControl1.FileName = file.Path ＆ file1.FileName
End If
MMControl1.Commmand = "open"
label6.Caption = MMControl1.FileNane
MMControl1.Command = "play"
End Sub
Sub MMControl1_PauseClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
End Sub
Sub MMControl1_playclick(Cancel As Integer)
MMControl1.UpdateInterval = 50
End Sub
Sub MMControl1_PrevClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
MMControl1.Command = "prev"
End Sub
Sub MMContrlo1_StatusUpdate()
If Not MMControl1.Mode = 526 Then
MMControl1.UpdateInterval = 0
End If
End Sub