请教代码的意思,以及怎么才能触发该事件

SP12345678902 2012-02-29 02:35:57

Option Explicit

Dim mItSkill As String

Private Sub cmdCalMonth_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown, AltDown, CtrlDown

ShiftDown = (Shift And vbShiftMask) > 0
AltDown = (Shift And vbAltMask) > 0
CtrlDown = (Shift And vbCtrlMask) > 0
If ShiftDown And CtrlDown And AltDown Then
mItSkill = mItSkill & Chr(KeyCode)
If UCase(Right(mItSkill, 5)) = "IAMIT" Then
cmdCalMonth.Caption = "计算报表"
Else
cmdCalMonth.Caption = "计算月报表"
End If
End If
Me.Refresh

End Sub
...全文
147 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
该控件keydown的时候……
SP12345678902 2012-03-02
  • 打赏
  • 举报
回复
ctrl+alt+shift的时候吗

我按下任何一个键都会触发该事件

但是怎么实现ctrl+alt+shift同时按下呢???
SP12345678902 2012-03-01
  • 打赏
  • 举报
回复
那什么时候能触发呢
熊孩子开学喽 2012-02-29
  • 打赏
  • 举报
回复
cmdCalMonth_KeyDown

"_"前面是控件名字, 后面是触发事件, 顾名思义就是当按键按下的时候触发事件运行事件代码.
worldy 2012-02-29
  • 打赏
  • 举报
回复
Option Explicit

Dim mItSkill As String

Private Sub cmdCalMonth_KeyDown(KeyCode As Integer, Shift As Integer)
Dim ShiftDown As Boolean, AltDown As Boolean, CtrlDown As Boolean

ShiftDown = CBool(Shift And vbShiftMask)
AltDown = CBool(Shift And vbAltMask)
CtrlDown = CBool(Shift And vbCtrlMask)

If ShiftDown And CtrlDown And AltDown Then
mItSkill = mItSkill & Chr(KeyCode)
If UCase(Right(mItSkill, 5)) = "IAMIT" Then
cmdCalMonth.Caption = "计算报表"
Else
cmdCalMonth.Caption = "计算月报表"
End If
End If

End Sub

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