Private Sub Command1_Click()
Command1.Enabled = False
End Sub
这个就是指当点击Command1时,使其按钮失效.
顶匿名的那个!
直接在Command1_Click里加Command1.Enabled=False就行了,因为能点的情况下.Enabled肯定是True所以不用判断。
Private Sub Command1_Click()
If Command1.Enabled = True Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
End Sub
祝你好运~
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
End Sub