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

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

.BackColor = RGB(255, 0, 0)

End With

With objButton

.Top = 10

.Left = 10

.Width = 100

.Text = "SetPosition"

End With

'Directconnection is initiated by mouseclick:

Set objDirConnection =

objButton.Events(1).Actions.AddAction(hmiActionCreationTypeDirectConnection)

With objDirConnection

'Sourceobject: Property "Top" of Rectangle_A

.SourceLink.Type = hmiSourceTypeProperty

.SourceLink.ObjectName = "Rectangle_A"

.SourceLink.AutomationName = "Top"

'Targetobject: Property "Left" of Rectangle_B

.DestinationLink.Type = hmiDestTypeProperty

.DestinationLink.ObjectName = "Rectangle_B"

.DestinationLink.AutomationName = "Left"

End With

End Sub

See also

AutomationName Property (Page 2011)

ObjectName Property (Page 2232)

Type Property (Page 2315)

DirectConnection Object (Page 1845)

Direction Property

Description

Defines or returns the bar direction. BOOLEAN write-read access.

Slider

Defines or returns the position of the Slider object. BOOLEAN write-read access.

Position/Bar Axis Assigned Value

Vertical/Negative TRUE

Horizontal/Positive FALSE

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2091

Example:

The "SliderConfiguration()" procedure accesses the properties of the slider. In this example

the position of the Slider object will be set to "Vertical":

Sub SliderConfiguration()

'VBA478

Dim objSlider As HMISlider

Set objSlider = ActiveDocument.HMIObjects.AddHMIObject("SliderObject1", "HMISlider")

With objSlider

.Direction = True

End With

End Sub

See also

Slider object (Page 1952)

3DBarGraph Object (Page 1805)

DisableVBAEvents Property

Description

TRUE if Event Handling is disabled. BOOLEAN write-read access.

Example:

The "DisableVBAEvents()" procedure disables Event Handling:

Sub DisableVBAEvents()

'VBA479

Application.DisableVBAEvents = False

End Sub

See also

Application Object (Page 1814)

Event Handling (Page 1655)

DisplayName Property

Description

Returns the name of the property attribute. STRING read access.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2092

System Manual, 11/2008,

Thus the expression "MsgBox

ActiveDocument.HMIObjects("Circle_1").Properties("Height").DisplayName"

would output the

result "Height".

Example:

The "ShowAllObjectDisplayNames()" procedure outputs all the property attribute names of

standard objects contained in the message box:

Sub ShowAllObjectDisplayNames()

'VBA480

Dim strOutput As String

Dim iIndex1 As Integer

iIndex1 = 1

strOutput = "List of all properties-displaynames from object """ &

