Question

VB实现根据鼠标点击次数统计并弹出对话框

VB如何实现根据鼠标点击次数统计并弹出对话框，对话框上显示文字的功能?

Answer 1

Dim i As Integer Private Sub Command1_Click() i = i + 1 If i = 4 Then MsgBox "鼠标点击不能超过三次" End If End Sub

Answer 2

Dim c As Long Private Sub Command1_Click() c = c + 1 If c > 5 Then MsgBox "你鼠标点击了" & c & "次" End If End Sub