我试了几次,通过这个条件,内容不能显示,这是为什么?t1是弹出窗口中的静态文本,谢谢!
代码如下:
Sub Visible_OnPropertyChanged(Byval Item, Byval value)
”””””””””””SEQ_control_transfer_condition””””””””””””””””””
Dim P1
Set P1=ScreenItems("t1")
If HMIRuntime.Tags("Transfer_Condition_Tree5401.3_VALVE_OPND_ALL").Read=TrUE Then
P1.Text="三通阀没有全部通路"MsgBOX "
elseif HMIRuntime.Tags("Transfer_Condition_Tree5401.WT_Check").Read=TrUE Then
P1.Text="配方重量大于储罐余量"
Elseif HMIRuntime.Tags("Transfer_Condition_Tree5401.FT_WT_Fault_Check").Read=TrUE Then
P1.Text="流量计或称重模块”
End If
End Sub
最佳答案
1、P1所在的弹窗是窗口画面吗?默认是显示的还是隐藏的?隐藏的话,先设置那个画面窗口的visible属性=1看看
2、P1.Text="三通阀没有全部通路"MsgBOX ",这一行是这样的吗,后面的msgbox什么意思
3、可能P1对象设置的不对,先把画面显示出来,用按钮改变P1的文本,看看可以不,不能的话,那就是对象设置的不对
应该这样set p1 = hmiruntime.screens("").screenitems("t1")
提问者对于答案的评价:
试了还是不行,我用C了,谢谢!
原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc318914.html