求VB源码，怎样实现TTS朗读中文？

[huangwangman]

如题

[northwolves]

实现中文发音，必需先安装微软的Speech Application SDK（SASDK），下载地址：

http://www.microsoft.com/downloads/details.aspx?FamilyID=5e86ec97-40a7-453f-b0ee-6583171b4530&DisplayLang=en

[竹林听雨2005]

如果有相关的编译代码该有多好？我想楼主本意在此

[TechnoFantasy]

首先你需要下载微软的TTS中文引擎：
http://soft.mumayi.net/downinfo/2520.html

朗读的代码可以参考：
http://www.codechina.net/resource/html/2006-01/16/131960.html

[huangwangman]

Microsoft Speech SDK5.1和Language Pack我已经下载安装了,我的程序很简单,就是点击"朗读"按钮,开始朗读Text框中的文本,只用调用vtextauto.speak(text),但是只能朗读英文,无法朗读中文,请大家指出这是怎么回事,并给出源代码.
万分感谢!

[huangwangman]

谢谢已经搞定

[huangwangman]

请高手拔刀相助！
赶快现身！

[VBToy]

Option Explicit

Dim sph As SpVoice
Private Sub Command1_Click()
sph.Speak Text1.Text

End Sub

Private Sub Form_Load()
Dim t As SpObjectToken
Set sph = New SpVoice
For Each t In sph.GetVoices
Me.List1.AddItem t.GetDescription
Next
Set sph.Voice = sph.GetVoices.Item(1)

End Sub

Private Sub Form_Unload(Cancel As Integer)
Set sph = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click

End Sub