引用3楼详细内容：

' 获取当前画面的引用    

Dim screen    

Set screen = HMIRuntime.Screens("YourScreenName")    

' 隐藏Button1    

screen("Button1").Visible = False    

' 检查是否所有按钮都已隐藏    

Dim allButtonsHidden    

allButtonsHidden = True    

' 遍历所有按钮并检查其可见性    

If screen("Button2").Visible Then allButtonsHidden = False    

If screen("Button3").Visible Then allButtonsHidden = False    

If screen("Button4").Visible Then allButtonsHidden = False    

If screen("Button5").Visible Then allButtonsHidden = False    

' 如果所有按钮都已隐藏，则执行某些操作（例如，显示消息框）    

If allButtonsHidden Then    

MsgBox "所有按钮都已隐藏！"    

' 这里可以添加更多逻辑，比如关闭显示所有按钮‘    

End If