如何播放MP3文件中指定的某一段?

Question

我想播放一个MP3文件中的某一段（如第10秒到第50秒这段）,请尽量祥细些。

Answer 1

我刚用控件作了一段。
1、注册Mp3play.ocx控件
2、播放
   Private Sub play_Click()
       a = Mp3Play.Open("C:\Word.MP3", ″″)   
       a = Mp3Play.Authorize("ufo2000", "1208686909")   '注册
    
       start = Timer  '系统时间(秒)
       Mp3Play.play
       ''返回当前播放的帧位置，声音开始为秒
       Mp3Play.Seek (Int(声音开始 * 1000 / Me.Mp3Play.MsPerFrame))  
   End Sub
3、检查时间是否到。如果时间到则停止播放。
   Private Sub Form_Timer()
       If Timer - start >= 声音结束 - 声音开始 Then
           Mp3Play.Close   '关闭
       End If
   End Sub