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

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

Set objEvent = objButton.Events(1)

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

objVBScript.SourceCode = strCode

Select Case objVBScript.Compiled

Case True

MsgBox "Compilation OK!"

Case False

MsgBox "Errors by compilation!"

End Select

End Sub

See also

SourceCode Property (Page 2295)

ScriptInfo Object (Page 1948)

ConfigurationFileName Property

Description

Returns the file name and full path of the configuration file for the open project. STRING read

access.

Example:

The "ShowConfigurationFileName() procedure outputs the configuration file path for the

current picture:

Sub ShowConfigurationFileName()

'VBA464

MsgBox ActiveDocument.Application.ConfigurationFileName

End Sub

See also

Application Property (Page 2008)

Application Object (Page 1814)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2081

Count Property

Description

Returns the number of elements in the specified listing. LONG read access

Example:

In the following example a new picture will be created and a pair of objects will be inserted.

The number of inserted objects will be output at the end:

Sub ObjectsInActiveDocument()

'VBA465

Dim objCircle As HMICircle

Dim objRectangle As HMIRectangle

Dim objDocument As Document

Set objDocument = Application.Documents.Add(hmiOpenDocumentTypeVisible)

Dim iIndex As Integer

iIndex = 1

For iIndex = 1 To 5

Set objCircle = objDocument.HMIObjects.AddHMIObject("Circle" & iIndex, "HMICircle")

Set objRectangle = objDocument.HMIObjects.AddHMIObject("Rectangle" & iIndex,

"HMIRectangle")

With objCircle

.Top = (10 * iIndex)

.Left = (10 * iIndex)

End With

With objRectangle

.Top = ((10 * iIndex) + 50)

.Left = (10 * iIndex)

End With

Next iIndex

MsgBox "There are " & objDocument.HMIObjects.Count & " objects in the document"

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2082

System Manual, 11/2008,

See also

VariableTriggers Object (Listing) (Page 1990)

Views Object (Listing) (Page 1993)

VariableStateValues Object (Listing) (Page 1987)

ToolbarItems Object (Listing) (Page 1973)

Toolbars Object (Listing) (Page 1968)

SymbolLibraries Object (Listing) (Page 1963)

Selection Object (Listing) (Page 1949)

Properties Object (Listing) (Page 1931)

HMIObjects Object (Listing) (Page 1884)

MenuItems Object (Listing) (Page 1909)

Menus Object (Listing) (Page 1904)

Layers Object (Listing) (Page 1895)

LanguageTexts Object (Listing) (Page 1893)

LanguageFonts Object (Listing) (Page 1890)

GroupedObjects Object (Listing) (Page 1877)

FolderItems Object (Listing) (Page 1868)

Events Object (Listing) (Page 1863)

Documents Object (Listing) (Page 1850)

HMIDefaultObjects Object (Listing) (Page 1878)

DataLanguages Object (Listing) (Page 1842)

ConnectionPoints Object (Listing) (Page 1837)

AnalogResultInfos Object (Listing) (Page 1813)

Actions Object (Listing) (Page 1810)

CurrentDataLanguage Property

Description

Defines the project language or returns the language identifier as a decimal value. LONG read-

write access.

Example:

The "ShowDataLanguage()" procedure outputs the currently set project language:

Sub ShowDataLanguage()

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2083

'VBA466

MsgBox Application.CurrentDataLanguage

End Sub

See also

Application Property (Page 2008)

DataLanguageChanged Event (Page 1681)

Language-Dependent Configuration with VBA (Page 1570)

CurrentDesktopLanguage Property

Description

Returns the language identifier of the currently set user interface language as a decimal value.

LONG read access.

Example:

The "ShowDesktopLanguage()" procedure outputs the currently set user interface language:

Sub ShowDesktopLanguage()

'VBA467

MsgBox Application.CurrentDesktopLanguage

End Sub

See also

Application Property (Page 2008)

Application Object (Page 1814)

DesktopLanguageChanged event (Page 1682)

Language-Dependent Configuration with VBA (Page 1570)

CursorControl Property

Description

TRUE, when Alpha Cursor mode is activated, the cursor skips to the next field in the TAB

sequence after exiting the field. BOOLEAN write-read access.

The CursorMode property must be set to TRUE.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2084

System Manual, 11/2008,

Example:

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

the

cursor will skip into the next field when another field is exited. For this to work, the Cursor

mode property must first be set to TRUE.

Sub IOFieldConfiguration()

'VBA468

Dim objIOField As HMIIOField

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

Application.ActiveDocument.CursorMode = True

With objIOField

.CursorControl = True

End With

End Sub

See also

TabOrderAlpha Property (Page 2301)

TabOrderSwitch Property (Page 2299)

CursorMode Property (Page 2085)

ActiveDocument Property (Page 1996)

