我试了几次，通过这个条件，内容不能显示，这是为什么？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
微信扫一扫 
支付宝扫一扫 