更改按钮的标题？

fatmingli

按钮本来标题是“显示”我想单击后变成“隐藏”，单击事件的代码怎么写？

也就是说按一下就变成“隐藏”，再按一下又变成“显示”，再按一下变成“隐藏”，如此循环。

[此贴子已经被作者于2005-3-8 17:36:09编辑过]

sgrshh29

建议你考虑一下,想要达到这种效果,又要简洁的话,最好改用切换按钮.写代码比较方便一些.

wanshan

Private Sub a_Click()

Me.a.Caption = IIf(Me.a.Caption = "显示", "隐藏", "显示")

End Sub

fatmingli

OK，效果正是我想要的，谢谢！

wangxuefeng

高手

wangxuefeng

不过好像少了一个功能 显示执行一个命令，隐藏时执行另一个命令

zyp

以下是引用wangxuefeng在2005-3-9 12:27:38的发言：

不过好像少了一个功能 显示执行一个命令，隐藏时执行另一个命令

Private Sub a_Click()

   if me.a.caption="隐藏" then

       你需执行的代码

       me.a.caption="显示"

   else

      你需执行的代码

       me.a.caption="隐藏"

   end if

End Sub

hi-wzj

以下是引用zyp在2005-3-9 12:43:09的发言：





Private Sub a_Click()

   if me.a.caption="隐藏" then

       你需执行的代码

       me.a.caption="显示"

   else

      你需执行的代码

       me.a.caption="隐藏"

   end if

End Sub

建议将me.a.caption=....放在“须执行代码”前，因为如果执行的代码运行时间比较长的话，界面变化缓慢让人搞不准系统是否在运行。

zyp

王版主说得有理，如果代码运行时间长的话，最后改变鼠标状态，或者做个进度条。