Question

VB显示点击次数的代码

在一个FORM中我鼠标点了几次 TEXT就出现我点击的次数

Answer 1

sub form_click()
static i as byte
i=i+1
text1.text=cstr(i)
end sub

Answer 2

Dim i As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
i = i + 1
Label1.Caption = i
End If
End Sub

Answer 3

Dim i As Integer
Private Sub Form_Click()
i = i + 1
Label1.Caption = i
End Sub