?? vb6如何使用微軟的text-to-speech引擎.txt
字號:
( 主 持 人 注 : 在 運 行 下 面 的 代 碼 前 需 要 先 選 擇 菜 單 “ 工 程 |引 用 ” , 在 對 話 框 中 選 擇 Voice Text Object Library。 )
Dim vText As New VTxtAuto.VTxtAuto
Private Sub Command1_Click()
Dim astr As String
Command1.Enabled = False
vText.Register vbNullString, "Rick"
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
(主 持 人 注 : 關 于 這 個 對 象 的 更 詳 細 介 紹 可 以 參 考 MSDN Libaray中 的 文 章 《 A High-Level Look at Text-to-Speech via the Microsoft Voice Text Object》 )
<END>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -