Foxtable(狐表)用户栏目专家坐堂 → 文本框回车键后的KEYDOWN事件怎么让焦点回到文本框


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

主题:文本框回车键后的KEYDOWN事件怎么让焦点回到文本框

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


加好友 发短信
等级:幼狐 帖子:54 积分:809 威望:0 精华:0 注册:2009/2/6 9:08:00
文本框回车键后的KEYDOWN事件怎么让焦点回到文本框  发帖心情 Post By:2019/6/13 19:44:00 [只看该作者]

功能是想在文本框(“cname”)输入完要筛选的内容,按回车,鞋子库存表就得筛选出相关内容,并清空文本框,焦点回到文本框,可以继续输入内容再筛选..
试过在文本框的离开事件输入e.cancel=true,这样是可以焦点一直在文本框,但是鼠标点到其它位置,焦点依然回到文本框位置,干不了别的事。所以在KEYDOWN事件里整了以下代码,回车后筛选功能是实现了,清空文本框和焦点回文本框依然能实现,各位帮忙看看代码

If e.keycode = keys.enter AndAlso e.sender.text = e.sender.Value Then
    Dim Filter As String
    With e.Form.Controls("cname")
        If .Value IsNot Nothing Then
            Filter = "[型号] like '%" & .Value &"%'"
        End If
    End With
    If Filter > "" Then
        Tables("鞋子库存").Filter = Filter
    End If
e.Form.controls("cname").text = Nothing     ‘清空文本框
e.form.Controls("cname").Select()               ‘焦点回到文本框
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/13 21:43:00 [只看该作者]

keydown事件,加上代码 e.cancel = true


 回到顶部