1,486
社区成员
发帖
与我相关
我的任务
分享高分请教熟悉TTS(TextToSpeech)的朋友
高分请教熟悉TTS(TextToSpeech)的朋友
使用VTxtAuto虽然可以朗读，但是无法对语音库进行选择。如何才能选择语音库呢？
比如默认是女声朗读，如果我想使用男声朗读，应该怎么办？
非常感谢。
使用VTxtAuto虽然可以朗读，但是无法对语音库进行选择。如何才能选择语音库呢？
比如默认是女声朗读，如果我想使用男声朗读，应该怎么办？
非常感谢。
...全文
请发表友善的回复…
发表回复
hxy2003 2003-08-22
- 打赏
- 举报
UP
jornet 2003-08-21
- 打赏
- 举报
看下agent的资料，里面 有很多 相关的，因为 这两个通常 都组合起来用
TechnoFantasy 2003-08-21
- 打赏
- 举报
首先需要引用 Microsoft Voice Text，点击command1将所有的角色在combo1中列出
点击command2根据选择的角色发音。
点击command2根据选择的角色发音。
TechnoFantasy 2003-08-21
- 打赏
- 举报
Dim x As New HTTSLib.TextToSpeech
Private Sub Command1_Click()
Dim i
For i = 0 To x.CountEngines
'x.CurrentMode = i
Combo1.AddItem x.ModeName(i)
Next i
End Sub
Private Sub Command2_Click()
x.CurrentMode = Combo1.ListIndex
x.Speak "hello world"
End Sub
Private Sub Command1_Click()
Dim i
For i = 0 To x.CountEngines
'x.CurrentMode = i
Combo1.AddItem x.ModeName(i)
Next i
End Sub
Private Sub Command2_Click()
x.CurrentMode = Combo1.ListIndex
x.Speak "hello world"
End Sub
