微軟免費TTS 電腦語音宣告

請先到微軟網站下載 SDK(Speech SDK 5.1) 與 語音包(SpeechSDK51LangPack.exe)
Speech SDK 5.1

*再來請加入參考 Microsoft Speech Object Library，不然使用時會出現 SpeechLib.SpVoice未定義
(專案 > WindowsApplication1專案屬性 > 參考 > 加入 >COM > 勾選 Microsoft Speech Object Library


*撰寫程式
(建立一個TEXT元件與按鍵)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyVoice As New SpeechLib.SpVoice
Dim strData As String
strData = StrConv(TextBox1.Text, VbStrConv.SimplifiedChinese, 2052) '將繁體字轉換為簡體字並存為STRDATA的字串中
MyVoice.Speak(strData) '輸出字串的語音
End Sub