Foxtable(狐表)用户栏目专家坐堂 → 对比时候 屏蔽空格


  共有173人关注过本帖树形打印复制链接

主题:对比时候 屏蔽空格

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2654 积分:17576 威望:0 精华:0 注册:2013/4/9 10:41:00
对比时候 屏蔽空格  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:215 积分:1777 威望:0 精华:0 注册:2015/12/11 4:29:00
  发帖心情 Post By:2020/11/1 6:40:00 [只看该作者]

搜Trim()

 回到顶部