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

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

See also

GroupDisplay Object (Page 1874)

Size Property

Description

Defines or returns the font size in points for a language-dependent font.

Example:

The following example sets the font attributes of a button for French and English:

Sub ExampleForLanguageFonts()

'VBA721

Dim colLangFonts As HMILanguageFonts

Dim objButton As HMIButton

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

objButton.Text = "DefText"

Set colLangFonts = objButton.LDFonts

'Set font-properties for french:

With colLangFonts.ItemByLCID(1036)

.Family = "Courier New"

.Bold = True

.Italic = False

.Underlined = True

.Size = 12

End With

'Set font-properties for english:

With colLangFonts.ItemByLCID(1033)

.Family = "Times New Roman"

.Bold = False

.Italic = True

.Underlined = False

.Size = 14

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,

2291

See also

Underlined Property (Page 2324)

Parent Property (Page 2241)

LanguageID Property (Page 2158)

Italic Property (Page 2151)

FontFamily Property (Page 2127)

Bold Property (Page 2034)

Application Property (Page 2008)

LanguageFont Object (Page 1889)

Sizeable Property

Description

TRUE if the size of the ApplicationWindow and PictureWindow objects can be changed in

Runtime. BOOLEAN write-read access.

Example:

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

In this example it is intended that the application window can be resized in Runtime:

Sub ApplicationWindowConfig()

'VBA722

Dim objAppWindow As HMIApplicationWindow

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

"HMIApplicationWindow")

With objAppWindow

.Sizeable = True

End With

End Sub

See also

PictureWindow Object (Page 1919)

ApplicationWindow Object (Page 1817)

SmallChange Property

Description

Defines how many steps the controller can be moved with one mouse click or returns the value.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2292

System Manual, 11/2008,

Example:

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

the number of steps will be set to "4":

Sub SliderConfiguration()

'VBA723

Dim objSlider As HMISlider

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

With objSlider

.SmallChange = 4

End With

End Sub

See also

Slider object (Page 1952)

SnapToGrid Property

Description

TRUE if objects in the picture are aligned on the grid (which is invisible). BOOLEAN write-read

access.

Example:

In the following example, the alignment of objects in the active picture on the grid is activated:

Sub ActivateSnapToGrid()

'VBA724

ActiveDocument.SnapToGrid = True

End Sub

See also

Document Object (Page 1847)

SourceLink Property

Description

Returns the Source object. Use the SourceLink property to configure the source object in the

case of a direct connection.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2293

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

'VBA725

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)

2294

System Manual, 11/2008,

See also

Type Property (Page 2315)

ObjectName Property (Page 2232)

AutomationName Property (Page 2011)

SourceLink Object (Page 1955)

DirectConnection Object (Page 1845)

SourceCode Property

Description

Defines or returns the source code of a C script or VB script.

If you assign a C script to the SourceCode property, you must enter only the program code

located between the braces ("{}").

If you assign a VB script to the SourceCode property, you must enter only the program code

located between the Sub and EndSub keywords.

Note

