1.toolbar中需要check的按钮组，式样应都选为2，既tbrButtonGroup，且这些button的index必须连续，否则被视为不同的buttongroup；
2.如果button是check类型的，则按下时的value为tbrPressed，但如果是普通的button，则按下时的value为0，如果判断语句写成
If Toolbar1.Buttons(4).Value = tbrPressed Then
Dim r As MapObjects2.Rectangle
Set r = Map1.Extent
r.ScaleRectangle 0.5
Set Map1.Extent = r
Map1.Refresh
End If 则无法执行 原文链接：https://www.f2er.com/vb/259755.html