Office中国论坛/Access中国论坛

标题: [原创]文本到语音示例数据库（源码） [打印本页]

作者: esnake 时间: 2005-12-29 20:35
标题: [原创]文本到语音示例数据库（源码）
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 时间: 2005-12-29 20:53
Dim oVoise As SpeechLib.SpVoice
Set oVoise = New SpeechLib.SpVoice
请问要引用部件?

作者: esnake 时间: 2005-12-29 21:24
要引用Microsoft Speech object library控件.

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

作者: yodong 时间: 2005-12-29 22:41
太好了,可不可以选女声音呀.和调节朗读速度呀?

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

作者: esnake 时间: 2005-12-30 00:58
Dim oVoiseToken As SpeechLib.SpObjectToken
后面加一句

oVoise.Volume = 50

可以控制音量

作者: esnake 时间: 2005-12-30 01:02
oVoise.Rate = 1

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

作者: yodong 时间: 2005-12-30 04:14
呵呵,谢谢!!

作者: esnake 时间: 2005-12-30 17:12
可以选女声，播放Wav

作者: yodong 时间: 2005-12-30 19:22
标题: 给大家拜年了!
[attach]15073[/attach]
给大家拜年了!

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

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

作者: esnake 时间: 2005-12-31 04:20
标题: 作了个示例
[attach]15090[/attach]

作者: 82077802 时间: 2006-1-12 01:03
我的电脑里没有Microsoft Speech object library控件，

能发一个吗？谢谢！

作者: chaojianan 时间: 2009-4-18 10:20
非常不错。谢谢。

作者: sunwrsun 时间: 2009-7-11 14:31
学习

作者: sunwrsun 时间: 2009-7-11 14:34
再学习

作者: chaojianan 时间: 2009-10-22 21:10
全部收藏了。

作者: xxiaoxin321 时间: 2009-10-23 07:59
学习！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)