主题：隔行选择

就是点击次数为点数说出来，双数不读出来，是选择后读出来，

 你本来的代码和新的代码都没有问题。看不懂你想表达什么。

 

对对  谢谢 代码没有问题，只是想添加一个读的功能，但是读的功能不是每变一行都要读出来，只有 光标往下移动的时候才读， 而 光标往上就不读出来，麻烦了 感谢 感谢 

 你本来的代码就没有问题。

只是他不是选择下两行以后在读取啊？ 感谢 感谢 

 截图说明问题，怎么操作，应该要读哪一行？逻辑是什么？

感谢 感谢   其实就是在原理的基础上加发音，但发硬是光标向下移动才发音（发音的内容是向下移动后选中的内容），向上就不发音。
此主题相关图片如下：qq截图20170423222804.jpg

 你原来的代码，本来就是那样。

但是读出来的声音是往上的单词，不是跳到下下行的单词。

Dim t As Table = Tables("窗口2_Table1")
Dim idx As Integer
If vars("flag") = 0 Then
    idx = t.FindRow("目录_状态 Is null Or 目录_状态 = '学习中'", t.Position+1, True)
    vars("pidx") = idx
   
    idx = t.FindRow("目录_状态 is null or 目录_状态 = '学习中'", idx+1, True)
    vars("flag") = 1
   
Else
    idx = vars("pidx")
    vars("flag") = 0
End If

If idx = -1  Then
    msgbox("已复习完")
Else
    Dim r As Row = t.Rows(idx)
    t.Position = idx
    If vars("flag") = 1 Then
        Dim sp As New DotNetSpeech.SpVoice()
        sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
       
    End If
End If