×

您收到0封站内信：

×

找答案的高端用户（找答案钻石及双钻级别的用户）将尽可能从此问题下的所有回

答中，为您推荐最佳答案。届时您可以根据推荐数采纳答案。

如果自提问时间起7天内您仍无法选出最佳答案，您可以选择“无满意答案”关闭此问题。

{{item.C_Name}}

问题

MsgBox 第一次弹出时在后台。。。

1

1385 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

参考程序如下，运行基本没啥问题
就是激活WINCC 项目后，第一次触发条件弹出的MsgBox会在后台，而我项目是全屏的，不看任务栏都不知道弹MsgBox了，这时候如果不点MsgBox的确认，还能继续操作画面，VBS就不往后执行了。。。
去了MsgBox倒是可以，不是很想去

Option Explicit
Function action
Dim Array(100),str,i,j,a,KMCK
Set KMCK=HMIRuntime.Tags("KMCK")
KMCK.Read
For i=1 To 100
Set Array(i)=HMIRuntime.Tags("库名"&i)
Array(i).Read
'str=str&"array"&"("&i&")"&"="&Array(i).value&"  "
Next
'MsgBox str
For i=1 To 99
     For j=i+1 To 100
        If  Array(i).value<>"" Then
          If Array(i).value=Array(j).value Then
          MsgBox i&"#和"&j&"#重复,请重新输入"
          HMIRuntime.Tags("库名"&KMCK.value).write ""
          KMCK.write 0
             'Exit For
          End If
        End If
     Next
Next
HMIRuntime.Tags("CKflag").Write 0
End Function

问题补充：

扫码小程序：

一键登录查看全部问答

godlike0091 学长

被采纳率低

问题为何被关闭

分享

手机扫码追踪该问题，
觉得实用，立即去分享！

点击复制链接
举报

去论坛讨论

其实这个可以通过向MsgBox传递指定的按钮模式来实现功能
你的源代码是：
MsgBox str

你可以试一下用：
MsgBox str, vbYesNo+vbSystemModal，“标题栏”

这样的话你你必须点击按钮，才能进行其他的操作，而且这个按钮会在最前面，在WinCC中其他的都不能干，而且这个画面会显示在最上层。“标题栏” 可以填写自定义内容，也可以不要。

volcanol 中级技术员

被采纳率 26.98% 2017-09-27 14:58

提问者对于答案的评价

暂无评价

godlike0091

被采纳率低 2017-09-22 17:02

查看其他答案

等您来回答换一换

{{item.Title}} {{item.Title}}: {{item.CoinValue}}西币 {{item.VisitNum}}人想问
我来答我来答

本版相关问题换一换

{{item.Title}} {{item.Title}}: {{item.AnswerCount}}个回答 {{item.VisitNum}}人关注

MsgBox 第一次弹出时在后台。。。

西门子找答案

首次回答问题，获得
双倍西币积分！
立即成为技术知识分享的一员!

积分

{{item.MenuName}}

{{item.MenuName}}

本版热门问题更多

{{item.Title}}: {{item.AnswerCount}}个回答 {{item.ReadCount}}人关注

热门视频，猜你喜欢

向您推荐换一换

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

{{item.Title}} {{item.Title}}

: 玩赚618 | 每天回答开宝箱赢大奖

: 玩赚618 | 每天提问开宝箱赢大奖

热搜榜单
问题榜单


{{index+1}}: {{item.Title}}

{{item.CloseDate}}

{{item.Title}}

{{item.VisitNum}}人关注 {{item.CloseDate}}

找答案微信小程序

提问
搜索

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。