下面代码可朗读英文我又下载了中文朗读库这个是下载地址
www.zy-english.com/download/chine.exe
下述代码引用的是Vtxtauto.tlb就能朗读英文,朗读中文要引用那个文件呢?
如何象下述代码一样能够实现使程序能够朗读中文呢?
Dim vText As New VTxtAuto.VTxtAuto
Private Sub Command1_Click()
Dim astr As String
Command1.Enabled = Fal
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
本文发布于:2022-10-11 22:54:09,感谢您对本站的认可!
本文链接:http://www.wtabcd.cn/fanwen/fan/78/255927.html
版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系,我们将在24小时内删除。
留言与评论(共有 0 条评论) |