阿库拉3核潜艇:vb小问题高手来指点下12

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 06:29:31
下面代码可朗读英文我又下载了中文朗读库这个是下载地址
http://www.zy-english.com/download/chinese.exe
下述代码引用的是Vtxtauto.tlb就能朗读英文,朗读中文要引用那个文件呢?
如何象下述代码一样能够实现使程序能够朗读中文呢?
Dim vText As New VTxtAuto.VTxtAuto

Private Sub Command1_Click()
Dim astr As String

Command1.Enabled = False
vText.Register vbNullString, "Speech"
'vtext.Register
astr = "This is a sample of Microsoft Speech Engine?"
vText.Speak astr, vtxtsp_NORMAL Or vtxtst_QUESTION
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set vText = Nothing
End Sub