以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 模拟单击(快捷键)问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64348) |
-- 作者:wangyinming -- 发布时间:2015/2/11 17:10:00 -- [求助] 模拟单击(快捷键)问题 窗口中的复选框CheckBox100,目前可以单击或空格键选中,但是想输入的更快,所以请问可以按“+”模拟空格键的效果吗? |
-- 作者:有点甜 -- 发布时间:2015/2/11 17:12:00 -- 去编写窗口的keydown事件,然后给复选框赋值。 |
-- 作者:Bin -- 发布时间:2015/2/11 17:14:00 -- 有空格键不用为什么用+不是一样的吗? KeyDown 事件 If e.KeyCode= keys.Add Then e.Sender.checked= not e.Sender.checked End If |
-- 作者:客人 -- 发布时间:2015/2/11 17:17:00 -- 老师空格要2个手作业了,+只要单手作业,提高输入速度,左右可以翻页 |
-- 作者:wangyinming -- 发布时间:2015/2/11 17:24:00 -- 谢谢 + 是 add
再请教已问题,可以5个复选框(1、2、3、4、5) 一定要选一个吗,这个怎么写 |
-- 作者:Bin -- 发布时间:2015/2/11 17:25:00 -- 按一下加选一个,还是全部选? 描述清楚需求 |
-- 作者:wangyinming -- 发布时间:2015/2/11 17:28:00 -- 不是这个问题 是录入是一定要再5个中选一个,否则不能保存或提示 ,怕录入的人漏掉了 |
-- 作者:Bin -- 发布时间:2015/2/11 17:32:00 -- 你现在要判断是否选择一个以上? 还是怎么的? |
-- 作者:wangyinming -- 发布时间:2015/2/11 17:36:00 -- 想判断是否已经选了1个或以上,若1个都没有选就提示 |
-- 作者:Bin -- 发布时间: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
|