问个关于VB中Command的问题.谢谢回答的朋友们

来源：百度知道 编辑：UC知道 时间：2024/05/22 16:37:51
我想实现这样一个效果,
command1.caption = "a"
当点击command1的时候 command1.caption = "b"
如果再次点击command1的时候 command1.caption = "a"

如何实现这个过程.谢谢

private sub command1_click()
if command1.caption = "a" then
command1.caption = "b"
else
command1.caption = "a"
end if
end sub

Private f As Boolean
Private Sub Command1_Click()
If f = True Then Command1.Caption = "a": f = False Else Command1.Caption = "b": f = True
End Sub

Private Sub Command1_Click()
Static k As Integer
If k Mod 2 = 0 Then Command1.Caption = "b" Else Command1.Caption = "a"
k = k + 1
End Sub
'k用来判断点击的次数是奇数或偶数次，从而判断出command1.caption 显示的字符