下載 ? Microsoft ? Speech ? SDK ? 5.1 ? (內(nèi)有文檔及 ? VB6 ? 例程) ?
? 最重要的是由于有了簡體中文包,就可以說中文了: ?
? ?
? http://msdn.microsoft.com/code/sample.asp?url=/msdn-files/027/000/781/msdncompositedoc.xml ?
? ?
? Speech ? SDK ? 5.1 ? (68 ? MB) ? ?
? http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51.exe ?
? ?
? 5.1 ? Language ? Pack ? (81.5 ? MB) ? ?
? http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51LangPack.exe ?
? ?
? Redistributables ? (128 ? MB) ? ?
? http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51MSM.exe ?
? ?
? Documentation ? (2.28 ? MB) ? ?
? http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/sapi.chm ?
? ?
? Option ? Explicit ?
? Dim ? WithEvents ? x ? As ? SpeechLib.SpVoice ?
? Private ? Sub ? Combo1_Click() ?
? Set ? x.Voice ? = ? x.GetVoices.Item(Combo1.ListIndex) ?
? End ? Sub ?
? Private ? Sub ? Command1_Click() ?
? If ? VBA.Len(VBA.Trim(Text1.Text ? & ? "")) ? > ? 0 ? Then ?
? ? ? Command1.Enabled ? = ? False ?
? ? ? x.Speak ? Text1.Text ? & ? "" ?
? End ? If ?
? End ? Sub ?
? Private ? Sub ? Form_Load() ?
? Text1.Text ? = ? "你好!" ?
? Set ? x ? = ? New ? SpeechLib.SpVoice ?
? Dim ? i ? As ? Long ?
? For ? i ? = ? 0 ? To ? x.GetVoices.Count ? - ? 1 ?
? ? ? ? ? Combo1.AddItem ? x.GetVoices.Item(i).GetDescription ?
? Next ? i ?
? Combo1.ListIndex ? = ? 0 ?
? End ? Sub ?
? Private ? Sub ? x_EndStream(ByVal ? StreamNumber ? As ? Long, ? ByVal ? StreamPosition ? As ? Variant) ?
? Command1.Enabled ? = ? True ?
? End ? Sub??

轉(zhuǎn)載于:https://www.cnblogs.com/vhtt/archive/2010/01/08/1642255.html

總結(jié)

以上是生活随笔為你收集整理的Microsoft Speech SDK 5.1的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。