Foxtable(狐表)用户栏目专家坐堂 → 按Enter定位不到指定控件


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

主题:按Enter定位不到指定控件

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
按Enter定位不到指定控件  发帖心情 Post By:2022/12/18 18:59:00 [只看该作者]

请老师帮忙看一下以下代码问题出在哪里?怎么也定位不到指定控件"Button6",而是定位到了"Button7"

If e.KeyCode = Keys.enter Then '如果按下的是回车按键
Dim nb As String = e.Form.Controls("NumericComboBox1").text
    If nb = Nothing Then
        msgbox("请输入收入金额后继续!",64,"提示")
    Else
        e.Form.Controls("Button6").Select()
    End If
End If

请老师指点。

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/18 20:01:00 [只看该作者]

If e.KeyCode = Keys.enter Then '如果按下的是回车按键
e.cancel=true
……

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2022/12/18 20:24:00 [只看该作者]

谢谢老师,可以了。谢谢谢谢!只是不太理解为什么非得设为TRUE来取消此次按键才能执行?

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


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/12/18 20:37:00 [只看该作者]

控件回车有自己的默认行为,如果不取消,执行完毕代码后会继续执行自己的默认行为。

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


加好友 发短信
等级:小狐 帖子:388 积分:3212 威望:0 精华:0 注册:2017/4/2 19:33:00
  发帖心情 Post By:2022/12/18 20:48:00 [只看该作者]

明白了,感谢老师指点。

 回到顶部