改为状态按钮，然后按钮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
加好友 
发短信
Post By：2022/9/13 9:47:00 [显示全部帖子]
