VB添加TTS语音合成

1，首先增加引用，在工程-引用中添加Microsoft Speech Object Library

2，在代码中添加Dim MyVoice As New SpeechLib.SpVoice

3，调用SpVoice输出语音合成MyVoice.Speak "我是中国人", SVSFlagsAsync

4，SpVoice成员函数说明:

HRESULT SetRate( long   RateAdjust); // 设置朗读速度，取值范围：-10到10       
HRESULT GetRate(long *pRateAdjust); // 获取朗读速度        
HRESULT SetVoice(ISpObjectToken   *pToken); // 设置使用的语音库        
HRESULT GetVoice(ISpObjectToken** ppToken); // 获取语音库        
HRESULT Pause ( void ); // 暂停朗读        
HRESULT Resume ( void ); // 恢复朗读        // 在当前朗读文本中根据lNumItems的符号向前或者向后跳过指定数量（lNumItems的绝对值）的句子。        
HRESULT Skip(LPCWSTR  *pItemType, long  lNumItems, ULONG *pulNumSkipped);        // 播放WAV文件        
HRESULT SpeakStream(IStream   *pStream, DWORD      dwFlags, ULONG     *pulStreamNumber);        // 将声音输出到WAV文件        
HRESULT SetOutput(IUnknown *pUnkOutput,BOOL fAllowFormatChanges);