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

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

strScriptType = "VB script is used"

Case 1

strScriptType = "C-Skript is used"

End Select

MsgBox strScriptType

End Sub

See also

ScriptInfo Object (Page 1948)

ScrollBars Property

Description

TRUE if the picture window has scroll bars in Runtime. BOOLEAN write-read access.

Example:

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

example the picture window will be configured:

Sub PictureWindowConfig()

'VBA710

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)

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2281

ScrollPositionX Property

Description

Specifies the horizontal positioning of the scroll bar in a picture window with slider, or returns

its value.

Example:

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

example the picture window will be configured:

Sub PictureWindowConfig()

'VBA808

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

.ScrollPositionX = 50

.ScrollPositionY = 50

.ServerPrefix = ""

.TagPrefix = "Struct."

.UpdateCycle = 5

.Zoom = 100

End With

End Sub

See also

PictureWindow Object (Page 1919)

ScrollPositionY Property

Description

Specifies the vertical positioning of the scroll bar in a picture window with slider, or returns its

value.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2282

System Manual, 11/2008,

Example:

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

example the picture window will be configured:

Sub PictureWindowConfig()

'VBA809

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

.ScrollPositionX = 50

.ScrollPositionY = 50

.ServerPrefix = ""

.TagPrefix = "Struct."

.UpdateCycle = 5

.Zoom = 100

End With

End Sub

See also

PictureWindow Object (Page 1919)

ScrollPosX Property

Description

Defines or returns the X position of the scroll bars for the View object.

Example:

In the following example a copy of the active picture is created and then activated. The position

of the scroll bars will be set to 40 (X) and 10 (Y):

Sub CreateViewAndActivateView()

Dim objView As HMIView

Set objView = ActiveDocument.Views.Add

objView.Activate

objView.ScrollPosX = 40

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2283

objView.ScrollPosY = 10

End Sub

See also

ScrollPosY Property (Page 2284)

View Object (Page 1991)

ScrollPosY Property

Description

Defines or returns the Y position of the scroll bars for the View object.

Example:

In the following example a copy of the active picture is created and then activated. The position

of the scroll bars will be set to 40 (X) and 10 (Y):

Sub CreateViewAndActivateView()

Dim objView As HMIView

Set objView = ActiveDocument.Views.Add

objView.Activate

objView.ScrollPosX = 40

objView.ScrollPosY = 10

End Sub

See also

ScrollPosX Property (Page 2283)

View Object (Page 1991)

SelBGColor Property

Description

Defines or returns the background color for the selected entry in the case of the TextList object.

LONG write-read access.

Determination of Color Value

The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal

value for each of the three RGB values (value range from 0 to 255).

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2284

System Manual, 11/2008,

Use VBA function "RGB" to assign a color to a property. The color "red", for example, is

represented as follows: RGB(255, 0, 0)

Example:

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

example the background color for the selected entry will be set to "Red":

Sub TextListConfiguration()

Dim objTextList As HMITextList

'Neue TextListe ins aktuelle Bild einfügen:

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

With objTextList

.SelBGColor = RGB (255, 0, 0)

End With

End Sub

See also

TextList Object (Page 1964)

Selected Property

Description

TRUE if an object is selected in the picture. BOOLEAN write-read access.

Example:

In the following example two new objects will be inserted in the active picture and then selected:

Sub SelectObjects()

'VBA714

Dim objCircle As HMICircle

Dim objRectangle As HMIRectangle

Dim objGroup As HMIGroup

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

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

With objCircle

.Top = 40

.Left = 40

.Selected = True

End With

With objRectangle

.Top = 80

.Left = 80

.Selected = True

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2285

End With

MsgBox "Objects selected!"

End Sub

See also

HMIObject Object (Page 1882)

Selection Property

Description

Returns a listing containing all the objects selected in the specified picture.

To return an element from the Selection listing you can use either the index number or the

object name.

You can use the Selection property, for example, to select all the objects in the picture.

Example:

In the following example all the objects in the active picture are selected:

Sub SelectAllObjectsInActiveDocument()

'VBA715

ActiveDocument.Selection.SelectAll

End Sub

See also

Selection Object (Listing) (Page 1949)

Document Object (Page 1847)

SelIndex property

Description

Defines or returns the index of which the associated text is highlighted in the combobox or list

box.

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2286

System Manual, 11/2008,