TextList Object (Page 1964)

IOField Object (Page 1886)

CursorMode Property

Description

TRUE if the "Alpha Cursor" mode is to be activated. FALSE if the "Tab Order Cursor" mode

is to be activated. BOOLEAN write-read access.

Example:

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

in the Graphics Designer. In this example the "Alpha Cursor" mode will be activated:

Sub ActiveDocumentConfiguration()

'VBA469

Application.ActiveDocument.CursorMode = 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,

2085

See also

CursorControl Property (Page 2084)

ActiveDocument Property (Page 1996)

Documents Object (Listing) (Page 1850)

CustomMenus Property

Description

Returns a listing of the available user-defined menus.

Example:

The "ShowCustomMenuInformation()" procedure outputs the Key and Label of all user-defined

menus in the current picture:

Sub ShowCustomMenuInformation()

'VBA470

Dim strKey As String

Dim strLabel As String

Dim strOutput As String

Dim iIndex As Integer

For iIndex = 1 To ActiveDocument.CustomMenus.Count

strKey = ActiveDocument.CustomMenus(iIndex).Key

strLabel = ActiveDocument.CustomMenus(iIndex).Label

strOutput = strOutput & vbCrLf & "Key: " & strKey & " Label: " & strLabel

Next iIndex

If 0 = ActiveDocument.CustomMenus.Count Then

strOutput = "There are no custommenus for the document created."

End If

MsgBox strOutput

End Sub

See also

Application Property (Page 2008)

ActiveDocument Property (Page 1996)

Menu Object (Page 1903)

CustomToolbars Property

Description

Returns a listing of the available user-defined toolbars.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2086

System Manual, 11/2008,

Example:

The "ShowCustomToolbarInformation()" procedure outputs the Key values of all user-defined

toolbars in the current picture:

Sub ShowCustomToolbarInformation()

'VBA471

Dim strKey As String

Dim strOutput As String

Dim iIndex As Integer

For iIndex = 1 To ActiveDocument.CustomToolbars.Count

strKey = ActiveDocument.CustomToolbars(iIndex).Key

strOutput = strOutput & vbCrLf & "Key: " & strKey

Next iIndex

If 0 = ActiveDocument.CustomToolbars.Count Then

strOutput = "There are no toolbars created for this document."

End If

MsgBox strOutput

End Sub

See also

Application Property (Page 2008)

ActiveDocument Property (Page 1996)

Toolbar Object (Page 1967)

CycleName Property

Description

Returns the name of the specified tag trigger. Read only access.

Example:

See also

VariableTrigger Object (Page 1989)

CycleTime Property

Description

Returns the cycle time of the specified tag trigger. Read only access.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2087

Example:

See also

VariableTrigger Object (Page 1989)

CycleType Property

Description

Defines or returns the cycle type.

Example:

The "DynamicToRadiusOfNewCircle(hmiCircle As IHMICircle)" procedure creates a dynamic

for

the radius of a circle. In this example the radius of the circle will be set every two seconds:

Sub DynamicToRadiusOfNewCircle()

'VBA474

Dim objCircle As hmiCircle

Dim VariableTrigger As HMIVariableTrigger

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

Set VariableTrigger = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVariableDirect,

"NewDynamic1")

VariableTrigger.CycleType = hmiVariableCycleType_2s

End Sub

See also

VariableTrigger Object (Page 1989)

Configuring Dynamics in the Properties of Pictures and Objects (Page 1632)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2088

System Manual, 11/2008,

4.4.8.4 D

DataFormat Property

Description

Defines or returns the data type of the IOField object. Value range from 0 to 3.

Data type Assigned Value

Binary 0

Decimal 1

String 2

Hexadecimal 3

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:

Sub IOFieldConfiguration()

'VBA475

Dim objIOField As HMIIOField

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

With objIOField

.DataFormat = 1

End With

End Sub

See also

IOField Object (Page 1886)

DefaultHMIObjects Property

Description

Returns the HMIDefaultObjects listing.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2089

Example:

The "ShowDefaultObjectNames()" procedure outputs all the object names contained in the

HMIDefaultObjects listing:

Sub ShowDefaultObjectNames()

'VBA476

Dim strOutput As String

Dim iIndex As Integer

For iIndex = 1 To Application.DefaultHMIObjects.Count

strOutput = strOutput & vbCrLf & Application.DefaultHMIObjects(iIndex).ObjectName

Next iIndex

MsgBox strOutput

End Sub

See also

HMIDefaultObjects Object (Listing) (Page 1878)

DestinationLink Property

Description

Returns the Destination object. Use the DestinationLink property to configure the destination

object in the case of a direct connection.

Example:

Use the DestinationLink property to return the DestLink object. 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()

'VBA477

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

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2090

System Manual, 11/2008,