概述
下面代碼可朗讀英文我又下載了中文朗讀庫這個是下載地址
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