Text BOX 语音读取
各位大哥哥大姐姐帮帮忙~
小弟接触VB 时间不长。
我做了计时提醒的软件,时间部分已经做完,就是一个语音读取不会了(完全不知道怎么做)
人员选择后显示在TEXT 1(中文) 上,30 分钟时间到了,用语音提示(语音读取TEXT 内容)。
语音文件我已经做好了。
大概的意思是:用语音读取TEXT 的内容
[解决办法]
google vb调用 tts
[解决办法]
工程引用ms speech object liaray
加人一下大妈:
Dim WithEvents x As SpeechLib.SpVoice
Private Sub Command1_Click()
Set x = New SpeechLib.SpVoice
x.Volume = 100
x.Rate = 4
x.AlertBoundary = SVESentenceBoundary
' x.Voice = 1
x.Speak "我们是好朋友,我们一起去看海", SVSFlagsAsync
x.GetAudioOutputs
End Sub
[解决办法]