vb简单播放器报错438

来源：百度知道 编辑：UC知道 时间：2024/09/21 15:30:14
以下是播放器的代码：
不知道怎么回事，老是报错误 实时错误 438

Option Explicit
Dim playfilename As String
Dim playposition As Double

Private Sub Command1_Click()
Command1.Enabled = False
MediaPlayer1.pause
playposition = MediaPlayer1.currentPosition
End Sub

Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.FileName = playfilename
MediaPlayer1.SelectionStart = playposition
MediaPlayer1.play
End Sub

Private Sub Command3_Click()
playposition = 0
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
MediaPlayer1.stop
End Sub

Private Sub Command4_Click()
CommonDialog1.ShowOpen
playfilename = CommonDialog1.FileName
playposition = 0
End Sub

Private Sub Command5_Click()
Unload Me
End
End Sub
当单击 Command

Option Explicit
Dim playfilename As String '定义播放文件的名称
Dim playposition As Double '定义当前播放的位置

Private Sub exit_Click()
Unload Me '卸载窗口
End '结束程序
End Sub

Private Sub openfile_Click()
CommonDialog1.ShowOpen '打开文件对话框
playfilename = CommonDialog1.FileName
playposition = 0 '第一次打开文件时候，播放位置为0
playfile_Click '打开后立即播放
End Sub

Private Sub pausefile_Click()
pausefile.Enabled = False '暂停按键失效
WindowsMediaPlayer1.Controls.pause '暂停播放
playposition = WindowsMediaPlayer1.Controls.currentPosition '当前播放位置

End Sub

Private Sub playfile_Click()
pausefile.Enabled = True '暂停按键有效
stopfile.Enabled = True '停止按键有效
WindowsMediaPlayer1.URL = playfilename '播放媒体文件名称
WindowsMediaPlayer1.Controls.c