vb怎么调用系统tts朗读文本框里的内容？

先创建TTS对象，然后设置语言种类，设置音量，最后就是调用speak朗读文本框1中的内容，代码如下

Set objVoice = CreateObject("SAPI.SpVoice")

Set colVoice = objVoice.GetVoices()

objVoice.Volume = 100 

For i = 0 To colVoice.Count - 1 

  If Right(colVoice(i).Id, Len("MSSimplifiedChineseVoice")) = "MSSimplifiedChineseVoice" Then cnVoice =i

Next

Set objVoice.Voice = colVoice.Item(cnVoice)  

objVoice.Speak (text1.text)

laser_2008

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

现今市面上流行的一些英语学习软件，在广告词上经常说自己使用了国际顶尖的全程语音TTS技术，能进行整段英文的流利朗读，并能自由调节朗读的速度与频率等。那么，这个神奇的TTS究竟是什么东西呢？

其实，TTS是微软出品的一套文字朗读引擎（Text-To-Speech Engine)，这些英语软件就是调用它来进行英文朗读的。我们在英语学习软件的编程开发中也可使用TTS技术，下面笔者将利用Visual Basic 5.0来揭开TTS神秘的面纱。

一、安装TTS引擎

TTS引擎所需的Microsoft Text-to-Speech Engine与Microsoft Speech API软件都可到微软的站点去下载，也可以在“金山词霸2000”或“金山词霸.net”的安装光盘上找到（文件名为MSTTS.EXE与SPCHAPI.EXE)。安装了TTS引擎后，在Windows所在目录下会生成一个SPEECH目录，其中有一个Vtxtauto.tlb文件，在编程时我们需要调用它。

二、在VB中引入Vtxtauto.tlb文件

进入VB 5.0，执行选单命令“文件/新建工程/标准EXE”并确定，然后执行选单“工程”中的“引用”，单击“浏览”按钮到Windows目录下的SPEECH子目录，打开Vtxtauto.tlb文件，将“VoiceText 1.0 Type Library”添加到引用列表中，选中它并单击确定。将库Vtxtauto引入VB后，我们可以通过选单“视图”中的“对象浏览器”来了解它所封装的类，以及各类成员函数的属性的意义、使用格式等信息。一些主要的方法与属性意义,笔者在下面的源程序中将给出注释，在这里就不详细列出。

三、设置控件及属性

在FORM1上添加三个Label控件、一个TextBox控件、一个HScrollBar控件和六个CommandButton控件。窗体及各控件的主要属性设置如下：

FORM1：Caption=“英文朗读”

LABEL1：Caption=“请输入英文文档”

LABEL2：Caption=“朗读速度”

LABEL3：Caption=“ ”

（LABEL3标签用来显示朗读速度值）

TEXT1：Text=“Please input english text”；ToolTiptext=“请输入或粘贴英文文档”； MultiLine=True；ScrollBars=3-Both

HSCROLL1:名称=SpeedChange；Min=90；Max=300（Min与Max属性值分别用来限定可调节的语速的最小与最大值）

COMMAND1：名称=read；Caption=“朗读”

COMMAND2：名称=pause；Caption=“暂停”

COMMAND3：名称=stop；Caption=“停止”

COMMAND4：名称=prev；Caption=“上一句”

COMMAND5：名称=next；Caption=“下一句”

COMMAND6：名称=quit；Caption=“退出”

2007-11-5 03:53 PM laser_2008

四、编写代码

下面我们就可以一步步地编写代码，具体代码如下：

'在窗体装载时调用Register方法注册，括号内的两个参数是字符串

Private Sub Form_Load()

Call VTxtAuto.VTxtAuto.Register(Space(8), Space(8))

'因为语速的默认值为170，故水平滚动条的初值也设为170

SpeedChange.Value = 170

End Sub

'设置朗读速度调节代码,当水平滚动条的值Value发生变化时将其赋给控制语速的Speed属性

Private Sub SpeedChange_Change()

VTxtAuto.VTxtAuto.Speed=SpeedChange.Value

Label3.Caption = SpeedChange.Value

End Sub

'设置“朗读”按钮代码

Private Sub read_Click()

'如果朗读出错，则转到出错处理标记模块ErrorHandler

On Error GoTo ErrorHandler

'调用方法Speak进行朗读，第一个参数是要朗读的文本，第二个参数是设置朗读风格

Call VTxtAuto.VTxtAuto.speak(Trim(Text1.Text), vtxtsp_VERYHIGH + vtxtst_READING)

Exit Sub

ErrorHandler:

MsgBox "只能朗读英文文档，不能朗读汉字字符！", , "出错信息"

End Sub

'设置“暂停”按钮代码

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引擎是否安装的检测、增加从文本文件或数据库中读取文档的功能、增加让用户选择朗读的优先级和发声音量调节等功能。这些功能实现起来较为复杂，感兴趣的读者可进行深入研究。

2008-6-17 03:35 PM walefrt

语音朗读软件有:如WINDOWS自带的讲述人, 和第三方免费软件[url= http://cn.panopreter.com/][u]Panopreter中文版[/u][/url], 或[url= http://www.panopreter.com/][u]英文版[/u][/url

要使用小度语音的源代码，您需要遵循以下步骤进行设置：

1. 首先，在小度开放平台注册开发者账号，并创建自己的应用。

2. 在新建应用后，您可以查看小度语音SDK开发文档或者示例工程，了解如何集成小度语音SDK，以及具体代码实现方法。例如，小度语音SDK可以作为一个库文件或者集成到您的项目中，需要根据具体情况进行相关配置。

3. 对于Android项目，可以在build.gradle文件中，添加小度语音SDK的依赖库，例如：

```gradle

dependencies {

// 小度语音SDK依赖库

implementation 'com.baidu.dueros.bdossdk:bdossdk:1.1.0'

}

```

注意，这里的版本号可能随时变化，请根据您当前使用的版本进行相应的修改。

4. 在您的代码中，可以通过初始化、授权等 *** 作，启动和使用小度语音服务。例如：

```java

// 初始化小度语音SDK

BDSClientConfiguration config = new BDSClientConfiguration.Builder()

.setAuthExpireAfter(1000 * 60 * 30) // 设置授权过期时间

.setAppId("你的AppId") // 设置您自己的App ID

.setContext(getApplicationContext())

.build()

BDSClient bdsClient = new BDSClient(config)

// 授权小度语音SDK

bdsClient.authorize(new AuthorizationListener() {

@Override

public void onAuthorizationFinished(boolean isSuccess, String accessToken, String errorMsg) {

if (isSuccess) {

// 启动小度语音服务

SpeechRecognizer speechRecognizer = new SpeechRecognizer(getApplicationContext(), new Handler())

speechRecognizer.connect(new SpeechListener() {

@Override

public void onConnectDone(boolean isSuccess, String message) {

if (isSuccess) {

// 开始执行语音 *** 作，例如开始录音

speechRecognizer.start()

}

}

})

} else {

Log.e(TAG, "Failed to authorize bdsClient: " + errorMsg)

}

}

})

```

以上代码仅作为示例参考，只有在完成SDK集成之后，才能正确使用小度语音服务。您需要结合开发文档和具体实现，详细学习和了解如何使用小度语音源代码。

---