没有字符跳过 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt1.text = "" Then '如果TextBox1没有字符,执行下面绿色代码
    Dim sp As New DotNetSpeech.SpVoice()
    sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Else
    If lbl1.text <> txt1.text Then '当TextBox1 有字符且不等于Label1的时候执行下面代码
        msgbox("不匹配")
        'Audio.Play("d:\test.wav")
        Dim sp As New DotNetSpeech.SpVoice()
        sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
    Else

        Dim t As Table = Tables("单词")
    End If
end if

主题：没有字符跳过