主题：[求助] 如何可以将朗读结果录制为一个wav文件

 做一个按钮

Dim dlg As new SaveFileDialog
dlg.Filter = "语音|*.wav"
If dlg.ShowDialog = DialogResult.OK Then
    Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
    Dim vl As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
    Speaker.Rate = e.Form.Controls("boxSpeed").Value '设置语速
    Speaker.Voice = Speaker.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) '选择语音库
    Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) '停止之前的朗读
   
    Dim Stream As new DotNetSpeech.SpFileStreamClass()
    Stream.Open(dlg.FileName, DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
    Speaker.AudioOutputStream = Stream
   
    If  e.Form.Controls("rdoAsync").Checked Then
        Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) '异步朗读
    Else
        Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) '同步朗读
    End If
    Stream.Close()
End If

哦，不能用异步，必须用同步

Dim dlg As new SaveFileDialog
dlg.Filter = "语音|*.wav"
If dlg.ShowDialog = DialogResult.OK Then
    Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
    Dim vl As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
    Speaker.Rate = e.Form.Controls("boxSpeed").Value '设置语速
    Speaker.Voice = Speaker.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) '选择语音库
    Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) '停止之前的朗读
   
    Dim Stream As new DotNetSpeech.SpFileStreamClass()
    Stream.Open(dlg.FileName, DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
    Speaker.AudioOutputStream = Stream
   
   
    Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) '同步朗读
    Stream.Close()
End If

 试听，第一行，加上

speaker = New DotNetSpeech.SpVoice()