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

SP12345678902 SP12345678902 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

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
...全文

相关推荐

评论 5
收藏 已收藏
分享
返回顶部
SP12345678902
控件 1,453 成员 41,351 内容