恭喜,你发布的帖子
发布于 2024-11-21 23:29:38
5楼
' 获取当前画面的引用
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
请填写推广理由:
分享
只看
楼主