添加一个按钮（命名为按钮5），设置属性动作VBS脚本

Sub OnClick(ByVal Item)             
Dim pic
Dim butobj 
Set pic=HMIRuntime.screens("DCR_Layout.PictureWindow2")
Set butobj=screenitems("按钮5")
If pic.Layers(4).visible=vbFalse Then
pic.Layers(4).visible=vbTrue
butobj.text="位号隐藏"
Else pic.Layers(4).visible=vbFalse
butobj.text="位号显示"
End if
End Sub

选择要隐藏注释所在的画面（DCR_Layout.PictureWindow2），因为是使用DCR_Layout.PictureWindow2调用多个画面，所以这样就可以实现所有的画面都隐藏注释。将要隐藏的注释统一设置在Layers(4)这个层数下。这样就可以实现单击按钮按钮5会隐藏DCR_Layout.PictureWindow2画面的第四层。