http://msdn.microsoft.com/code/sample.asp?url=/msdn-files/027/000/781/msdncompositedoc.xmlSpeech SDK 5.1 (68 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51.exe5.1 Language Pack (81.5 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51LangPack.exeRedistributables (128 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51MSM.exeDocumentation (2.28 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/sapi.chmOption 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 = "Hello World!"
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
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51.exe5.1 Language Pack (81.5 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51LangPack.exeRedistributables (128 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51MSM.exeDocumentation (2.28 MB)
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/sapi.chmOption 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 = "Hello World!"
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
用中文, 就得下 这个 语言包:
5.1 Language Pack (81.5 MB)
但是我的小猫太可怜了,这么大的软件几乎无法下载,据说CTTS.dll很不错,我既不知道它在哪里,也不知道怎么使用,哪位弟兄能够帮帮我?帮帮我?
还有,沙土的VB情报站也有,都忘记链接,我去找一下。
可以清晰朗读汉字,英文字母和数字的ActiveX控件
操作系统: | 文件大小: 3768KB | 星级评价:
沙土的VB情报站
有,就是上面的网址
有一个免费软件叫文本朗读精灵smartread,同时有开发包支持中文语音开发,不用下载150M的微软SDK