请教代码的意思,以及怎么才能触发该事件
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
...全文
相关推荐
浅谈键盘上回车按钮的js触发事件
下面小编就为大家带来一篇浅谈键盘上回车按钮的js触发事件。小编觉得挺不错的,现在就分享给大家,也给大家做个参考。一起跟随小编过来看看吧
C# 委托与事件的概念及理解
委托和事件这两个概念是完全配合的。委托可以看成是函数指针,那就是说,它能够引用对象方法,通过传递地址的机制完成。委托是一个类,当你对它实例化时,要提供一个对象方法,将其作为它构造函数的参数。
jQuery鼠标事件汇总
鼠标事件是指用户在移动鼠标光标或者点击任意鼠标键时触发的事件,jQuery中封装了基本上所有的鼠标事件包括点击,双击,移动等鼠标事件,下面我们就来看下这些事件的语法和用法
jQuery事件委托之Safari
主要介绍了jQuery事件委托之Safari 的相关资料,非常不错,具有参考借鉴价值,需要的朋友可以参考下
singularly3_触发控制_事件触发控制_事件触发控制仿真_事件触发控制_事件触发
对事件触发控制进行仿真,并使其最终结果达到稳定


控件
