这一篇博客刚刚在新浪发表,为了避免学习笔记丢失,在这里再发一次。
这个练习使用VBA脚本判断某个名字的页面是不是存在,如果不存在就创建,并且设置长宽尺寸。
在WINCC VBA编辑器写下面的脚本:
Sub CreateHMIPage()
Dim HMIPage, i, exist
exist = 0
For i = 1 To Application.Documents.count
If Application.Documents.Item(i).Name = "VBAPage10" Then
exist = 1
End If
Next
If exist = 0 Then
Set HMIPage = Application.Documents.Add(hmiOpenDocumentTypeVisible)
HMIPage.Width = 1920
HMIPage.Height = 1080
HMIPage.SaveAs ("VBAPage10")
End If
End Sub
运行这个脚本,就可以创建画面了