[原创]文本到语音示例数据库（源码）

esnake

Public Function SpeechText(ByVal cTextToRead As String) As Integer
    On Error GoTo ErrorHandler
    Dim oVoise As SpeechLib.SpVoice
    Set oVoise = New SpeechLib.SpVoice
    oVoise.Speak cTextToRead
    SpeechText = 1
    Exit Function

ErrorHandler:
    MsgBox err.Description & " (" & CStr(err.Number) & ")"
    SpeechText = 0
End Function


Sub tmp()
    MsgBox IIf(SpeechText("This is a testing information") = 1, "Success!", "Failing")
End Sub
10楼有示例

[此贴子已经被作者于2005-12-30 21:07:04编辑过]

yodong

Dim oVoise As SpeechLib.SpVoice
    Set oVoise = New SpeechLib.SpVoice
请问要引用部件?

esnake

要引用Microsoft Speech object library控件.

Office安装时应安装了文本到语音组件(TTS)

yodong

太好了,可不可以选女声音呀.和调节朗读速度呀?

[此贴子已经被作者于2005-12-29 14:48:12编辑过]

esnake

Dim oVoiseToken As SpeechLib.SpObjectToken
后面加一句

oVoise.Volume = 50

可以控制音量

esnake

oVoise.Rate = 1

可以控制速度,还没有找到选择女声的方法.

yodong

呵呵,谢谢!!

esnake

可以选女声，播放Wav

yodong

给大家拜年了!

谢谢esnake朋友,提供那么好的源码给大家!!

[此贴子已经被作者于2005-12-30 11:23:43编辑过]

esnake