大量文字朗读时，如需终止，有没有好的办法？

oSpeech =CreateObject("SAPI.SpVoice")        &&连接到系统的语音功能
sWord='窗前明月光，疑是地上霜'                &&被阅读的字串
oSpeech.Speak(sWord)                        &&让系统读出字符串里的内容
sWord = This.parent.edtNote.Value  &&备注字段内容
oSpeech.Speak(sWord)

有资料显示可使用oSpeech.Speak(sWord,2)来终止，尝试后不行，仍旧需要播放完
参考资料：https://sysdzw.blog.

同时还有一个问题，播放sWord='窗前明月光，疑是地上霜'，一遍停止；播放sWord = This.parent.edtNote.Value 时总是播放两遍

额外一个问题，选择TTS里不同语音的语句是哪一条？谢谢！

改为oSpeech.Speak(sWord,3)后就不执行朗读，直接中断了

谢谢吹水佬！

改动后，oSpeech.Speak(sWord)可以朗读，oSpeech.Speak(myWord,1)不读，去掉IF语句可以读，不能终止
   

myword = This.parent.edtNote.Value 
oSpeech =CreateObject("SAPI.SpVoice")        &&连接到系统的语音功能

sWord    = [你好！为您阅读题目]+This.parent.grdMynote.Column1.Text1.Value   &&'窗前明月光，疑是地上霜'                &&被阅读的字串
oSpeech.Speak(sWord)                        &&让系统读出字符串里的内容

oSpeech.Speak(myWord,1)                        &&让系统读出字符串里的内容
If oSpeech.Status.runningState = 2 .and. INKEY()= 27          &&如果当前正在播放，那么就播放一个空字符串，并且使用挂断之前的模式
    oSpeech.Speak("", 2)
ENDIF

太好了！3 是可以中断的，IF语句不需要oSpeech.Status.runningState，搞定了！！！

oSpeech = CreateObject("SAPI.SpVoice")        &&连接到系统的语音功能
sWord    ='窗前明月光，疑是地上霜'            &&被阅读的字串
oSpeech.Speak(sWord)                        &&让系统读出字符串里的内容
oSpeech.Speak('这是可被中断的朗读，这是可被中断的朗读，这是可被中断的朗读',3)
? oSpeech.Status.runningState      &&return 0
inkey(3.0)
oSpeech.Speak('这句话不能被中断，这句话不能被中断',2)
oSpeech.Speak('听完第二句话，这是第三句',2)
? oSpeech.Status.runningState     &&&&return 1

谢谢！
返回值0或1，没有2，不需要这条语句

正解！！非常感谢！

太好了！感谢感谢！看到有相关更换语音的选项参数