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

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

iIndex = iIndex + 1

If vbCancel = iAnswer Then Exit For

Next objLayer

End Sub

See also

Layer Object (Page 1894)

NumberLines Property

Description

TextList

Defines for the "TextList object" how many lines the selection list should contain or returns the

value.

If the configured lines with their number, font size and font do not fit into the dimensions

of the object, a vertical scroll bar is added to the selection list.

Combo box and list box

Defines or returns the number of lines of text for the "Combo box" and "List box" objects. You

can define a maximum of 32,000 lines.

At the same time, the value of the "Number of rows" attribute specifies the high limit value for

the "Index" attribute in the "Font" property group. Changing the value can have the following

effects:

● Increasing the number: New lines are added at the bottom. The default labeling of the new

filed can be changed using the "Text" attribute in the "Font" property group.

● Reducing the number: All lines are removed for which the value of the "Index" attribute is

higher than the new number.

Example

The "TextListConfiguration()" procedure accesses the properties of the "TextList" object. In

this example a selection list is created and the number of visible lines is set to three:

Sub TextListConfiguration()

'VBA649

Dim objTextList As HMITextList

'Insert new TextList in current picture:

Set objTextList = ActiveDocument.HMIObjects.AddHMIObject("myTextList", "HMITextList")

With objTextList

.NumberLines=3

End With

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2231

End Sub

See also

TextList Object (Page 1964)

ObjectName Property

Description

Depending on the source and destination object types for the direct connection, either defines

or returns the name of the constant, object or tag.

The two tables show you when you must use the ObjectName property. A "--" means that the

property

