求个VB实现简单计数器的代码

来源：百度知道 编辑：UC知道 时间：2024/05/16 06:09:44
要求很简单。
一个Label控件，上面显示数字。
然后要求使用者按组合键如"ctrl+1"，Label上的数字就加1
按ctrl+2则减1
按ctrl+3清零
谢谢。
谢谢楼下的回答
我还有个小要求，就是无论这个计数器的窗口是在最前面，还是最小化了，还是最后面，按ctrl+1等都要有计数效果，谢谢！

新建一个VB工程，双击窗体把复制下面代码即可。
Option Explicit
Private sCount As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 49 '加1
If Shift = 2 Then
Form1.Caption = "CTRL + 1"
sCount = sCount + 1
End If
Case 50 '减1
If Shift = 2 Then
Form1.Caption = "CTRL + 2"
sCount = sCount - 1
End If
Case 51 '清空
If Shift = 2 Then
Form1.Caption = "CTRL + 3"
sCount = 0

End If
Case Else
End Select
Label1.Caption = sCount
End Sub

Private Sub Form_Load()
sCount = 0
Label1.Caption = sCount

End Sub

如果有不明白的地方可以与我交流
jialiu830205@163