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

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编辑过]

xxiaoxin321

学习！

chaojianan

全部收藏了。

sunwrsun

再学习

sunwrsun

学习

chaojianan

非常不错。谢谢。

82077802

我的电脑里没有Microsoft Speech object library控件，



能发一个吗？谢谢！

esnake

yodong

给大家拜年了!

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

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

esnake

可以选女声，播放Wav