以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教按钮动态名称代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30224)

--  作者:lsf5138
--  发布时间:2013/3/23 11:30:00
--  [求助]请教按钮动态名称代码
例如;刚打开窗口时按钮名称显示为 关闭导航 按了按钮后 名称就变成 打开导航 要这样来回切换!
请问这个按钮代码要怎么写?

--  作者:don
--  发布时间:2013/3/23 11:39:00
--  
应该为 按钮动态标题:

Dim btn As WinForm.Button
btn = Forms(
"窗口1").Controls("Button1")
btn.Text = iif( btn.Text ="关闭导航",  "打开导航" ,"关闭导航")