在我們的程式中讓電腦說英語

       隨著電腦多媒體技術的發展，讓電腦唱歌說話已經不是什麼新鮮事了。但是能不能在我們自己編寫的軟體中讓電腦朗讀文本資訊呢？微軟公司開發的一套文字朗讀引擎(Text-To-Speech Engine，簡稱 TTS)使我們這一功能的實現變得易如反掌。只要您安裝了“金山詞霸2000”(或“金山詞霸.net”)，那麼在 Windows 檔案夾下會產生一個 Speech 檔案夾，裡面的 VTXTAUTO.TLB 檔案就包含了有關的類型庫和函數，我們完全可以在我們的程式中調用它們，使電腦開口說話。TTS 包含在“金山詞霸”的安裝盤上，檔案名稱為 mstts.exe 和 spchapi.exe。要在 VB 程式中調用 TTS，必須首先引用 VTXTAUTO.TLB 檔案中的“VoiceText 1.0 Type Library”類型庫，方法是執行“工程/引用”，再點擊“瀏覽”按鈕，找到檔案 /Windows/Speech/VTXTAUTO.TLB，將它添加到應用列表中，然後選中它，按“確定”按鈕。這時可以按 F2 鍵開啟“物件瀏覽器”查看 Vtxtauto 對象的有關參數。
    然後鍵入以下代碼，執行它，電腦就可以說話了：
    Option Explicit
    Private Sub Form_Load()
      Call VTxtAuto.VTxtAuto.Register(Space(1), Space(1)) '註冊
      VTxtAuto.VTxtAuto.Speed = 170 '設定語速（170 為正常語速,值越小語速越慢）
      Dim strTxt
      strTxt = "I'm a chinese. I love my motherland very much."
      On Error GoTo ErrorHand
      Call VTxtAuto.VTxtAuto.Speak(strTxt, vtxtsp_VERYHIGH + vtxtst_READING)
      MsgBox "OK!"
      End
      ErrorHand:
      '錯誤處理語句
      End
    End Sub
    美中不足的是微軟的這套文字朗讀引擎只能讓電腦朗讀英文。相信大家和我一樣，盼望著國產的、技術成熟的漢語朗讀軟體的出現。

                                             張慶 zhangking@263.net 
                                                   http://www.why100000.com
                                                            2003.1.24