System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)

Подождите немного. Документ загружается.

Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

'Definition of triggername and cycletime is to do with the Add-methode

Set objVarTrigger = .Trigger.VariableTriggers.Add("VarTrigger", hmiVariableCycleType_10s)

.SourceCode = ""

End With

End Sub

See also

Add Method (TagTriggers Listing) (Page 1712)

VBA Reference (Page 1664)

Parent Property (Page 2241)

Item Property (Page 2152)

Count Property (Page 2082)

Application Property (Page 2008)

View Object

Description

Represents a copy of a picture. The View object is an element of the Views listing.

You can use the properties of the View object among other things to control the visibility of the

CS layers and to define the zoom.

VBA Object Name

HMIView

Usage

Use Views(Index) to return an individual View object. In the following example the number of

copies of the active picture will be output:

Sub ShowNumberOfExistingViews()

'VBA361

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1991

Dim iMaxViews As Integer

iMaxViews = ActiveDocument.Views.Count

MsgBox "Number of copies from active document: " & iMaxViews

End Sub

Use the Add method to add a new View object to the "Views" listing. In the following example

a copy of the active picture is created and then activated:

Sub AddView()

'VBA362

Dim objView As HMIView

Set objView = ActiveDocument.Views.Add

objView.Activate

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1992

System Manual, 11/2008,

See also

Height Property (Page 2139)

Views Object (Listing) (Page 1993)

SetCSLayerVisible Method (Page 1797)

PrintDocument Method (Page 1782)

IsCSLayerVisible Method (Page 1770)

Delete Method (Page 1745)

Add Method (Views Listing) (Page 1713)

Activate Method (Page 1704)

VBA Reference (Page 1664)

Editing a Copy of a Picture with VBA (Page 1605)

Editing Layers with VBA (Page 1603)

ExtendedZoomingEnable Property (Page 2103)

Zoom Property (Page 2414)

WindowState Property (Page 2412)

Width Property (Page 2408)

Top Property (Page 2311)

ScrollPosY Property (Page 2284)

ScrollPosX Property (Page 2283)

Parent Property (Page 2241)

Left Property (Page 2192)

IsActive Property (Page 2148)

Application Property (Page 2008)

ActiveLayer Property (Page 1996)

Views Object (Listing)

Description

A listing of the View objects that represent a copy of a picture.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1993

VBA Object Name

HMIViews

Usage

Use the Views listing to return a View object. In the following example the number of existing

copies of the active picture will be output:

Sub ShowNumberOfExistingViews()

'VBA363

Dim iMaxViews As Integer

iMaxViews = ActiveDocument.Views.Count

MsgBox "Number of copies from active document: " & iMaxViews

End Sub

Use the Add method to create a copy of a picture. In the following example a copy of the active

picture is created and then activated:

Sub AddViewToActiveDocument()

'VBA364

Dim objView As HMIView

Set objView = ActiveDocument.Views.Add

objView.Activate

End Sub

See also

Item Method (Page 1772)

View Object (Page 1991)

Add Method (Page 1705)

VBA Reference (Page 1664)

Parent Property (Page 2241)

Count Property (Page 2082)

Application Property (Page 2008)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1994

System Manual, 11/2008,

4.4.8 Properties

4.4.8.1 A

Actions Property

Description

Returns the Actions listing. Use the Actions property to configure an event-driven action.

Example:

In this example a button and a circle will be inserted in the active picture. In Runtime the radius

of the circle enlarges every time you click the button:

Sub CreateVBActionToClickedEvent()

'VBA365

Dim objButton As HMIButton

Dim objCircle As HMICircle

Dim objEvent As HMIEvent

Dim objVBScript As HMIScriptInfo

Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_VB", "HMICircle")

Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")

With objCircle

.Top = 100

.Left = 100

.BackColor = RGB(255, 0, 0)

End With

With objButton

.Top = 10

.Left = 10

.Width = 120

.Text = "Increase Radius"

End With

'Define event and assign sourcecode:

Set objVBScript = objButton.Events(1).Actions.AddAction(hmiActionCreationTypeVBScript)

With objVBScript

.SourceCode = "Dim myCircle" & vbCrLf & _

"Set myCircle = HMIRuntime.ActiveScreen.ScreenItems(""Circle_VB"")" & _

vbCrLf & "myCircle.Radius = myCircle.Radius + 5"

End With

End Sub

See also

Actions Object (Listing) (Page 1810)

AddAction Method (Page 1713)

Configuring Event-Driven Actions with VBA (Page 1644)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1995

ActiveDocument Property

Description

Returns an object of the "Document" type which represents the active picture in the Graphics

Designer. If there is no open or active picture in the Graphics Designer, you receive an error

message.

Note

The "ActiveDocument" property refers to the window that possesses the input focus. If other

editors

(e.g. CrossReference) access a picture, the input focus can change. To prevent this

situation leading to errors, reference the picture unambiguously via the Documents listing.

Example:

The "CreateMenuItem()" procedure creates the "Delete Objects" menu and adds two menu

entries ("Delete Rectangles" and "Delete Circles").

Sub CreateMenuItem()

'VBA366

Dim objMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

'Create new menu "Delete Objects":

Set objMenu = ActiveDocument.CustomMenus.InsertMenu(1, "DeleteObjects", "Delete Objects")

'Add two menuitems to the menu "Delete Objects

