Foxtable(狐表)用户栏目专家坐堂 → [求助]自动下一行


  共有3554人关注过本帖树形打印复制链接

主题:[求助]自动下一行

帅哥哟,离线,有人找我吗?
天一生水
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1141 积分:11272 威望:0 精华:0 注册:2017/9/26 16:30:00
[求助]自动下一行  发帖心情 Post By:2021/3/29 8:17:00 [显示全部帖子]

老师好!
下面的代码在遍历朗读[单词]列时,光标同时定位到该行。但是实际上是光标直接定位到了最后一行,朗读依然是一行一行的。这是哪里的问题?
谢谢!
...
Speaker.Speak("", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak) '停止之前的朗读
Dim yy As WinForm.ComboBox = Forms("数据表").Controls("语音库")
Speaker.Rate = dr("默认语速")  '设置语速
For idx As Integer = 0 To Tables("数据表_table1").Rows.Count - 1
    Dim vl As String = Tables("数据表_table1").Rows(idx)("单词") '获得要朗读的文本
    Speaker.Voice = Speaker.GetVoices(String.Empty,String.Empty).Item(yy.SelectedIndex)
    Speaker.Speak(vl, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync) '异步朗读
    Tables("数据表_table1").Position = idx
    Application.DoEvents  '代码即刻生效
Next

 回到顶部