以文本方式查看主题
-
Foxtable(狐表)
(http://foxtable.com/bbs/index.asp)
--
专家坐堂
(http://foxtable.com/bbs/list.asp?boardid=2)
----
[求助]实现按钮切换效果
(http://foxtable.com/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