vb热心人进！

Private Sub Command1_Click()
On Error GoTo error1
fn = "所有格式(*.dat,*.mpg,*.mpeg,*.mpga,*.avi,*.mp3,*.wav)"
fn = fn + "|*.dat;*.mpg;*.mpeg;*.mpga;*.avi;*.mp3;*.wav"
fn = fn + "|VCD文件(*.dat)|*.dat"
fn = fn + "|数字压缩视频标准(*.mpg,*.mpeg,*.mpga,*.mp3)"
fn = fn + "|*.mpg;*.mpeg;*.mpga;*.mp3"
fn = fn + "|Windows音视频(*.wav,*.avi)|*.wav;*.avi"
fn = fn + "|所有文件(*.*)|*.*"
CommonDialog1.Filter = fn
CommonDialog1.DialogTitle = "打开多媒体文件"
CommonDialog1.ShowOpen
MediaPlayer1.FileName = CommonDialog1.FileName
MediaPlayer1.AutoStart = True
error1:
End Sub

Private Sub Command2_Click()
MediaPlayer1.FileName = ""
MediaPlayer1.AutoStart = False
End Sub

Private Sub Command3_Click()
MediaPlayer1.AboutBox
End Sub

Private Sub Form_Resize

vb热心人进！ 高中题,热心人进`` 儋州的热心人进！！！ 网吧机子问题，热心人进！ 好心人 善良人 热心人 进 关于合肥的燃油助力车^^^^^热心人进^^^^^^^^^^^^^^^^ IT业的精英们，热心人进~~！ 求救！！！妇科专家进，热心人进，着急啊！！！ 有些WORD的简单问题想请教，热心人进 关于摩托E2刷机的众多问题，热心人进