在VB中使用文字朗读引擎（TTS）技术

钮代码

　　Private Sub pause_Click()

　　If VTxtAuto.VTxtAuto.IsSpeaking Then

　　''如果属性IsSpeaking为真，则表示正在朗读，调用AudioPause方法暂停朗读

　　Call VTxtAuto.VTxtAuto.AudioPause

　　pause.Caption = "恢复"

　　Else

　　''如果已经处于暂停状态则调用AudioResume方法恢复朗读

　　Call VTxtAuto.VTxtAuto.AudioResume

　　pause.Caption = "暂停"

　　End If

　　End Sub

　　''设置“停止”按钮代码，调用StopSpeaking方法停止当前朗读

　　Private Sub stop_Click()

　　Call VTxtAuto.VTxtAuto.StopSpeaking

　　End Sub

　　''设置“上一句”按钮代码，调用AudioRewind方法往后跳过一句

　　Private Sub prev_Click()

　　 Call VTxtAuto.VTxtAuto.AudioRewind

　　End Sub

　　''设置“下一句”按钮代码，调用AudioFastForward方法向前跳过一句

　　Private Sub next_Click()

　　 Call VTxtAuto.VTxtAuto.AudioFastForward

　　End Sub

　　''设置“退出”按钮代码

　　Private Sub quit_Click()

　　 Unload Me

　　End Sub

　　本程序在中文Windows 95/98、VB 5.0环境下运行通过。运行时在文本编辑框中输入或粘贴英文文档，然后单击“朗读”按钮就可播放读音。
　　五、程序改进思路
　　本文对在VB编程中使用TTS技术只是起个抛砖引玉的作用，熟悉VB编程的电脑爱好者来可以对本程序作一些改进，例如增加对声卡和TTS引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂，感兴趣的读者可进行深入研究。