is assigned an empty string (") by default when the DirectConnection object is created.

Source object type (SourceLink Property)

Type Property AutomationName Property ObjectName Property

hmiSourceTypeConstant -- Name of the constant (e.g. the

picture name)

hmiSourceTypeProperty Property of the source object

(e.g. "Top")

Name of the source object (e.g.

"Rectangle_A")

hmiSourceTypePropertyOfThisObj

ect

-- --

hmiSourceTypeVariableDirect -- Tag name

hmiSourceTypeVariableIndirect -- Tag name

Destination object type (DestinationLink Property)

Type Property AutomationName Property ObjectName Property

hmiDestTypeProperty Property of the destination

object (e.g. "Left")

Name of the destination object

(e.g. "Rectangle_A")

hmiDestTypePropertyOfThisObject -- --

hmiDestTypePropertyOfActualWin

dow

Property of the destination

object (e.g. "Left")

hmiDestTypeVariableDirect -- Tag name

hmiDestTypeVariableIndirect -- Tag name

hmiDestTypeDirectMessage -- Tag name

hmiDestTypeIndirectMessage -- Tag name

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2232

System Manual, 11/2008,

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()

'VBA650

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

.DestinationLink.Type = hmiDestTypeProperty

.DestinationLink.ObjectName = "Rectangle_B"

.DestinationLink.AutomationName = "Left"

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,

2233

See also

Type Property (Page 2315)

SourceLink Property (Page 2293)

DestinationLink Property (Page 2090)

AutomationName Property (Page 2011)

SourceLink Object (Page 1955)

DestLink Object (Page 1843)

ObjectSizeDecluttering Property

Description

TRUE, if objects of the specified picture outside of two configured sizes are to be faded out.

BOOLEAN write-read access.

Define the size range with the aid of the SetDeclutterObjectSize method.

Example:

In the following example the settings for the lowest layer are configured in the active picture:

Sub ConfigureSettingsOfLayer()

'VBA651

Dim objLayer As HMILayer

Set objLayer = ActiveDocument.Layers(1)

With objLayer

'Configure "Layer 0"

.MinZoom = 10

.MaxZoom = 100

.Name = "Configured with VBA"

End With

'Define fade-in and fade-out of objects:

With ActiveDocument

.LayerDecluttering = True

.ObjectSizeDecluttering = True

.SetDeclutterObjectSize 50, 100

End With

End Sub

See also

Document Object (Page 1847)

Editing Layers with VBA (Page 1603)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2234

System Manual, 11/2008,

OffsetLeft Property

Description

Defines or returns the distance of the picture from the left edge of the picture window.

Example:

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

example the picture window will be configured

Sub PictureWindowConfig()

'VBA652

Dim objPicWindow As HMIPictureWindow

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

See also

PictureWindow Object (Page 1919)

OffsetTop Property

Description

Defines or returns the distance of the picture from the top edge of the picture window.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2235

Example:

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

example the picture window will be configured

Sub PictureWindowConfig()

'VBA653

Dim objPicWindow As HMIPictureWindow

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

See also

PictureWindow Object (Page 1919)

OnTop Property

Description

TRUE if the ApplicationWindow object is always in the foreground in Runtime. BOOLEAN write-

read access.

Example:

The "ApplicationWindowConfig" procedure accesses the properties of the application window.

In this example the application window will always be in the foreground in Runtime:

Sub ApplicationWindowConfig()

'VBA654

Dim objAppWindow As HMIApplicationWindow

Set objAppWindow = ActiveDocument.HMIObjects.AddHMIObject("AppWindow1",

"HMIApplicationWindow")

With objAppWindow

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2236

System Manual, 11/2008,

.OnTop = True

End With

End Sub

See also

ApplicationWindow Object (Page 1817)

Operation Property

Description

TRUE if the object can be used or operated in Runtime. BOOLEAN write-read access.

Example:

In this example the status of the operator-control enables will be output for all objects in the

active picture:

Sub ShowOperationStatusOfAllObjects()

'VBA655

Dim objObject As HMIObject

Dim bStatus As Boolean

Dim strStatus As String

Dim strName As String

Dim iMax As Integer

Dim iIndex As Integer

Dim iAnswer As Integer

iMax = ActiveDocument.HMIObjects.Count

iIndex = 1

For iIndex = 1 To iMax

strName = ActiveDocument.HMIObjects(iIndex).ObjectName

bStatus = ActiveDocument.HMIObjects(iIndex).Operation

Select Case bStatus

Case True

strStatus = "yes"

Case False

strStatus = "no"

End Select

iAnswer = MsgBox("Object: " & strName & vbCrLf & "Operator-Control enable: " & strStatus,

vbOKCancel)

If vbCancel = iAnswer Then Exit For

Next iIndex

If 0 = iMax Then MsgBox "No objects in the active document."

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,

2237

See also

HMIObject Object (Page 1882)

Document Object (Page 1847)

OperationMessage Property

Description

TRUE, if a message should be output upon successful operation. The reason for the operation

can only be input if the "OperationReport" property is set to "True". BOOLEAN write-read

access.

The operation is sent to the message system, and is archived. Using the message system, a

message may be output in a message line, for example.

Example:

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

example, an operation is supposed to be sent to the message system:

Sub IOFieldConfiguration()

'VBA656

Dim objIOField As HMIIOField

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

With objIOField

.OperationReport = True

.OperationMessage = True

End With

End Sub

See also

OperationReport Property (Page 2238)

TextList Object (Page 1964)

Slider object (Page 1952)

OptionGroup Object (Page 1916)

IOField Object (Page 1886)

CheckBox Object (Page 1827)

OperationReport Property

Description

TRUE, if the reason for an operation should be recorded. BOOLEAN write-read access.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2238

System Manual, 11/2008,

When the object is used or operated in Runtime, a dialog opens in which the operator can

input the reason for the operation in the form of text. The operation is sent to the message

system, and is archived.

Example:

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

example, an operation is supposed to be sent to the message system:

Sub IOFieldConfiguration()

'VBA657

Dim objIOField As HMIIOField

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

With objIOField

.OperationReport = True

.OperationMessage = True

End With

End Sub

See also

OperationMessage Property (Page 2238)

TextList Object (Page 1964)

Slider object (Page 1952)

OptionGroup Object (Page 1916)

IOField Object (Page 1886)

CheckBox Object (Page 1827)

Orientation Property

Description

TRUE, when the text in the object should be displayed horizontally. BOOLEAN write-read

access.

Note

It is only the text that is displayed either horizontally or vertically. The position of the object

remains unchanged.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2239

Example:

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

the text will be displayed vertically:

Sub ButtonConfiguration()

'VBA658

Dim objButton As HMIButton

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

With objButton

.Width = 150

.Height = 150

.Text = "Text is displayed vertical"

.Orientation = False

End With

End Sub

See also

TextList Object (Page 1964)

StaticText Object (Page 1956)

OptionGroup Object (Page 1916)

IOField Object (Page 1886)

CheckBox Object (Page 1827)

Button Object (Page 1824)

OutputFormat Property

Description

Defines how the output value shall be displayed, or returns the set value. The representation

is dependent on the data format.

Example:

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

example, data type "Decimal" will be set for the I/O field: The output value will be displayed

with two decimals and three digits to the right of the decimal point:

Sub IOFieldConfiguration()

'VBA659

Dim objIOField As HMIIOField

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

With objIOField

.DataFormat = 1

.OutputFormat = "99,999"

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2240

System Manual, 11/2008,