Foxtable(狐表)用户栏目专家坐堂 → [求助] 模拟单击(快捷键)问题


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

主题:[求助] 模拟单击(快捷键)问题

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
[求助] 模拟单击(快捷键)问题  发帖心情 Post By:2015/2/11 17:10:00 [只看该作者]

窗口中的复选框CheckBox100,目前可以单击或空格键选中,但是想输入的更快,所以请问可以按“+”模拟空格键的效果吗?

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


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

 去编写窗口的keydown事件,然后给复选框赋值。


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/11 17:14:00 [只看该作者]

有空格键不用为什么用+不是一样的吗?



KeyDown 事件

If e.KeyCode= keys.Add Then
 e.Sender.checked= not  e.Sender.checked
End If

 回到顶部
客人(58.215.*.*)
  4楼


  发帖心情 Post By:2015/2/11 17:17:00 [只看该作者]

老师空格要2个手作业了,+只要单手作业,提高输入速度,左右可以翻页


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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
  发帖心情 Post By:2015/2/11 17:24:00 [只看该作者]

谢谢  +  是  add

 

再请教已问题,可以5个复选框(1、2、3、4、5) 一定要选一个吗,这个怎么写


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/11 17:25:00 [只看该作者]

按一下加选一个,还是全部选?  描述清楚需求

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
  发帖心情 Post By:2015/2/11 17:28:00 [只看该作者]

不是这个问题     是录入是一定要再5个中选一个,否则不能保存或提示  ,怕录入的人漏掉了


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/11 17:32:00 [只看该作者]

你现在要判断是否选择一个以上? 还是怎么的?

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
  发帖心情 Post By:2015/2/11 17:36:00 [只看该作者]

想判断是否已经选了1个或以上,若1个都没有选就提示


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/2/11 17:39:00 [只看该作者]

Dim b As Boolean
for each i as integer = 1 to 5
    if e.form.controls("CheckBox" & i).checked then
          b = true
    end if
next

if b =false then
   msgbox("一个都没选")
end if

 回到顶部
总数 12 1 2 下一页