WINCC 7.5SP2 VBA编程9-创建画面

这一篇博客刚刚在新浪发表，为了避免学习笔记丢失，在这里再发一次。

这个练习使用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

运行这个脚本，就可以创建画面了