以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]实现按钮切换效果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179827)

--  作者:wldhj
--  发布时间:2022/9/13 9:41:00
--  [求助]实现按钮切换效果

图片点击可在新窗口打开查看此主题相关图片如下:ttt.jpg
图片点击可在新窗口打开查看
怎样实现点击一个按钮后,按钮程选中状态,点击另一个按钮,另一个按钮被选中,这个按钮恢复正常状态的效果。

--  作者:有点蓝
--  发布时间:2022/9/13 9:47:00
--  
改为状态按钮,然后按钮PressedChanged事件写代码处理,比如

按钮1,PressedChanged
if e.ToggleButton.Pressed then
RibbonTabs("功能区1").Groups("功能组1").Items("按钮2").Pressed = false
RibbonTabs("功能区1").Groups("功能组1").Items("按钮3").Pressed = false
……
end if

按钮2,PressedChanged
if e.ToggleButton.Pressed then
RibbonTabs("功能区1").Groups("功能组1").Items("按钮1").Pressed = false
RibbonTabs("功能区1").Groups("功能组1").Items("按钮3").Pressed = false
……
end if