以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  对比时候 屏蔽空格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157877)

--  作者:yangwenghd
--  发布时间:2020/10/31 20:01:00
--  对比时候 屏蔽空格
老师,如果我在TextBox1 后面加了空格,可以屏蔽这个空格吗,就是如果TextBox1的最后一个字符是空格,Label1没有空格,也视为相同,执行蓝色的代码。感谢 感谢 

Dim lbl1 As WinForm.Label = e.Form.Controls("Label1")
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
If txt1.text = "" Then \'如果TextBox1没有字符,执行下面代码
    Forms("听写小窗口").Controls("Button10").PerformClick
    \'Dim sp As New DotNetSpeech.SpVoice()
    \'sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
Else
    If lbl1.text <> txt1.text Then
        Forms("听写小窗口").Controls("Button3").PerformClick
        \'Audio.Play("Z:\\yinxiao\\5312.wav")
        msgbox("不匹配")
        Forms("听写小窗口").Controls("Button10").PerformClick
        \'Dim sp As New DotNetSpeech.SpVoice()
        \'sp.Speak(e.Form.Controls("Label1").Text, DotNetSpeech.SpeechVoiceSpeakFlags.SVSFlagsAsync)
    Else
        If lbl1.text = txt1.text Then
            Dim t As Table = Tables("单词")
            \'Dim ar As Row = t.current
            \'ar("目录_状态") = "已学习"
            t.Current("听写_次数") += 1

--  作者:ouyangfenghuan
--  发布时间:2020/11/1 6:40:00
--  
搜Trim()