16,722
社区成员




Dim flag As SpeechVoiceSpeakFlags = SpeechVoiceSpeakFlags.SVSFlagsAsync
Dim voice As New SpVoice
voice.Voice = voice.GetVoices(String.Empty, String.Empty).Item(3)
Dim SpFileMode As SpeechStreamFileMode = SpeechStreamFileMode.SSFMCreateForWrite
Dim SpFileStream As New SpFileStream
SpFileStream.Open("C:\test.wav", SpFileMode, False)
voice.AudioOutputStream = SpFileStream
voice.Speak(TextBox1.Text.Trim(), flag)
voice.WaitUntilDone(Timeout.Infinite)
SpFileStream.Close()