以文本方式查看主题

-  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