if Shift = vbCtrlMask then
Select Case KeyCode
Case vbKeySpace, vbKeyRight, vbKeyDown, vbKeyReturn
a = a + 1
Label1.Caption = a
Case vbKeyBack, vbKeyLeft, vbKeyUp
a = a - 1
Label1.Caption = a
End Select
end if
Select Case KeyCode
Case vbKeySpace, vbKeyRight, vbKeyDown, vbKeyReturn
a = a + 1
Label1.Caption = a
Case vbKeyBack, vbKeyLeft, vbKeyUp
a = a - 1
Label1.Caption = a
End Select
end if
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货