暂停按钮的单击功能不正常???

[yuanyiok]

Option Explicit
Dim filename As String '用于记录播放的文件名
Dim b As Double '用于记录播放的进度




Private Sub Command1_Click()
Command1.Enabled = False 'COMMAND1为暂停按钮
MediaPlayer1.Pause
b = MediaPlayer1.CurrentPosition

End Sub

Private Sub Command2_Click()
'COMMAND2为播放按钮
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.filename = filename
MediaPlayer1.SelectionStart = b
MediaPlayer1.Play
End Sub

Private Sub Command3_Click()
'COMMAND3为停止按钮
b = 0
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
MediaPlayer1.Stop

End Sub

Private Sub Command4_Click()
'COMMAND4为打开对话框的按钮
CommonDialog1.ShowOpen
filename = CommonDialog1.filename
b = 0
'因为是第一次播放，所以要让播放进度为0
End Sub

Private Sub Command5_Click()
'COMMAND5为结束程序的按钮
Unload Me
End
End Sub

在以上的代码中，暂停按钮的单击功能不正常，当播放媒体文件时，如单击暂停，再单击播放，应该从刚才停止的地方继续播放。但是本程序中会从头播放。其实本例中的暂停相当于停止按钮。问题出在哪？请朋友们提出意见。

[JYQing]

将 MediaPlayer1.SelectionStart = b 改为 MediaPlayer1.CurrentPosition = b