加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

WINCCV7.5SP2使用VBA一次性添加多个IO域控件,并设置其连接的变量

(2024-09-25 10:50:31)
标签:

西门子

wincc

vba脚本

创建对象

设置属性

分类: 西门子软硬件
前面的练习是先在页面手工放置IO域,然后使用VBA脚本批量设置连接的变量。这个练习进一步,使用VBA脚本创建IO域控件,并设置连接的变量。这个练习自动创建20个IO域,名字叫做IO1至IO20,并设置其连接的变量,为Real1至Real20;IO域控件宽度为55,高度为50,字体大小为13,均匀排列布置。
在前面项目程序上新建页面VBAPage1,这是空白的页面,点击菜单工具-宏-visual basic编辑器,写下面的脚本:
Sub HMI_CreateIOFieldObj()
Dim obj, objdynamic, i
Dim x, y
x = 0
y = 100
For i = 1 To 20
    Set obj = ActiveDocument.HMIObjects.AddHMIObject("IO" & CStr(i), "HMIIOField")
    obj.Width = 55
    obj.Height = 50
    obj.FONTSIZE = 13
    obj.Left = x
    obj.Top = y
    x = x + 60
    Set objdynamic = obj.OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "Real" & CStr(i))
Next
End Sub
保存脚本,确认VBAPage1是当前活动页面,运行这个脚本,就可以看到VBAPage1上创建了20个IO域控件,每个IO域控件关联了一个变量,均匀布置。
WINCCV7.5SP2使用VBA一次性添加多个IO域控件,并设置其连接的变量

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有