Microsoft Speech SDK 5.1

下载   Microsoft   Speech   SDK   5.1   (内有文档及   VB6   例程)  
  最重要的是由于有了简体中文包,就可以说中文了:  
   
  http://msdn.microsoft.com/code/sample.asp?url=/msdn-files/027/000/781/msdncompositedoc.xml  
   
  Speech   SDK   5.1   (68   MB)    
  http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51.exe  
   
  5.1   Language   Pack   (81.5   MB)    
  http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51LangPack.exe  
   
  Redistributables   (128   MB)    
  http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51MSM.exe  
   
  Documentation   (2.28   MB)    
  http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/sapi.chm  
   
  Option   Explicit  
  Dim   WithEvents   x   As   SpeechLib.SpVoice  
  Private   Sub   Combo1_Click()  
  Set   x.Voice   =   x.GetVoices.Item(Combo1.ListIndex)  
  End   Sub  
  Private   Sub   Command1_Click()  
  If   VBA.Len(VBA.Trim(Text1.Text   &   ""))   >   0   Then  
      Command1.Enabled   =   False  
      x.Speak   Text1.Text   &   ""  
  End   If  
  End   Sub  
  Private   Sub   Form_Load()  
  Text1.Text   =   "你好!"  
  Set   x   =   New   SpeechLib.SpVoice  
  Dim   i   As   Long  
  For   i   =   0   To   x.GetVoices.Count   -   1  
          Combo1.AddItem   x.GetVoices.Item(i).GetDescription  
  Next   i  
  Combo1.ListIndex   =   0  
  End   Sub  
  Private   Sub   x_EndStream(ByVal   StreamNumber   As   Long,   ByVal   StreamPosition   As   Variant)  
  Command1.Enabled   =   True  
  End   Sub