WINCCV7.5SP2使用VBA一次性添加多个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域控件关联了一个变量，均匀布置。