Application.DefaultHMIObjects(1).ObjectName & """" & vbCrLf & vbCrLf

For iIndex1 = 1 To Application.DefaultHMIObjects(1).Properties.Count

strOutput = strOutput & Application.DefaultHMIObjects(1).Properties(iIndex1).DisplayName &

" / "

Next iIndex1

MsgBox strOutput

End Sub

See also

Property Object (Page 1932)

DisplayOptions Property

Description

Defines the assignment of the "Button" or "Round button" object or returns its value. Value

range from 0 to 3.

Assignment Assigned Value

Graphic or text 0

Graphic and text 1

Text only 2

Graphic only 3

Example:

The "ButtonConfiguration()" procedure accesses the properties of the button.

In this example the button is assigned "Graphic and text":

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2093

Sub ButtonConfiguration()

'VBA814

Dim objbutton As HMIButton

Set objbutton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")

With objbutton

.DisplayOptions = 1

End With

End Sub

See also

Button Object (Page 1824)

DisplayText Property

Description

Returns the value for the "Label" or "TooltipText" property of the following objects (STRING

read access):

● Menu Object

● MenuItem Object

● ToolbarItem Object

Example:

The "ShowLabelTexts()" procedure outputs all the labels of the first user-defined menu in the

current picture:

Sub ShowLabelTexts()

'VBA481

Dim objLangText As HMILanguageText

Dim iIndex As Integer

For iIndex = 1 To ActiveDocument.CustomMenus(1).LDLabelTexts.Count

Set objLangText = ActiveDocument.CustomMenus(1).LDLabelTexts(iIndex)

MsgBox objLangText.DisplayName

Next iIndex

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2094

System Manual, 11/2008,

See also

ToolTipText Property (Page 2310)

Label Property (Page 2157)

ToolbarItem Object (Page 1970)

LanguageText Object (Page 1892)

MenuItem Object (Page 1906)

Menu Object (Page 1903)

Documents Property

Description

Returns the Documents listing containing all open pictures. The open pictures are in

chronological order.

Example:

In the following example the names of all open pictures are output:

Sub ShowDocuments()

'VBA482

Dim colDocuments As Documents

Dim objDocument As Document

Dim strOutput As String

Set colDocuments = Application.Documents

strOutput = "List of all opened documents:" & vbCrLf

For Each objDocument In colDocuments

strOutput = strOutput & vbCrLf & objDocument.Name

Next objDocument

MsgBox strOutput

End Sub

See also

Application Property (Page 2008)

Application Object (Page 1814)

Dynamic Property

Description

Returns the dynamics of a property.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2095

Example:

Use the Dynamic property if you wish to return, say, an existing dynamic. In the following

example all possibly available object property dynamics are output in the active picture:

Sub ShowPropertiesDynamicsofAllObjects()

'VBA483

Dim objObject As HMIObject

Dim colObjects As HMIObjects

Dim colProperties As HMIProperties

Dim objProperty As HMIProperty

Dim strOutput As String

Set colObjects = Application.ActiveDocument.HMIObjects

For Each objObject In colObjects

Set colProperties = objObject.Properties

For Each objProperty In colProperties

If 0 <> objProperty.DynamicStateType Then

strOutput = strOutput & vbCrLf & objObject.ObjectName & " - " & objProperty.DisplayName

& ": Statetype " & objProperty.Dynamic.DynamicStateType

End If

Next objProperty

Next objObject

MsgBox strOutput

End Sub

See also

Property Object (Page 1932)

4.4.8.5 E

EditAtOnce Property

Description

TRUE, if accessing the field with the <TAB> key permits input immediately and without further

action. BOOLEAN write-read access.

Example:

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

it shall be possible to enter input on skipping into the I/O field:

Sub IOFieldConfiguration()

'VBA484

Dim objIOField As HMIIOField

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

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2096

System Manual, 11/2008,

With objIOField

.EditAtOnce = True

End With

End Sub

See also

TextList Object (Page 1964)

IOField Object (Page 1886)

ElseCase Property

Description

Defines or returns the value for the dynamic property outside of the configured value range.

Example:

In the following example the radius of a circle will be dynamically configured using the Dynamic

dialog, a tag name will be assigned and three analog value ranges will be created:

Sub AddDynamicDialogToCircleRadiusTypeAnalog()

'VBA485

Dim objDynDialog As HMIDynamicDialog

Dim objCircle As HMICircle

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

Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,

"'NewDynamic1'")

With objDynDialog

.ResultType = hmiResultTypeAnalog

.AnalogResultInfos.Add 50, 40

.AnalogResultInfos.Add 100, 80

.AnalogResultInfos.ElseCase = 100

End With

End Sub

See also

AnalogResultInfos Object (Listing) (Page 1813)

AnalogResultInfo Object (Page 1812)

Add Method (AnalogResultInfos Listing) (Page 1706)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2097

Enabled Property

Description

TRUE if the menu, the menu entry or the icon is activated and can be selected. Applies only

to user-defined menus and toolbars. BOOLEAN write-read access.

Example:

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

entries ("Delete Rectangles" and "Delete Circles"): In this example the second menu point in

user-defined menu "Delete Objects" is grayed out and cannot be selected in the Graphics

Designer:

Sub DisableMenuItem()

'VBA486

Dim objMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

'Add a new menu "Delete objects"

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

'Add two menuitems to the new menu

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

rectangles")

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

'Disable menuitem "Delete circles"

With ActiveDocument.CustomMenus("DeleteObjects").MenuItems("DeleteAllCircles")

.Enabled = False

End With

End Sub

See also

ToolbarItem Object (Page 1970)

MenuItem Object (Page 1906)

Menu Object (Page 1903)

Configuring Menus and Toolbars (Page 1572)

EndAngle Property

Description

Defines or returns the end of the object for the CircularArc, EllipseArc, EllipseSegment and

PieSegment

objects. The information is in counterclockwise direction in degrees, beginning at

the 12:00 clock position.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2098

System Manual, 11/2008,

Example:

The "PieSegmentConfiguration()" procedure accesses the properties of the Pie Segment. In

this example the pie segment begins at 40° and ends at 180°:

Sub PieSegmentConfiguration()

'VBA487

Dim objPieSegment As HMIPieSegment

Set objPieSegment = ActiveDocument.HMIObjects.AddHMIObject("PieSegment1", "HMIPieSegment")

With objPieSegment

.StartAngle = 40

.EndAngle = 180

End With

End Sub

See also

StartAngle Property (Page 2296)

PieSegment Object (Page 1922)

EllipseSegment Object (Page 1859)

EllipseArc Object (Page 1856)

CircularArc Object (Page 1831)

Events Property

Description

Returns the Events listing. Use the Events property to define the event that will trigger an

action. Use the index number to define the event that is intended to be configured:

● You configure an action on a property with VBA by using the "Events(1)" property, where

the index "1" stands for the event "Upon change":

● To configure an action onto an object with the aid of VBA, use the "Events(Index)" property,

where "Index" stands for the trigger event (see table):

Index EventType (depending upon the object used)

0 hmiEventTypeNotDefined

1 hmiEventTypeMouseClick

2 hmiEventTypeMouseLButtonDown

3 hmiEventTypeMouseLButtonUp

4 hmiEventTypeMouseRButtonDown

5 hmiEventTypeMouseRButtonUp

6 hmiEventTypeKeyboardDown

7 hmiEventTypeKeyboardUp

8 hmiEventTypeObjectChange

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2099

Index EventType (depending upon the object used)

9 hmiEventTypePropertyChange

10 hmiEventTypePropertyStateChange

11 hmiEventTypePictureOpen

12 hmiEventTypePictureClose

13 hmiEventTypeObjectDefined

14 hmiEventTypeFocusEnter

15 hmiEventTypeLastTriggerType

16 hmiEventTypeObjSpecificTriggerStart

Example:

In the following example the X position of "Rectangle_A" is copied to the Y position of

"Rectangle_B" in Runtime by clicking on the button:

Sub DirectConnection()

'VBA488

Dim objButton As HMIButton

Dim objRectangleA As HMIRectangle

Dim objRectangleB As HMIRectangle

Dim objEvent As HMIEvent

Dim objDirConnection As HMIDirectConnection

Set objRectangleA = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_A", "HMIRectangle")

Set objRectangleB = ActiveDocument.HMIObjects.AddHMIObject("Rectangle_B", "HMIRectangle")

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

With objRectangleA

.Top = 100

.Left = 100

End With

With objRectangleB

.Top = 250

.Left = 400

.BackColor = RGB(255, 0, 0)

End With

With objButton

.Top = 10

.Left = 10

.Width = 100

.Text = "SetPosition"

End With

'Directconnection is initiated by mouseclick:

Set objDirConnection =

objButton.Events(1).Actions.AddAction(hmiActionCreationTypeDirectConnection)

With objDirConnection

'Sourceobject: Property "Top" of Rectangle_A

.SourceLink.Type = hmiSourceTypeProperty

.SourceLink.ObjectName = "Rectangle_A"

.SourceLink.AutomationName = "Top"

'Targetobject: Property "Left" of Rectangle_B

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2100

System Manual, 11/2008,