VBA，userform的控件 controls，如何禁用一些image/commandbutton 处理例子

备注

• 以下都用 controls() 
• controls() 包含userform的下级对象，labels, commandbuttons 等等

处理办法1： controls().visible=false

这样处理后，那个地方会隐藏，但是感觉很怪。

处理办法2： label.enabled=false

这样处理后，那个地方会无法点击。

坏处是同时连 controltiptext  都不再生效，但是可以同时换图片标识不可用（注意刷新问题）

'同时要处理包裹显示
       r5 = Worksheets("bag").Range("a999").End(xlUp).Row
       For i = 1 To r5 - 2
            If i = s01 Or i = s02 Then
                Controls("image" & i + 1).Enabled = False
                Controls("image" & i + 1).Picture = LoadPicture(ThisWorkbook.Path & "\res\" & "occup1.jpg")  '无法即时生效
    '''             Controls("image" & i + 1).Visible = False  '显示效果差
    '''             Controls("image" & i + 1).ControlTipText = "disable后无法生效
            Else
    '''             Controls("image" & i + 1).Visible = True
                Controls("image" & i + 1).Enabled = True
            End If
       Next