vb6.0请教一下

来源：百度知道 编辑：UC知道 时间：2024/04/25 20:50:39
怎么可以将一个按钮按三下就变灰不能按呢?
还有按一下就用msgbox显示出剩下的次数.
我还是菜鸟，请不要写太深哦!谢谢!

我来写代码

Dim Counter As Integer
Private Sub Command1_Click()
Counter = Counter - 1
If Counter = 0 Then
Command1.Enabled = False
Else
MsgBox ("剩余" & Counter & "次")
End If
End Sub

Private Sub Form_Load()
Counter = 3
End Sub

dim i as integer =3

command_click
i = i - 1
if i<1 then
command.enable = false
else
msgbox i
end if

楼上的错了，“==”是用在C中的
确实可以那样，在COMMAND1中设置
dim i as integer
i=3
private sub command1_click()
i=i-1
if i=0 then
command1.enabled=false
end if
msgbox "还剩下"& i &"次"
end sub

程序中加个变量,初始值设为:3 如:counter=3;
按一次按钮counter=counter-1
if counter==0
让按钮属性值变灰即可.