Dim sp As New DotNetSpeech.SpVoice()
sp.rate = 8
If e.KeyCode = Keys.Enter Then
e.sender.WriteValue
If val(e.Sender.Text) > val(e.Form.Controls("textbox2").text) Then
If e.Form.Controls("CheckBox3").checked = True
''msgbox("超出范围")
sp.Speak("输入值大了", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
End If
e.Sender.Select
e.Sender.Text = ""
Else
If e.sender.text = ""
e.sender.value = "0"
End If
If e.Form.Controls("CheckBox3").checked = True
sp.Speak(e.sender.value, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
End If
If e.Form.Controls("checkbox2").checked =True
e.Form.Controls("textbox5").Select
Else
If Tables("上分_table1").Position < Tables("上分_table1").Rows.Count-1 Then
Tables("上分_table1").Position += 1
End If
If e.Form.Controls("checkbox4").checked =True
e.Form.Controls("textbox6").Select
Else
e.sender.Select
End If
End If
End If
e.Cancel = True
End If
老师，谢谢你帮助，我改成了上面的结果可实现语音了，现在有一个问题，我在菜单中有几个按钮用于打开几个主窗口，但每次按都要重新打开一次对应窗口，有什么办法可以判断如果先打开了的就显出来就是了，这样减少加载负担。谢谢
加好友 
发短信
Post By：2016/11/5 11:41:00 [显示全部帖子]
