回复:WINCC WebNavigator 如何检测不支持的VB脚本或函数

任天堂

  • 帖子

    10
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2010-11-10

普通 普通 如何晋级?

发布于 2018-11-30 14:09:04

3楼

展开查看
以下是引用城外之人在2018-11-30 07:56:08的发言 >1楼

在发布的时候,系统会检测啊。要勾选VBS脚本。

我的脚本是写在按钮里的,发布的时候没有任何报错,但是有些语句没哟生效。

我把代码发出来帮我看下吧。

 在本地执行都是正常的,客户端执行有问题, 在线表格控件没有创建“A相电流”这一列


Dim pic,pic1

Set pic=HMIRuntime.screens("main").ScreenItems("画面窗口6") '获取pf-zhengwen画面里的子画面"画面窗口1"

Dim Prefix

Dim guidang

Set pic1=HMIRuntime.screens("main").ScreenItems("画面窗口4") '获取pf-zhengwen画面里的子画面"画面窗口1"


Prefix=pic1.TagPrefix ‘变量前缀字符串

guidang="power" ‘归档名字符串

pic.Visible=True '设置可见


Dim objControl

Dim objTimeColumn

Dim objValueColumn


Set objControl =HMIRuntime.Screens("main.画面窗口6:Power_Report").ScreenItems("控件2")

' Control wide specification

objControl.ColumnResize = False

objControl.TimeBase = 1

objControl.TimeColumnTimeFormat = "HH:mm:ss tt"

objControl.TimeColumnLength = 20

Set objTimeColumn = objControl.GetTimeColumn("时间")

objTimeColumn.DateFormat = "dd/MM/yy"


Set objValueColumn = objControl.GetValueColumnCollection.AddItem("A相电流") 

objValueColumn.Caption = "A相电流"

objValueColumn.Length = 10

objValueColumn.Align = 0

objValueColumn.Provider = 1

objValueColumn.AutoPrecisions=0

objValueColumn.Precisions=1

objValueColumn.TagName = guidang&"\"&Prefix&".Ia"

objValueColumn.TimeColumn = "时间"


评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC WinCC / Panel

共有32563条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。