所谓让文本发声是指将文本的内容变成声音输出，即让计算机读出文本的内容。这个功能在实际的教学工作中无疑是很有用的。在Office XP的Excel中，就有“从文本到语音”的功能，但必须在Excel环境下才能实现，这就给我们应用该功能带来了不便。由此，笔者考虑能否开发出脱离Excel环境，让任意文本都会发声的程序。通过实践，笔者用VB6．0开发了“文本朗读”的程序。下面对开发过程做一简单的介绍。
1．总体思路
先建立一个标准EXE工程，在窗体上建立三个命令按钮控件、一个通用对话框控件和一个Richtextbox控件，然后通过[打开文件]按钮的触发事件，选择要朗读的文本文件，把文本内容输出到Richtextbox框中，再通过[开始朗读]按钮触发事件，同时调用Excel对象的语音方案，将Richtextbox框中的文本全部朗读出来。
2．准备工作
首先要在计算机上安装好Office XP，在安装过程中要将语音功能安装上。然后利用“控制面板”上的“语音”项目展开“语音属性”对话框，进行语言的选择，在下拉框中选择“Microsoft Simplified Chinese”，即选择中文语音功能，否则，只能读出英文而读不出中文。还可以在此对话框中设置计算机生成的不同语音以及语音速度。
其次，在VB6.0中，要引用通用对话框和Richtextbox两个部件。
3．对话框和控件的创建
(1)建立一个标准EXE工程，命名为“Txtsound”，对话框命名为“Frmsound”。
(2)在对话框上布置一个Richtextbox控件和标签控件，名称分别为Richt和LeBT。
(3)再在对话框上添加三个命令按钮，第一个是[打开文件]按钮，命名为CmdOpen；第二个是[开始朗读]按钮，命名为CmdRead；第三个是[退出]按钮，命名为CmdExit。
(4)最后在对话框上添加一个通用对话框，命名为ComD，其Filter属性设为“.txt,.rtf”。
4．命令按钮的事件代码
(1)[打开文件]按钮，用于获得文本内容，其鼠标单击事件如下：
Private Sub CmdOPEN _Click()
ComD1.ShowOpen #打开“打开文件”对话框
filename=CommonDialog1.filename #获取选中的文件名
RichT.LoadFile filename,rtfText #把文件的文本内容输出到文本框
End Sub
(2)[开始朗读]按钮，用于调用Excel对象的语音方法，并读出文本框中的文本内容，其鼠标单击事件如下：
Private Sub CmdRead _Click()
Set myobject=CreateObject("excel.application") #定义一个Excel对象
myobject.speech.speak RichT.Text #朗读文本内容
End Sub
(3)[退出]按钮，用于关闭对话框，退出朗读程序，其鼠标单击事件如下：
Private Sub CmdExit _Click()
FRMSOUND.close #关闭对话框，结束程序。
相关视频
相关阅读 wpsoffice是什么意思有什么用office快捷键大全 office快捷键一览表办公室任务全成就及达成条件列表一览 办公室任务有什么成就wps表格怎么启用宏 wps表格宏怎么用Office2016 Mac版太大了怎么办?Office2016 Mac版占用存储空间过大苹果系统10.11.1Office2016激活失败怎么办?Mac系统Ofiice激活问题OS X El Capitan 10.11.1更新 修复Office兼容性问题Office 2016 Mac版安装失败怎么办？
热门文章
Office 365安装试用图
最新文章
Office 365安装试用图
快速切换ribbon界面功
部分Office 15 早期图像抢先曝光你知道office 2007有哪些组件吗为大家收集的一些经典的Word2010小技巧快速切换ribbon界面功能区中的Office2010功
人气排行 ppt文档播放时没有声音解决方法如何让插入的PPT音乐在幻灯片切换后同时播放ppt不能播放flash怎么办Excel单元格文字显示不全怎么办如何把PDF文档转换成Word的方法如何批量删除Word2010文档中所有批注增加PPT内置音效的方法PPT2010动画和转换设计幻灯片
查看所有0条评论>>