以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  暂停播放  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24951)
--  作者：方沈
--  发布时间：2012/10/27 14:00:00
--  暂停播放

各位大侠:按照下面网址的窗口编制了一个朗读的窗口,请问如何点击一个"暂停"按钮后朗读暂停,再点击"继续"按钮后朗读继续

 

:http://www.foxtable.com/help/topics/2240.htm
--  作者：lin_hailun
--  发布时间：2012/10/27 14:11:00
--  
 不是有几个属性么？

Speak： 朗读文本
Pause： 暂停朗读
Resume：继续朗读

 对象.Pause
--  作者：方沈
--  发布时间：2012/10/27 14:38:00
--  
不好意思,属性在哪里?
--  作者：lin_hailun
--  发布时间：2012/10/27 14:45:00
--  
 
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20121027144442.png
图片点击可在新窗口打开查看
--  作者：方沈
--  发布时间：2012/10/27 15:00:00
--  

不好意思,我还是不懂

我目前的"播放"按钮设置

Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim sp As New DotNetSpeech.SpVoice()
Dim vl As String = e.Form.Controls("txtContent").Value \'获得要朗读的文本
sp.Rate = e.Form.Controls("boxSpeed").Value \'设置语速
sp.Voice = sp.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex) \'选择语音库
If  e.Form.Controls("rdoAsync").Checked Then
    sp.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) \'异步朗读
Else
    sp.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFDefault) \'同步朗读
End If

 

那么暂停按钮如何写入代码?

 

谢谢
--  作者：lin_hailun
--  发布时间：2012/10/27 15:02:00
--  
 把这句
 Dim sp As New DotNetSpeech.SpVoice()

 改成
 Public sp As New DotNetSpeech.SpVoice()

 写在 全局代码 那里，然后，就可以到此调用sp了

 http://www.foxtable.com/help/topics/1842.htm
[此贴子已经被作者于2012-10-27 15:03:23编辑过]