以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]语音朗读  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79304)
--  作者：zcgmxf
--  发布时间：2015/12/28 18:29:00
--  [求助]语音朗读
老师，我现在在计划管理设置了定时语音提醒，如果能直接选择已安装的固定语音库就不需要每台电脑设置。是否可以直接选择固定的语音库？谢谢！ 
 

Dim sp As New DotNetSpeech.SpVoice()
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(0)
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

[此贴子已经被作者于2015/12/28 18:29:37编辑过]
--  作者：大红袍
--  发布时间：2015/12/28 19:26:00
--  

每台电脑的语音库都不一样。你可以这样写

 

 

Dim sp As New DotNetSpeech.SpVoice()

For Each v As object In sp.getVoices
    If v.GetDescription Like "*Chinese*" Then
        sp.Voice  = v
        Exit For
    End If
Next
sp.Speak("I am from china.", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)