使用VB.net 创建简单的TTS中英文混合语音朗读

最初的想法很简单，只是想弄个小程序可以实现单词朗读功能。我了解到TTS(Text-to-Speech)技术可以做到阅读文本文字，用的语音引擎是微软的Speech SAPI5.1 SDK，搜索一下，网络上大把文章谈到这个，还会告诉你下载地址，大小在60M以上。我的运行环境是xpSP2不需要再去下载。打开你的“控制面板”，打开“语音”，是不是看到了2个语音引擎？一个叫"Microsoft Simplified Chinese"，一个叫"Microsoft Sam"，OK，让我们设置"Microsoft Simplified Chinese"为默认值。

一切就绪，我们先在工程里引用saip.dll，这个文件在我的电脑里路径是C:/Program Files/Common Files/Microsoft Shared/Speech/saip.dll  (Written by HarryGlory .)

接下来，当然是引用了

Imports  SpeechLib

现在开始重头戏了，我们在Form1_Load事件里面写上：

             Dim  MyVoice  As   New  SpeechLib.SpVoice
             Dim  tmpStr  As   String
            tmpStr  =   " I love Chou！ "
            MyVoice.Speak(tmpStr, SpeechVoiceSpeakFlags.SVSFlagsAsync)

按下F5运行，马上出来结果了，有声音了，耶！简单吧？

什么？你听到的是一个一个字母读出来？试试把tmpStr改成中文 "我爱周星星！" 看看，是不是读出中文了？
但是你很执着，想读英文单词，那怎么办？
OK，让我们稍微改一下代码，如下：

             Dim  MyVoice  As   New  SpeechLib.SpVoice
             Dim  tmpStr  As   String
            tmpStr  =   " I love Chou！ "
            MyVoice.Voice  =  MyVoice.GetVoices([ String ].Empty, [ String ].Empty).Item( 1 )
            MyVoice.Speak(tmpStr, SpeechVoiceSpeakFlags.SVSFlagsAsync)

你再按F5运行一下。哇，真的可以耶~！太棒了！
你很聪明，知道了这里Item(0)表示中文朗读，Item(1)表示英文朗读。可是，怎么判断语音引擎呢？顺便设置一下音量啊。呵呵，可以这样做的：

             Dim  language  As   String   =   " MSSimplifiedChineseVoice "   ' 此处判断缺省语音引擎. 英文为 MSSam
            MyVoice.Volume  =   100   '