Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim sp As New DotNetSpeech.SpVoice()
Dim vl As String = e.Form.Controls("txtContent").Value \'获得要朗读的文本
sp.Rate = e.Form.Controls("boxSpeed").Value \'设置语速
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) \'选择语音库
Dim Stream As new DotNetSpeech.SpFileStreamClass()
Stream.Open("C:\\Documents and Settings\\All Users\\桌面\\d.wav", DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
sp.AudioOutputStream = Stream
sp.Speak(vl,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
Stream.Close()

上面的代码直接在桌面上生成一个d.wav的文件，但是，我现在想要用保存对话框，自定义存储位置，及文件名。查到了这个SaveFileDialog 但是不晓得如何才能把上面的录音保存下来，求助各老师！谢谢了

下面是我查到的savefiledialog用法，但是还是不明白如何调用。

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "wav|*.wav" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If

将原来的路径改成dlg.FileName就可以了吧。

Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim sp As New DotNetSpeech.SpVoice()
Dim vl As String = e.Form.Controls("txtContent").Value \'获得要朗读的文本
sp.Rate = e.Form.Controls("boxSpeed").Value \'设置语速
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) \'选择语音库
Dim Stream As new DotNetSpeech.SpFileStreamClass()
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "wav|*.wav" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Stream.Open(dlg.FileName, DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
End If
sp.AudioOutputStream = Stream
sp.Speak(vl,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
Stream.Close()