- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 我不知道怎样才能让程序暂停若干秒后再执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117118)
-- 发布时间：2018/4/7
-- 我不知道怎样才能让程序暂停若干秒后再执行
我有一段朗读文本的代码，会依次朗读每一行第一列的内容。我想实现每朗读完一行后暂停若干秒再读下一行。应该怎样实现呢？
Dim sp As New DotNetSpeech.SpVoice()
If max > 0 Then
For i As Integer = 0 To (max - 1)
sp.Speak(Tables("表A").Rows(i)("第一列"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
Next
End If
-- 发布时间：2018/4/7 9:34:00
--
Dim sp As New DotNetSpeech.SpVoice()
If max > 0 Then
For i As Integer = 0 To (max - 1)
sp.Speak(Tables("表A").Rows(i)("第一列"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault)
system.threading.thread.sleep(5000) \'暂停5秒
Next
End If
-- 发布时间：2018/4/7 15:03:00
--
厉害了
-- 发布时间：2018/4/8 14:47:00
-- 在窗体上一边显示文本一边朗读，这个应该怎样设计？
这样确实可以设置间隔时间了，可是暂停朗读按钮也不能用了。有两全其美的方法吗？
暂停朗读按钮代码：
Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
-- 发布时间：2018/4/8 16:48:00
--
使用窗口计时器，把朗读放到timetick事件里
-- 发布时间：2018/4/9 16:50:00
--
谢谢！