汽车塑料材料牌号:VB编程 点按键1时按键1消失,按键2出现。再点按键2时按键1出现。那么如何编程,再点按键1时,让它们都消失

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/07 04:06:34
我的问题关键是怎么写代码,如何再点按键1时,让它们都消失
。关键是按键1的2次任务的代码怎么写

Dim i As Long

Private Sub Command1_Click()

i = i + 1
If i < 2 Then
Command1.Visible = False
Command2.Visible = True
Else
Command1.Visible = False
End If
End Sub

Private Sub Command2_Click()
Command2.Visible = False
Command1.Visible = True
End Sub

新建一个工程,在上面添加两个按钮:Command1和Command2.
输入如下代码即可
Dim i As Long
Dim j As Long

Private Sub Command1_Click()
i = i + 1
If i < 2 Then
Command1.Visible = False
Command2.Visible = True
Else
Command1.Visible = False
Command2.Visible = False
end if
End Sub

Private Sub Command2_Click()
Command2.Visible = False
Command1.Visible = True
End Sub

调用command的visible属性
visible=false不显示
=true显示