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
出了两个问题 ，没输入内容一可以进入下一行 ，可以加一个随机不循环不？
加好友 
发短信
Post By：2016/11/17 15:18:00 [显示全部帖子]
