以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  朗读点击  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=24423)

--  作者:方沈
--  发布时间:2012/10/13 15:02:00
--  朗读点击

各位好:

我现在编的一个小的培训系统,目前还有一个问题需要解决

我按照http://www.foxtable.com/help/index.html?n=2240.htm写入,目前出现如下现象

不能在点击区域(鼠标单击)马上发音,必须双击这个区域,然后换行才能发音

也就是当我单击表的第一行时不能发音,必须双击第一行,然后换下一行时才能发音

我需要单击某区域后马上发音(朗读)

谢谢


--  作者:lin_hailun
--  发布时间:2012/10/13 15:14:00
--  
 代码写错位置了吧?做个例子传上来瞧瞧
--  作者:方沈
--  发布时间:2012/10/14 10:55:00
--  

密码 888

文件放D盘


--  作者:方沈
--  发布时间:2012/10/14 10:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:复件 学习系统.zip


--  作者:lin_hailun
--  发布时间:2012/10/15 10:40:00
--  
 需要在Click事件里编写如下代码

sp.Speak(e.Row(e.Col.Name), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)

--  作者:方沈
--  发布时间:2012/10/16 15:56:00
--  
请问能否实现点击一个按钮后自动播放(同一列向下)
--  作者:lin_hailun
--  发布时间:2012/10/16 16:13:00
--  
 可以,弄一个按钮,写入如下代码。如果要中途停止,还要在添加一个全局变量去判断和退出。

Dim t As Table = CurrentTable
Dim r As Integer = CurrentTable.RowSel
Dim c As Integer = CurrentTable.ColSel
For i As Integer = r To t.Rows.Count - 1
    sp.Speak(t.Rows(i)(c), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Next