If you use single quote marks (') or double quote marks (") in the program code, you must

enter an additional quote mark in front of every single or double quote mark so that the

program code can be correctly interpreted in the VBA editor.

The Compiled property returns TRUE if the source code was successfully compiled.

Example:

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

the

radius of the circle will enlarge every time you click the button. A VB script will be used for

this purpose:

Sub IncreaseCircleRadiusWithVBScript()

'VBA726

Dim objButton As HMIButton

Dim objCircleA As HMICircle

Dim objEvent As HMIEvent

Dim objVBScript As HMIScriptInfo

Dim strCode As String

strCode = "Dim objCircle" & vbCrLf & "Set objCircle = "

strCode = strCode & "hmiRuntime.ActiveScreen.ScreenItems(""CircleVB"")"

strCode = strCode & vbCrLf & "objCircle.Radius = objCircle.Radius + 5"

Set objCircleA = ActiveDocument.HMIObjects.AddHMIObject("CircleVB", "HMICircle")

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

With objCircleA

.Top = 100

.Left = 100

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2295

End With

With objButton

.Top = 10

.Left = 10

.Width = 200

.Text = "Increase Radius"

End With

'On every mouseclick the radius have to increase:

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 "Error on compilation!"

End Select

End Sub

See also

Compiled Property (Page 2080)

ScriptInfo Object (Page 1948)

StartAngle Property

Description

Defines or returns the start 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.

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

'VBA727

Dim PieSegment As HMIPieSegment

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

With PieSegment

.StartAngle = 40

.EndAngle = 180

End With

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2296

System Manual, 11/2008,

See also

EndAngle Property (Page 2098)

PieSegment Object (Page 1922)

EllipseSegment Object (Page 1859)

EllipseArc Object (Page 1856)

CircularArc Object (Page 1831)

StatusText Property

Description

Defines or returns the text that will be displayed in the status bar when you point with the mouse

to a user-defined menu entry or user-defined icon.

Example:

In the following example, a user-defined menu with two menus entries and a submenu with

two

entries will be created in the active picture. The submenu will be visually distinguished by

a dividing line. A status bar entry will be defined for each menu entry:

Sub CreateDocumentMenus()

'VBA728

Dim objDocMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

Dim objSubMenu As HMIMenuItem

'Add menu:

Set objDocMenu = ActiveDocument.CustomMenus.InsertMenu(1, "DocMenu1", "Doc_Menu_1")

'Add menuitems to custom-menu:

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(1, "dmItem1_1", "My first menuitem")

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(2, "dmItem1_2", "My second menuitem")

'Add seperator to custom-menu:

Set objMenuItem = objDocMenu.MenuItems.InsertSeparator(3, "dSeparator1_3")

'Add submenu to custom-menu:

Set objSubMenu = objDocMenu.MenuItems.InsertSubMenu(4, "dSubMenu1_4", "My first submenu")

'Add menuitems to submenu:

Set objMenuItem = objSubMenu.SubMenu.InsertMenuItem(5, "dmItem1_5", "My first submenuitem")

Set objMenuItem = objSubMenu.SubMenu.InsertMenuItem(6, "dmItem1_6", "My second

submenuitem")

'Assign statustexts to every menuitem

With objDocMenu

.MenuItems(1).StatusText = "My first menuitem"

.MenuItems(2).StatusText = "My second menuitem"

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2297

.MenuItems(4).SubMenu.Item(1).StatusText = "My first submenuitem"

.MenuItems(4).SubMenu.Item(2).StatusText = "My second submenuitem"

End With

End Sub

See also

ToolbarItem Object (Page 1970)

MenuItem Object (Page 1906)

SubMenu Property

Description

Returns a MenuItems listing if the specified object is the "SubMenu" type.

Use the SubMenu listing if you wish to create a submenu in a user-defined menu.

Example:

In the following example, a user-defined menu with two menus entries and a submenu with

two

entries will be created in the active picture. The submenu will be visually distinguished by

a dividing line:

Sub CreateDocumentMenus()

'VBA730

Dim objDocMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

Dim objSubMenu As HMIMenuItem

'Add menu:

Set objDocMenu = ActiveDocument.CustomMenus.InsertMenu(1, "DocMenu1", "Doc_Menu_1")

'Add menuitems to custom-menu:

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(1, "dmItem1_1", "My first menuitem")

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(2, "dmItem1_2", "My second menuitem")

'Add seperator to custom-menu:

Set objMenuItem = objDocMenu.MenuItems.InsertSeparator(3, "dSeparator1_3")

'Add submenu to custom-menu:

Set objSubMenu = objDocMenu.MenuItems.InsertSubMenu(4, "dSubMenu1_4", "My first submenu")

'Add menuitems to submenu:

Set objMenuItem = objSubMenu.SubMenu.InsertMenuItem(5, "dmItem1_5", "My first submenuitem")

Set objMenuItem = objSubMenu.SubMenu.InsertMenuItem(6, "dmItem1_6", "My second

submenuitem")

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2298

System Manual, 11/2008,

See also

MenuItem Object (Page 1906)

SymbolLibraries Property

Description

Returns a SymbolLibraries listing containing objects of the "SymbolLibrary" type.

Use SymbolLibraries(1) to return the "Global Library". Use SymbolLibraries(2) to return the

"Project Library".

Example:

In the following example the names of the libraries will be output:

Sub ShowSymbolLibraries()

'VBA731

Dim colSymbolLibraries As HMISymbolLibraries

Dim objSymbolLibrary As HMISymbolLibrary

Set colSymbolLibraries = Application.SymbolLibraries

For Each objSymbolLibrary In colSymbolLibraries

MsgBox objSymbolLibrary.Name

Next objSymbolLibrary

End Sub

See also

Application Object (Page 1814)

4.4.8.15 T

TabOrderSwitch Property

Description

Defines or returns the position of the object in the TAB sequence.

Example:

In this example two I/O fields will be inserted in the active picture and the TAB sequence will

then be defined:

Sub IOFieldConfig()

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2299

'VBA732

Dim objIOField1 As HMIIOField

Dim objIOField2 As HMIIOField

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

Set objIOField2 = ActiveDocument.HMIObjects.AddHMIObject("IOField2", "HMIIOField")

With objIOField1

.Top = 10

.Left = 10

.TabOrderSwitch = 1

End With

With objIOField2

.Top = 100

.Left = 10

.TabOrderSwitch = 2

End With

End Sub

See also

HMIObject Object (Page 1882)

TabOrderAllHMIObjects Property

Description

TRUE if all the objects in a picture are to be included in the configured TAB sequence.

BOOLEAN write-read access.

Example:

The "ConfigureTabOrder()" procedure defines which objects in the active picture are to be

included in the configured TAB sequence. In this example all the objects will be included in

the TAB sequence:

Sub ConfigureTabOrder()

'VBA733

With ActiveDocument

.TABOrderAllHMIObjects = True

.TABOrderKeyboard = False

.TABOrderMouse = False

.TABOrderOtherAction = False

End With

End Sub

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2300

System Manual, 11/2008,