如何让toolbar中的每个button都变灰?

Question

for i=0 to toolbar.buttons.count-1
    toolbar.buttons.item(i).enabled=false
next i

Answer 1

dim bt as MSComCtlLib.Button
for bt in toolbar1.buttons
  bt.enabled=false
next

Answer 2

Private Sub EnableButton(bs As Boolean, Index As Integer)
    On Error Resume Next
    
    Dim bbb As Button
    For Each bbb In Toolbar1.Buttons
        bbb.Enabled = IIf(bbb.Index = Index, 1 - bs, bs)
    Next
End Sub

Answer 3

for i=0 to toolbar.buttons.count-1
    toolbar.buttons.item(i).enabled=false
next i 

Answer 4

Public Sub SetControl(tbr As Toolbar, TF As Boolean)
    dim i%
    for i=0 to tbr.buttons.count-1
        tbr.buttons.item(i).enabled=TF
    next 
End Sub如何让toolbar中的每个button都变灰?
  setcontrol toolbar,False如何让toolbar中的每个button都恢复?
  setcontrol toolbar,True如何让toolbar中的某个button变灰和恢复?
  toolbar.buttons("buttonname").enabled=false
  toolbar.buttons("buttonname").enabled=true