找答案的高端用户(找答案钻石及双钻级别的用户)将尽可能从此问题下的所有回
答中,为您推荐最佳答案。届时您可以根据推荐数采纳答案。
如果自提问时间起7天内您仍无法选出最佳答案,您可以选择“无满意答案”关闭此问题。
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")
Dim P1
Dim Tag1,Tag2,Tag3
Set P1 = ScreenItems("t1")
Set Tag1= HMIRuntime.Tags("Transfer_Condition_Tree5401.3_VALVE_OPND_ALL")
Tag1.read
Set Tag2= HMIRuntime.Tags("Transfer_Condition_Tree5401.WT_Check")
Tag2.read
Set Tag3= HMIRuntime.Tags("Transfer_Condition_Tree5401.FT_WT_Fault_Check")
Tag3.read
If Tag1.Value = 1 Then
P1.Text="三通阀没有全部通路"
Elseif Tag2.Value = 1 Then
P1.Text="配方重量大于储罐余量"
Elseif Tag3.Value = 1 Then
P1.Text="流量计或称重模块"
End If
首次回答问题,获得
双倍西币积分!
立即成为技术知识分享的一员!
找答案微信小程序
提问
搜索
欢迎您访问支持中心!
丰富的视频,全方位的文档,大量的网友交流精华……
为了更好的完善这些内容,我们诚邀您在浏览结束后,花20秒左右的时间,完成一个用户在线调查!
感谢您的支持!