如何让这个按钮不再响应点击事件.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 18 行

一 般 来 说 改 变 使 能 状 态 可 以 满 足 你 的 要 求 ： 
    Private Sub Command1_Click() 
    bEnabled = False 
    ... 
    bEnabled = True 
    End Sub 
    这 样 用 户 无 法 再 点 击 按 钮 了 。 也 可 以 这 样 ： 
    Dim bEnter As Boolean 
    Private Sub Command1_Click() 
    If bEnter Then 
     Exit Sub 
    End If 
    bEnter = True 
    ... 
    bEnabled = False 
    End Sub 
<END>