vb6如何使用微软的text-to-speech引擎.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 17 行

（ 主 持 人 注 ： 在 运 行 下 面 的 代 码 前 需 要 先 选 择 菜 单 “ 工 程 |引 用 ” ， 在 对 话 框 中 选 择 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>