Question

VB记录Command单击次数

我先定义变量p ： Dim p As Integer 给p赋予初始值p=0
我想达到的目的是：原先我给Command1_Click写了一些事件，每点击一次Command1后执行我写的事件并且p=p+1，当p=text1.text时，Command1_Click改成msgbox"点击次数超过上限"

Answer 1

Private Sub Command1_Click()
    Static a As Integer
    a = a + 1
    If a = Val(Text1) Then
        MsgBox "点击次数超过上限"
    End If
End Sub

Answer 2

定义全局变量s
text_changed事件中s=text.text
commond_click事件中
p=p+1
if(p<s)
..
else
msgbox""

追问

还有个问题看图。

追答

select case 可以多条件选择

追问

select case语句后面能加两个变量吗？怎么用

追答

只能用一个变量，但是你可以嵌套哈，获取case中使用if.elseif..else。百度一下select case 用法就知道了