- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下一行筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92975)
-- 发布时间：2016/11/17 15:18:00
-- 下一行筛选
点击下一行
如果TextBox1 输入的内容与Label1符合（相同）
则 光标下一行（在光标移动下一行时，不会选中听写结果列为 过关 的列 ），次数列加1（如果是0就改为1，如果是1就
改为2，如果是2就改为3）
读出移动后的Label1单词。
如果TextBox1 输入的内容与Label1不符合（不相同）
则 发出指定音乐文档声音，
这个能实现吗
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:阅读.table |
-- 发布时间：2016/11/17 16:17:00
--
参考代码
Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt1.text > "" AndAlso lbl1.text <> txt1.text Then
msgbox("不匹配")
\'Audio.Play("d:\\test.wav")
Else
Dim t As Table = Tables("英语")
If t.Position = t.Rows.Count-1 Then
msgbox("已是最后一行")
Else
For i As Integer = t.Position+1 To t.Rows.Count-1
Dim r As Row = t.Rows(i)
If r("听写结果") <> "过关" Then
t.Position = i
r("听写次数") += 1
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Exit For
End If
Next
End If
End If
-- 发布时间：2016/11/17 22:55:00
--
哇！好强大， 只是 为什么我还是读的字母啊？ 麻烦你了 大神。
-- 发布时间：2016/11/17 23:08:00
--
更换其它的语音库试试，http://www.foxtable.com/webhelp/scr/2240.htm，看示例七
-- 发布时间：2016/11/19 12:04:00
--
TextBox1 里面没有输入也可以点下一行呢
-- 发布时间：2016/11/19 14:15:00
--
测试没有问题，贴出出错代码
-- 发布时间：2016/11/19 17:51:00
--
Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt1.text > "" AndAlso lbl1.text <> txt1.text Then
msgbox("不匹配")
\'Audio.Play("d:\\test.wav")
Else
Dim t As Table = Tables("英语")
If t.Position = t.Rows.Count-1 Then
msgbox("已是最后一行")
Else
For i As Integer = t.Position+1 To t.Rows.Count-1
Dim r As Row = t.Rows(i)
If r("听写结果") <> "过关" Then
t.Position = i
r("听写次数") += 1
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Exit For
End If
Next
End If
End If
出了两个问题 ，没输入内容一可以进入下一行 ，可以加一个随机不循环不？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:阅读 (1).table |
-- 发布时间：2016/11/20 10:21:00
--
Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If lbl1.text <> txt1.text Then
msgbox("不匹配")
\'Audio.Play("d:\\test.wav")
Else
Dim t As Table = Tables("英语")
If e.Form.controls("checkbox1").checked Then
Dim drs As List(Of DataRow) = t.DataTable.Select("听写结果 is null or 听写结果 <> \'过关\'")
If drs.count > 0 Then
Dim idx As Integer = Rand.Next(drs.count-1)
t.position = t.FindRow(drs(idx))
Dim r = t.current
r("听写次数") += 1
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
txt1.text = ""
Else
msgbox("全部过关")
End If
Else
If t.Position = t.Rows.Count-1 Then
msgbox("已是最后一行")
Else
For i As Integer = t.Position+1 To t.Rows.Count-1
Dim r As Row = t.Rows(i)
If r("听写结果") <> "过关" Then
t.Position = i
r("听写次数") += 1
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
txt1.text = ""
Exit For
End If
Next
End If
End If
End If
-- 发布时间：2016/11/20 13:10:00
--
麻烦你了，
现在有几个问题，
就是 当输入正确后 加 1 这个功能是输入到下一行了， 第二就是 点击随机会一直在第一行，可以取消 最后一行改为 当 听写状态 列 全部都为过关后 跳出窗口显示 已听写完成，不要最后一行跳槽最后一行，如果最后一行了就调至第一行 （听写状态不是 过关的 ）
-- 发布时间：2016/11/20 18:51:00
--
Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If lbl1.text <> txt1.text Then
msgbox("不匹配")
\'Audio.Play("d:\\test.wav")
Else
Dim t As Table = Tables("英语")
t.Current("听写次数") += 1
t.Current("听写结果") = "过关"
If e.Form.controls("checkbox1").checked Then
Dim drs As List(Of DataRow) = t.DataTable.Select("听写结果 is null or 听写结果 <> \'过关\'")
If drs.count > 0 Then
Dim idx As Integer = Rand.Next(drs.count-1)
t.position = t.FindRow(drs(idx))
Dim r = t.current
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
txt1.text = ""
Else
msgbox("全部过关")
End If
Else
Dim idx As Integer = t.FindRow("听写结果 is null or 听写结果 <> \'过关\'", t.Position+1, True)
If idx = -1 Then
msgbox("全部过关")
Else
Dim r As Row = t.Rows(idx)
t.Position = idx
r("听写次数") += 1
Dim sp As New DotNetSpeech.SpVoice()
sp.Speak(r("单词"), DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
txt1.text = ""
End If
End If
End If