Private PCspeak1 As New SpVoice
Private m_speakFlags As SpeechVoiceSpeakFlags '定义
Private Sub Command1_Click()
DoEvents
PCspeak1.Speak Text1.Text, m_speakFlags
End Sub
已引用microsoft speech过程
'************************
'该模块存放语音自定义函数
'************************
Option Explicit
'直接调用引用的SAPI来执行读,读的过程中程序假死
Dim Voice As New SpVoice '定义前需要引用语音功能sapi.dll动态库里的microsoft speech过程
Public Sub 语音读(内容 As String) '语音读内容
Voice.Rate = 1 '速度
Voice.Speak 内容, SVSFlagsAsync 'SVSFlagsAsync阅读方式为独立线程
End Sub