以文本方式查看主题 - 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 --
|
||||
-- 作者: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 |