Lập trình ứng dụng với Visual Basic (VBS, VBE, ...) trong WinCC 7

[ncrazy]

anh search đươc cái này trên siemens em làm thử xem:
I actually found solution myself. togue

To create new picture via VBA you can use something like this:

Sub NewPicture()
Dim objDocument As Document
Dim FileName As String
Dim FolderPath As String

FileName = "NewPicture.pdl"
FolderPath = "C:\Program Files\Siemens\Step7\S7Proj\Step7ProjectName\wincpr oj\WinCCProjectName\GraCs\"

Set objDocument = Application.Documents.Add(hmiOpenDocumentTypeVisib le)
objDocument.BackColor = RGB(73, 73, 73)
objDocument.Width = 500
objDocument.Height = 500

objDocument.SaveAs (FolderPath & FileName)
objDocument.Close
End Sub

//================================================== ====================
And to modify existing picures this:

Sub AddNewObjectToPicture()


Dim objDocument As Document
Dim objObject As HMIObject

Set objDocument = Application.Documents.Open("C:\Program Files\Siemens\Step7\S7Proj\Step7ProjectName\wincpr oj\WinCCProjectName\GraCs\NewPicture.pdl")
Set objObject = ActiveDocument.HMIObjects.AddHMIObject("CircleAsHM IObject", "HMICircle")
objDocument.Save
objDocument.Close
End Sub



But there is still one existing problem. How do I search my GraCs folder for all .pdl files?



=== Edited by lvlcek @ 10/14/2012 2:09 PM [GMT ] ===

[hungvd]

Dear Đại ca,

Em sẽ thử nếu được sẻ Report

Dear Hưng, ở đây anh muốn sử dụng nhiều cửa sổ popup (Picture Window) cho nhiều đối tượng nhưng nếu tạo sẵn thì project quá nặng nên anh muốn khi runtime cần chạy cửa sổ nào tạo cửa sổ đó

[dohung]

Dear Mr Hùng, anh chỉ cần tạo 1 cửa sổ là được, em đang nói tới cách dùng 1 pup-up.

Dear Đại ca,

Em sẽ thử nếu được sẻ Report

Dear Hưng, ở đây anh muốn sử dụng nhiều cửa sổ popup (Picture Window) cho nhiều đối tượng nhưng nếu tạo sẵn thì project quá nặng nên anh muốn khi runtime cần chạy cửa sổ nào tạo cửa sổ đó

[hungvd]

Dear Hưng,

Vấn đề anh muốn là nhiều khi sẽ có nhiều cửa sổ hiển thị 1 lúc chứ ko phải 1 .Vụ Tagprefix anh đã làm rồi ko có vấn đề j.

Dear đại ca em đã thử rồi đoạn code của anh đúng là VBA chứ ko phải VBS nên ko sử dụng được.