包含ttsvb.net的词条( 三 ) _调用

进入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 = https://www.04ip.com/post/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

包含ttsvb.net的词条( 三 )

推荐阅读

李英仁哇咔咔人生整理心药（奔命的你请卸下盔甲和面具，给自己一个反手的拥抱）

婚外情男人的六个阶段男人容易放下婚外情吗

cpu导热硅脂

iqoo|红米10X和荣耀X10以及Z1都是5G手机，应该选择哪个更好

2020交通事故赔偿明细一览表

东风起亚k3首付多少钱_起亚k3首付多少钱

怎么看冬枣熟没熟

警犬哪个品种好

6030杂碎发现

月腮的拼音腮怎么读

中华的华怎么组词华怎么组词

芯片问题终于解决,华为新机 Mate 40月底正式发布,你怎么看？

唐立淇2023星座运势唐立淇每日星座运势

办公室如何切西瓜影音

怎么做电子版照片电脑怎么做电子版照片

粽子煮多长时间能煮熟？高压锅煮粽子需要多长时间

阆苑仙葩指的是阆苑仙葩的简介

美的空调温度校准,多半是这些方面导致

机皇|机皇还是“圾皇”，荣耀Play新机下个月发布，全系标配超级快充

详解L351清零的操作步骤 L351清零