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


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

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

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


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

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

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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 回到顶部