谁知道:在vb中怎样播放某wav文件的其中一段?

Question

新建一个模块
Option Explicit
Public Declare Function mciSendString& Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)
Public RetVal As Long
public ErrStr As String * 256
Public CmdStr As String
在form_load中加入
CmdStr = "Open " + "filename.wav" + " type waveaudio alias voice"
RetVal = mciSendString(CmdStr, ErrStr, 0, 0)
RetVal = mciSendString("play voice  from X毫秒 to  Y毫秒" & strwait, ErrStr, 0, 0)在unload中加入
CmdStr = "Close voice"
RetVal = mciSendString(CmdStr, 0&, 0, 0)

Answer 1

'再搞一个用控件Private Sub Form_Load()
MMControl1.TimeFormat = 0
MMControl1.DeviceType = "waveaudio"
MMControl1.FileName = "filename.wav"
MMControl1.Command = "open"
End SubPrivate Sub Command1_Click()
MMControl1.From = X毫秒:
MMControl1.To = Y毫秒
MMControl1.Command = "play"
End Sub

Answer 2

用wav编辑软件测定位置，去找一下，很多的
本来我硬盘上有，一下子找不到