如何判断按钮被点击！！

Question

如题！！

Answer 1

peivate sub btnTest_Click
static i as long
i = i + 1
msgbox "第 " & cstr(i) & " 次点击完成",vinformation,"title"
end sub

Answer 2

1、如果是控件数组，直接返回索引号：Private Sub Command1_Click(Index As Integer)
        Debug.Print "第" & Index + 1 & "个命令按钮被点击！"
End Sub
2、如果是单个控件，直接返回被单击的控件名字(控件标题caption)。
 

Answer 3

加个点击标志
Dim CmdClick  As Boolean
CmdClick = False
Private Sub Command1_Click()
    CmdClick = True
End Sub

Answer 4

加全局变量,任何过程也可测知按钮被单击几次.Dim i as Integer
peivate sub Command1_Click
i = i + 1
end sub
peivate sub Command2_Click
msgbox "Command1已单击" & "次!"
end sub

Answer 5

Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Button = vbLeftButton Then
        Debug.Print　cstr(Index )
    End If
    
End Sub

Answer 6

WIN32 API的行不行。(*^__^*) 嘻嘻……
 SendMessage(hwndButton, BM_SETSTATE, 1, 0)//模拟那个按键（hwndButton）被按下了

Answer 7

判断按钮被点击看你在什么情况下，如果是msgbox，它的每一个按钮都有一个供判断用的返回值。按钮控件，用6楼的方法加一个Boolean 类型的点击标志  如果是控件数组，直接返回索引号