以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]如何实现即时朗读单元格内容?(已解决) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10773) |
||||
-- 作者:zjianx -- 发布时间:2011/6/22 22:14:00 -- [求助]如何实现即时朗读单元格内容?(已解决) 就像excel那样,输入内容后按回车键或方向键就能读出单元格的内容,在核对数据时很好用,狐表有没有这个功能?搜索了下,似乎没找到 [此贴子已经被作者于2011-6-23 19:02:47编辑过]
|
||||
-- 作者:hhbb -- 发布时间:2011/6/22 22:40:00 -- 语音朗读 FoxTable可以自动将一段文本朗读出来。 提示:无需去刻意理解下面的代码,实际工作的时候,只需套用即可。 示例一 如果你要用默认的设置朗读语音,那么很简单: 执行上面的代码,计算机或自动朗读出“I am from china.” 示例二 上面的朗读代码是异步的,在朗读的同时,你可以继续进行下一步的操作。 同步朗读的代码: Dim sp As New
DotNetSpeech.SpVoice() 示例三 通过设置Rate属性,可以调整朗读语速,Rate的默认值是0,可以为负数,值越大,语速越快。 快速朗读: Dim sp As New
DotNetSpeech.SpVoice() 低速朗读: Dim sp As New
DotNetSpeech.SpVoice() 示例四 你可以通过下面的代码来获得所有已经安装的语音库的名称: Dim sp As new
DotNetSpeech.SpVoice() 示例五 朗读的时候,可以选择语音库,例如选择1号语音库朗读: Dim sp As New
DotNetSpeech.SpVoice() 示例六 可以将朗读结果录制为一个wav文件,例如: Dim Voice As
new
DotNetSpeech.SpVoice() 示例七 这是一个综合示例,可以打开CaseStudy目录下的示例文件:语音朗读.Table 该示例可以列出已经安装的语音库,客户用已选择语音库,设置语速,并可选择是异步还是同步朗读。 窗口的AfterLoad事件代码为: Dim sp As new
DotNetSpeech.SpVoice() 上面的代码会在窗口的ListBox1中列出已经安装的语音库的名称,并默认选择第一个语音库。 开始朗读按钮的代码为: Dim yy As WinForm.ListBox =
e.Form.Controls("ListBox1") |
||||
-- 作者:zjianx -- 发布时间:2011/6/22 23:32:00 -- 这段帮助我看过,似乎不是我想要的哪种效果 |
||||
-- 作者:zjianx -- 发布时间:2011/6/23 1:34:00 -- Dim sp As New DotNetSpeech.SpVoice()
怎么把"I am from china."换成单元格内容? |
||||
-- 作者:blackzhu -- 发布时间:2011/6/23 7:20:00 -- Dim sp As New DotNetSpeech.SpVoice() sp.Speak(Tables("表A").Current("第一列"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
|
||||
-- 作者:易服 -- 发布时间:2011/6/23 8:27:00 -- 在原示例窗口中增加“语音校对”按钮 Dim yy As WinForm.ListBox = e.Form.Controls("ListBox1") [此贴子已经被作者于2011-6-23 8:32:25编辑过]
|
||||
-- 作者:zjianx -- 发布时间:2011/6/23 9:43:00 -- 谢谢楼上几位,看来不能像excel那么方便了,我还是在excel中录数据然后用的时候再导入狐表吧 |
||||
-- 作者:blackzhu -- 发布时间:2011/6/23 9:52:00 -- 数据库来得,当然不能和EXCEL相提并论. |
||||
-- 作者:狐狸爸爸 -- 发布时间:2011/6/23 10:32:00 -- 谁说复杂? 及时语音校对,不过两行代码而已:
一行在全局代码,一行在ValidateEdit事件。 |
||||
-- 作者:易服 -- 发布时间:2011/6/23 11:26:00 -- 拿来就用 |