普陀山到上海大巴:VB中怎样使电脑阅读文字?

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 07:32:49
用什么控件?(语音库文件我已经有了。)

首先引用“microsoft speech object library”,然后在程序中加入一个文本框text1(或者其它与文本相关的东西)和一个按钮command1,然后写入如下语句即可:
Private Sub Command1_Click()
Dim ld As SpVoice
Set ld = New SpeechLib.SpVoice
ld.Speak Text1.Text, SVSFDefault
End Sub