SelText property

Description

Shows the text defined with the "SelIndex" property which is highlighted in the ComboBox or

ListBox object. You cannot directly change the "Selected text" attribute. You change the

"Selected

text" attribute by changing the "Selected box" attribute or the text itself in the "Font"

properties group.

SelTextColor Property

Description

Defines or returns the text color for the selected entry in the TextList object. LONG write-read

access.

Determination of Color Value

The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal

value for each of the three RGB values (value range from 0 to 255).

Use VBA function "RGB" to assign a color to a property. The color "red", for example, is

represented as follows: RGB(255, 0, 0)

Example:

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

example the text color for the selected entry will be set to "Yellow":

Sub TextListConfiguration()

'VBA716

Dim objTextList As HMITextList

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

With objTextList

.SelTextColor = RGB(255, 255, 0)

End With

End Sub

See also

TextList Object (Page 1964)

ServerName Property

Description

Returns the name of the specified ActiveX Control. 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,

2287

Example:

In the following example the ActiveX Control "WinCC Gauge Control" will be inserted in the

active picture and the name of the ActiveX Control will be output:

Sub AddActiveXControl()

'VBA717

Dim objActiveXControl As HMIActiveXControl

Set objActiveXControl = ActiveDocument.HMIObjects.AddActiveXControl("WinCC_Gauge",

"XGAUGE.XGaugeCtrl.1")

With objActiveXControl

.Top = 40

.Left = 60

MsgBox .Properties("ServerName").value

End With

End Sub

See also

ActiveXControl Object (Page 1811)

ServerPrefix Property

Description

Defines the server which will hold the picture that is displayed in the picture window in Runtime,

or returns the name of the server.

Enter the server name followed by two colons: "<Servername>::". No check is made as to

whether the server actually exists.

Example:

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

example the picture window will be configured:

Sub PictureWindowConfig()

'VBA718

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

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2288

System Manual, 11/2008,

.PictureName = "Test.PDL"

.ScrollBars = True

.ServerPrefix = "my_Server::"

.TagPrefix = "Struct."

.UpdateCycle = 5

.Zoom = 100

End With

End Sub

See also

PictureWindow Object (Page 1919)

ShortCut Property

Description

Defines or returns a shortcut key sequence for a user-defined menu entry or user-defined icon.

The following keys are permitted in combination with <CTRL>, <ALT> and <SHIFT>:

● Function keys <F1> to <F12>

● The letter keys <A> to <Z> and the number keys <0> to <9>.

The following are not supported: the keys on the alphanumeric keypad, the cursor keys (e.g.

<Page

Up>) and the remaining function keys such as <RETURN> and <ESC>. No distinction

is made upper and lower case. Key combinations with two or more letters or numbers are not

permitted, such as "CTRL+A+B", but the combination with two additional keys such as <CTRL

+ALT+A" is allowed.

Notes on using the ShortCut property

The key sequences used must be unique within the user-defined menus and toolbars in a

picture. Key sequences that you configure with VBA have priority over any key sequences that

may be present in the Graphics Designer. Within the user-defined menus and toolbars, picture-

specific key sequences have priority over application-specific key sequences.

Note

Shortcut key sequences are only executed if the menu entry or the icon is visible and active.

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

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

System Manual, 11/2008,

2289

a dividing line. The first menu entry receives the shortcut key sequence <CTRL+SHIFT+M>

for retrieval:

Sub CreateDocumentMenus()

'VBA719

Dim objDocMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

Dim objSubMenu As HMIMenuItem

'Add menu to menubar:

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

'Add menuitems to the new 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 menu:

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

'Add submenu to the menu:

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

'Add menuitems to the submenu:

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

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

submenuitem")

ActiveDocument.CustomMenus("DocMenu1").MenuItems(1).ShortCut = "CTRL+SHIFT+M"

End Sub

See also

Configuring Menus and Toolbars (Page 1572)

ToolbarItem Object (Page 1970)

MenuItem Object (Page 1906)

SignificantMask Property

Description

Needed in Runtime for displaying the active message class with the highest priority in the

GroupDisplay object.

The value of the SignificantMask property represents an internal system output value does not

require

any specific configuration by the user. Updating takes place in Runtime by clicking on

the object.

Example:

VBA for Automated Configuration

4.4 The object model of the Graphics Designer

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

2290

System Manual, 11/2008,