在click事件里写:
if command1.caption="command1" then
代码1
command1.caption="另一个名字"
else
代码2
command1.caption="command1"
end if
名称是只读的!同志有没有学过vb啊!
代码改变如下:
private b as boolean
private sub command1_click
b=not b
if b then
'原来的代码
else
'改变后的代码
end if
end sub
private sub command1_click()
if command1.caption= "command1" then
command1.caption="command2"
你要执行的代码1
end if
if command1.caption= "command2" then
command1.caption="command1"
你要执行的代码2
end if