这是我写的一个mp3播放器，但快进和快退为什么不能用呢？


Private Sub Form_Load()
pause.Visible = False
play.Visible = False

End Sub
Private Sub open_Click()
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "请选择要播放的文件"
CommonDialog1.Filter = "mp3|*.mp3|wma|*.wma"
CommonDialog1.ShowOpen
Dim ss As String
If CommonDialog1.FileName <> "" Then
    ss = CommonDialog1.FileName
    WindowsMediaPlayer1.URL = ss
End If
Label1.Caption = "当前播放：" & WindowsMediaPlayer1.currentMedia.Name
pause.Visible = True
pause.Caption = "暂停"
End Sub

Private Sub stop_Click()
WindowsMediaPlayer1.Controls.stop
pause.Visible = False
play.Visible = False
Label1.Caption = ""
End Sub

Private Sub pause_Click()
WindowsMediaPlayer1.Controls.pause
play.Visible = True
pause.Visible = False
End Sub

Private Sub play_Click()
WindowsMediaPlayer1.Controls.play
play.Visible = False
pause.Visible = True
End Sub


Private Sub fastReverse_Click()
WindowsMediaPlayer1.Controls.fastReverse
End Sub

Private Sub fastFoward_Click()
WindowsMediaPlayer1.Controls.currentPosition = WindowsMediaPlayer1.Controls.currentPosition + 10
End Sub

红色的代码应该是没有错误的吧，但为什么不能用呢？？？

怎么没有人来给我看看呢，大侠在哪里！

Media player 控件真没怎么用过
估计播放可以用，后退应该可以
快进键写的是定位点代码，不是快进
快进，快退，是不是在播放后才有效？

'快进
Private Sub fastFoward_Click()
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition + 10
End With
End Sub


'快退
Private Sub fastReverse_Click()
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition - 10
End With
End Sub

媒体播放器很多，但是定制的广告令人生厌，还是自己动手做一个和WindowsMediaPlayer播放器效果一样的吧，直接用微软提供的WindowsMediaPlayer控件就可以，下边简单介绍一下WindowsMediaPlayer控件的用法。这里用VB开发，用VC任然是一样的，只不过VC中进行类操作，属性和方法的使用是完全一样，下边只列出部分功能，以起抛砖引玉的作用。有兴趣的朋友可以继续完善哦！
制作步骤：
一、控件添加
这是必须的，VB中在工具箱中点击右键添加，选中WindowsMediaPlayer，然后工具箱中会出现一个我们非常熟悉的WindowsMediaPlayer图标。
二、界面
在工具箱里添加WindowsMediaPlayer控件，然后新建一个窗体，将WindowsMediaPlayer控件加进去，可以用控件按钮（打开、播放、暂停、停止等），也可以自己设计（如本文中）。
三、添加代码如下

Dim flag As Boolean
Private Sub Form_Load()
With WindowsMediaPlayer1
.uiMode = "full"
End With
End Sub
'播放暂停
Private Sub Command1_Click()
flag = Not flag
With WindowsMediaPlayer1
If flag = True Then
Command1.Caption = "pause"
.Controls.Play
Else
Command1.Caption = "play"
.Controls.pause
End If
End With
End Sub
'停止
Private Sub Command2_Click()
With WindowsMediaPlayer1
.Controls.Stop
End With
End Sub
Private Sub Command4_Click() '打开文件
With CommonDialog1
' .Filter = "avi (*.avi)|*.avi"
.ShowOpen
End With
With WindowsMediaPlayer1
' .URL = App.Path + "\017 喜欢你没道理张韶涵.mp3"
.Controls.Stop
End With
'快进
Private Sub Command3_Click()
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition + 10
End With
End Sub
'快退
Private Sub Command5_Click()
With WindowsMediaPlayer1
.Controls.currentPosition = .Controls.currentPosition - 10
End With
End Sub

[ 本帖最后由 yuma 于 2012-7-1 19:35 编辑 ]