Set objMenuItem = objMenu.MenuItems.InsertMenuItem(1, "DeleteAllRectangles", "Delete

Rectangles")

Set objMenuItem = objMenu.MenuItems.InsertMenuItem(2, "DeleteAllCircles", "Delete Circles")

End Sub

See also

Documents Object (Listing) (Page 1850)

ActiveLayer Property

Description

Defines or returns the active layer for the View object. The value range is from 0 to 31, where

"0" represents the uppermost layer and "31" the lowest layer.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1996

System Manual, 11/2008,

Example:

The "ActiveDocumentConfiguration()" procedure accesses the properties of the current picture

in the Graphics Designer. In this example a new View object is created and layer 1 is set to

"Active":

Sub ActiveDocumentConfiguration()

'VBA367

Application.ActiveDocument.Views.Add

Application.ActiveDocument.Views(1).ActiveLayer = 2

End Sub

See also

View Object (Page 1991)

ActualPointLeft Property

Description

Defines or returns the X coordinate of the current corner point by reference to the picture origin

(top left) for the objects "Polygon" and "Polyline". Each corner point is identified by an index

which is derived from the number ("PointCount") of corner point available.

A change of the value can affect the properties "Width" (object width) and "Left" (x-coordinate

of the object position).

Example:

The "PolygonCoordinatesOutput()" procedure outputs the coordinates of all the corner points

in the first polyline in the current picture:

Sub PolygonCoordinatesOutput()

'VBA368

Dim objPolyline As HMIPolyLine

Dim iPosX As Integer

Dim iPosY As Integer

Dim iCounter As Integer

Dim strResult As String

iCounter = 1

Set objPolyline = ActiveDocument.HMIObjects.AddHMIObject("Polyline1", "HMIPolyLine")

For iCounter = 1 To objPolyline.PointCount

With objPolyline

.index = iCounter

iPosX = .ActualPointLeft

iPosY = .ActualPointTop

End With

strResult = strResult & vbCrLf & "Corner " & iCounter & ": x=" & iPosX & " y=" & iPosY

Next iCounter

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1997

MsgBox strResult

End Sub

See also

PointCount Property (Page 2256)

Index Property (Page 2145)

ActualPointTop Property (Page 1998)

PolyLine Object (Page 1928)

Polygon Object (Page 1925)

Line Object (Page 1897)

ActualPointTop Property

Description

Defines or returns the Y coordinate of the current corner point by reference to the picture origin

(top left) for the objects "Polygon" and "Polyline". Each corner point is identified by an index

which is derived from the number ("PointCount") of corner point available.

A change of the value can affect the properties "Height" (object height) and "Top" (y-coordinate

of the position).

Example:

The "Polygon()" procedure outputs the coordinates of all the corner points in the first polyline

in the current picture:

Sub PolygonCoordinatesOutput()

'VBA369

Dim objPolyline As HMIPolyLine

Dim iPosX As Integer

Dim iPosY As Integer

Dim iCounter As Integer

Dim strResult As String

iCounter = 1

Set objPolyline = ActiveDocument.HMIObjects.AddHMIObject("Polyline1", "HMIPolyLine")

For iCounter = 1 To objPolyline.PointCount

With objPolyline

.index = iCounter

iPosX = .ActualPointLeft

iPosY = .ActualPointTop

End With

strResult = strResult & vbCrLf & "Corner " & iCounter & ": x=" & iPosX & " y=" & iPosY

Next iCounter

MsgBox strResult

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

1998

System Manual, 11/2008,

End Sub

See also

PointCount Property (Page 2256)

Index Property (Page 2145)

ActualPointLeft Property (Page 1997)

PolyLine Object (Page 1928)

Polygon Object (Page 1925)

Line Object (Page 1897)

AdaptBorder Property

Description

TRUE if the field border is intended to adapt dynamically to the size of the text. BOOLEAN

write-read access.

Note

Changing the contents of a field dynamically can cause pumping in the field.

Performance is improved in Runtime by using "AdaptBorder = False".

Example:

The "IOFieldConfiguration()" procedure accesses the properties of the I/O field. In this example

the text size is dynamically adapted to the field size.

Sub IOFieldConfiguration()

'VBA372

Dim objIOField As HMIIOField

'Add new IO-Feld to active document:

Set objIOField = ActiveDocument.HMIObjects.AddHMIObject("IOField1", "HMIIOField")

With objIOField

.AdaptBorder = True

End With

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

1999

See also

OptionGroup Object (Page 1916)

TextList Object (Page 1964)

StaticText Object (Page 1956)

IOField Object (Page 1886)

CheckBox Object (Page 1827)

Button Object (Page 1824)

AdaptPicture Property

Description

TRUE if the picture size is to be adapted to the picture window size. BOOLEAN write-read

access.

Example:

The "PictureWindowConfig" procedure accesses the properties of the picture window. In this

example the picture window will be configured:

Sub PictureWindowConfig()

'VBA373

Dim objPicWindow As HMIPictureWindow

'Add new picturewindow into active document:

Set objPicWindow = ActiveDocument.HMIObjects.AddHMIObject("PicWindow1", "HMIPictureWindow")

With objPicWindow

.AdaptPicture = False

.AdaptSize = False

.Caption = True

.CaptionText = "Picturewindow in runtime"

.OffsetLeft = 5

.OffsetTop = 10

'Replace the picturename "Test.PDL" with the name of

'an existing document from your "GraCS"-Folder of your active project

.PictureName = "Test.PDL"

.ScrollBars = True

.ServerPrefix = ""

.TagPrefix = "Struct."

.UpdateCycle = 5

.Zoom = 100

End With

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2000

System Manual, 11/2008,