下载 Microsoft Speech SDK 5.1 (内有文档及 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
转载于:https://www.cnblogs.com/vhtt/archive/2010/01/08/1642255.html