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

标签：控件 VBA WINCCV7.5 obj 变量 IO 页面

这篇博客发表在某浪上，截至目前还没有通过审查，在这里也发一遍。

前面的练习是先在页面手工放置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域控件关联了一个变量，均匀布置。

 

标签：控件,VBA,WINCCV7.5,obj,变量,IO,页面
From： https://www.cnblogs.com/fishingsriver/p/18431099