If e.sender.value > e.Form.Controls("textbox2").value
If e.Form.Controls("CheckBox3").checked = True
Dim sp As New DotNetSpeech.SpVoice()
sp.rate = 6
sp.Speak("输入值大了", DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
End If
e.sender.value = Nothing
e.sender.Select()
Else
If e.Form.Controls("CheckBox3").checked = True
sp.Speak(e.sender.value, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
End If
End If
加好友 
发短信
Post By：2016/10/8 16:18:00 [只看该作者]
