Text BOX 话音读取

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


[解决办法]