WINCCV7.5SP2使用VBA一次性修改多个IO域连接的变量2_来自金沙江的小鱼

个人资料

微博

正文字体大小：大中小

WINCCV7.5SP2使用VBA一次性修改多个IO域连接的变量2

(2024-09-25 09:47:29)

标签：

分类：西门子软硬件

前面的练习属于初次练习，这一个稍微深入一下。假设页面上还有其他的IO域，其它IO域对象名字不是IO+数字的形式，我只是希望把对象名字叫做IO1至IO20这20个IO域进行批量修改，其它的IO域不做修改，那么需要写下面的脚本。

Sub IOField_OutputValueTrigger1()

Dim objects

Dim obj

Dim objdynamic

Dim i

Set objects = ActiveDocument.HMIObjects.Find(ObjectName:="IO*", objecttype:="HMIIOField")

For i = 1 To objects.count

Set objdynamic = objects.Item(i).OutputValue.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "Real" & CStr(i))

End Sub

保存运行脚本，就可以只对IO1至IO20这20个IO域关联相应变量了。

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