主题：暂停朗读

全局代码：

Public spv As New DotNetSpeech.SpVoice() '全局变量至少3个字符
Public speak0 As String ="0" '状态标志,=1为开启语音朗读,=0为禁止,这是专门针对没有音箱或耳机的计算机设置的

菜单中“语音朗读”按钮代码：

属性：类型为状态按钮，按下取false

事件：

Static ts As RibbonMenu.ToggleButton
If ts Is Nothing Then
    ts = RibbonTabs("日常工作").Groups("整表操作").Items("语音朗读") '自己改
End If
If speak0="1" Then
    ts.pressed =False
    speak0="0"
    spv.pause
Else
    ts.pressed=True
    speak0="1"
    spv.resume
End If

表的ValidateEdit事件代码：

If speak0="1" Then
    spv.rate=-1 '设置语速
    spv.Speak(e.text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
End If

如果开启，输入完后会自动朗读

一般情况下可以不用pause和resume