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

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

Properties Object (Listing)

Description

A listing of the Property objects that represent all the properties of an object.

VBA Object Name

HMIProperties

Usage

Use the Properties(Index) property in order to return a Property object if you cannot access

an object property directly. For "Index" you can use either the index number or the VBA property

name of the object. In the following example the Properties property has to be used to access

the individual properties of a circle. The circle will be inserted into the picture as an HMIObject

object:

Sub AddObject()

'VBA319

Dim objObject As HMIObject

Set objObject = ActiveDocument.HMIObjects.AddHMIObject("CircleAsHMIObject", "HMICircle")

'Standard properties (e.g. "Position") are available every time:

objObject.Top = 40

objObject.Left = 40

'Individual properties have to be called using

'property "Properties":

objObject.Properties("FlashBackColor") = True

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,

1931

See also

Item Method (Page 1772)

VBA Reference (Page 1664)

Editing Objects with VBA (Page 1606)

Parent Property (Page 2241)

Count Property (Page 2082)

Application Property (Page 2008)

Property Object

Description

Represents the property of an object. In the case of the Property object the use of the Value

property is set as the default. For this reason you can use the following notation in order for

example to assign a new value to an object property:

You can use the "Dynamic" property in order to make an object property dynamic with VBA.

Use the "Events" listing in order to configure actions with VBA.

The Property object is an element of the Properties listing.

VBA Object Name

HMIProperty

Usage

Use Properties(Index) to return an individual Property object. For "Index" you can use either

the

index number or the name of the object property. In the following example the name of the

first property of the Circle object will be output:

Sub ShowFirstObjectOfCollection()

'VBA317

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

1932

System Manual, 11/2008,

Dim objCircle As HMICircle

Dim strName As String

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

strName = objCircle.Properties(1).Name

MsgBox strName

End Sub

Use the CreateDynamic method to make an object property dynamic. In the following example

the "Radius" property of a circle object will be made dynamic with the aid of the tag "Otto",

which is updated every two seconds:

Sub DynamicToRadiusOfNewCircle()

'VBA318

Dim objVariableTrigger As HMIVariableTrigger

Dim objCircle As HMICircle

Set objCircle = ActiveDocument.HMIObjects("Circle")

Set objVariableTrigger =

objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVariableDirect, "NewDynamic1")

objVariableTrigger.CycleType = hmiCycleType_2s

End Sub

See also

DisplayName Property (Page 2092)

Properties Object (Listing) (Page 1931)

DeleteDynamic Method (Page 1747)

CreateDynamic Method (Page 1742)

VBA Reference (Page 1664)

Creating Dynamics with VBA (Page 1631)

Editing Objects with VBA (Page 1606)

Value Property (Page 2331)

Type Property (Page 2315)

Parent Property (Page 2241)

Name Property (Page 2228)

IsDynamicable Property (Page 2150)

Events Property (Page 2099)

Dynamic Property (Page 2095)

Application Property (Page 2008)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

1933

QualityCodeStateValue Object

Description

Represents the quality code of a tag which is assigned in the dynamic dialog and used for

dynamization.

VBA Object Name

HMIQualityCodeStateValue

Object properties

The object QualityCodeStateValue has the following properties:

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

1934

System Manual, 11/2008,

See also

VALUE_BAD_CONFERROR Property (Page 2338)

VBA Reference (Page 1664)

VarName Property (Page 2403)

VALUE_UNCERT_SUBSTSET Property (Page 2397)

VALUE_UNCERT_SIMVAL Property (Page 2395)

VALUE_UNCERT_PROCRELNOM Property (Page 2393)

VALUE_UNCERT_NONSPECIFIC Property (Page 2391)

VALUE_UNCERT_MISCSTATES Property (Page 2389)

VALUE_UNCERT_MAINTDEM Property (Page 2387)

VALUE_UNCERT_LUV Property (Page 2385)

VALUE_UNCERT_INITVAL Property (Page 2383)

VALUE_UNCERT_ENGVONLIM Property (Page 2381)

VALUE_UNCERT_ENGVLOWLIM Property (Page 2379)

VALUE_UNCERT_ENGVHIGHLIM Property (Page 2378)

VALUE_LOWLIMITED Property (Page 2363)

VALUE_HIGHLIMITED Property (Page 2359)

VALUE_BAD_PROCRELSUB Property (Page 2352)

VALUE_BAD_PROCRELNOM Property (Page 2350)

VALUE_BAD_OUTOFSERV Property (Page 2348)

VALUE_BAD_NOTCONNECTED Property (Page 2346)

VALUE_BAD_NONSPECIFIC Property (Page 2344)

VALUE_BAD_MISCSTATES Property (Page 2342)

VALUE_BAD_DEVICE Property (Page 2340)

VALUE_BAD_COMMNUV Property (Page 2336)

VALUE_BAD_COMMLUV Property (Page 2335)

Parent Property (Page 2241)

Application Property (Page 2008)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

1935

QualityCodeStateValues Object (Listing)

Description

