vb如何实现同一命令按钮不同的命令

来源:百度知道 编辑:UC知道 时间:2024/05/24 18:17:08
同一个按钮 按下出现图片1 再按下出现图片b如此反复 如何实现

dim t as boolean
private sub command1_click()
t=not t
if t then
picturea.visible=ture
pictureb.visible=false
else
picturea.visible=false
pictureb.visible=true
end if
end sub

Dim a As Boolean
Private Sub Command1_Click()
If a Then
a = False
Picture1.Visible = True
Picture2.Visible = False
Else
a = True
Picture1.Visible = False
Picture2.Visible = True
End If
End Sub

Private Sub Form_Load()
a = True
Picture1.Visible = False
Picture2.Visible = False
End Sub