文本录音按钮:
Dim Voice As new DotNetSpeech.SpVoice()
Dim st As String = e.Form.Controls("txtContent").Value '获得要朗读的文本
Dim Stream As new DotNetSpeech.SpFileStreamClass()
Dim dlg As New SaveFileDialog '定一个新的SaveFileDialog
dlg.Filter= "Wav文件|*.wav" '设置筛选器
Dim ss As String
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
ss = dlg.FileName
Stream.Open(ss,DotNetSpeech.SpeechStreamFileMode.SSFMCreateForWrite, False)
Voice.AudioOutputStream = Stream
Voice.Voice = Voice.GetVoices("", "").Item(0)
Voice.Speak(st,DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault Or DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
Stream.Close()
messagebox.show("录音完成!")
End If
有两个项目都设置以上代码在WinXP正常,只有一个项目在Win7下点击“文本录音”按钮,直接退出系统没有任何提示,而另一项目同样的代码又正常,百思不得其解!奇怪?