A listing of QualityCodeStateValue objects which contain all quality codes in Dynamic dialog

and are used for dynamization.

VBA Object Name

HMIQualityCodeStateValues

Usage

For example, use the Item property to define values in Dynamic dialog which will be used for

dynamization when the specified tag returns the configured quality code. In the following

example the radius of a circle is given dynamics with the Dynamization uses the analysis of

the quality code of a tag. If the tag fails to return a quality code, a substitute value (ElseCase

property) is defined:

Sub AddDynamicDialogToCircleRadiusTypeAnalog()

'VBA813

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.ElseCase = 200

'Activate qualitycode-statecheck

.QualityCodeStateChecked = True

End With

With objDynDialog.QualityCodeStateValues(1)

'define a value for every state:

.VALUE_BAD_COMMLUV = 20

.VALUE_BAD_COMMNUV = 30

.VALUE_BAD_CONFERROR = 40

.VALUE_BAD_DEVICE = 60

.VALUE_BAD_MISCSTATES = 70

.VALUE_BAD_NONSPECIFIC = 80

.VALUE_BAD_NOTCONNECTED = 90

.VALUE_BAD_OUTOFSERV = 100

.VALUE_BAD_PROCRELNOM = 110

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

1936

System Manual, 11/2008,

.VALUE_BAD_PROCRELSUB = 120

.VALUE_HIGHLIMITED = 130

.VALUE_LOWLIMITED = 140

.VALUE_UNCERT_ENGVHIGHLIM = 150

.VALUE_UNCERT_ENGVLOWLIM = 160

.VALUE_UNCERT_INITVAL = 170

.VALUE_UNCERT_LUV = 180

.VALUE_UNCERT_MAINTDEM = 190

.VALUE_UNCERT_MISCSTATES = 200

.VALUE_UNCERT_NONSPECIFIC = 210

.VALUE_UNCERT_PROCRELNOM = 220

.VALUE_UNCERT_SIMVAL = 230

.VALUE_UNCERT_SUBSTSET = 240

End With

End Sub

Object properties

The object QualityCodeStateValues has the following properties:

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

1937

See also

VALUE_UNCERT_MAINTDEM Property (Page 2387)

VBA Reference (Page 1664)

VarName Property (Page 2403)

VALUE_UNCERT_SUBSTSET Property (Page 2397)

VALUE_UNCERT_SIMVAL Property (Page 2395)

VALUE_UNCERT_PROCRELNOM Property (Page 2393)

VALUE_UNCERT_NONSPECIFIC Property (Page 2391)

VALUE_UNCERT_MISCSTATES Property (Page 2389)

VALUE_UNCERT_LUV Property (Page 2385)

VALUE_UNCERT_INITVAL Property (Page 2383)

VALUE_UNCERT_ENGVONLIM Property (Page 2381)

VALUE_UNCERT_ENGVLOWLIM Property (Page 2379)

VALUE_UNCERT_ENGVHIGHLIM Property (Page 2378)

VALUE_LOWLIMITED Property (Page 2363)

VALUE_HIGHLIMITED Property (Page 2359)

VALUE_BAD_PROCRELSUB Property (Page 2352)

VALUE_BAD_PROCRELNOM Property (Page 2350)

VALUE_BAD_OUTOFSERV Property (Page 2348)

VALUE_BAD_NOTCONNECTED Property (Page 2346)

VALUE_BAD_NONSPECIFIC Property (Page 2344)

VALUE_BAD_MISCSTATES Property (Page 2342)

VALUE_BAD_DEVICE Property (Page 2340)

VALUE_BAD_CONFERROR Property (Page 2338)

VALUE_BAD_COMMNUV Property (Page 2336)

VALUE_BAD_COMMLUV Property (Page 2335)

Parent Property (Page 2241)

Item Property (Page 2152)

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)

1938

System Manual, 11/2008,

4.4.7.4 R-Z

Rectangle Object

Description

Represents the "Rectangle" object. The Rectangle object is an element of the following listings:

● Objects: Contains all objects of a picture.

● Selection: Contains all selected objects of a picture.

● HMIDefaultObjects: Contains the default property values of all standard, Windows, and

smart objects.

VBA Object Name

HMIRectangle

Usage

Use the Add method to create a new "Rectangle" object in a picture:

Sub AddRectangle()

'VBA320

Dim objRectangle As HMIRectangle

Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")

End Sub

Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this

case identifies the object by name:

Sub EditRectangle()

'VBA321

Dim objRectangle As HMIRectangle

Set objRectangle = ActiveDocument.HMIObjects("Rectangle1")

objRectangle.BorderColor = RGB(255, 0, 0)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

1939

End Sub

Use "Selection"(Index) to return an object from the Selection listing:

Sub ShowNameOfFirstSelectedObject()

'VBA322

'Select all objects in the picture:

ActiveDocument.Selection.SelectAll

'Get the name of the first object of the selection:

MsgBox ActiveDocument.Selection(1).ObjectName

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

1940

System Manual, 11/2008,