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

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

See also

Parent Property (Page 471)

Activate Method (Page 639)

Properties (Page 276)

ScreenItems Object (List) (Page 138)

ScreenItem Object (Page 134)

Width Property (Page 626)

Visible Property (Page 624)

Type Property (Page 596)

Top Property (Page 575)

ToolTipText Property (Page 574)

PicUseTransColor Property (Page 482)

PictureName Property (Page 480)

PicTransColor Property (Page 478)

PicReferenced Property (Page 477)

PasswordLevel Property (Page 472)

ObjectName Property (Page 455)

Left Property (Page 423)

Layer Object (Page 127)

Height Property (Page 391)

FlashRateBorderColor Property (Page 376)

FlashRateBackColor Property (Page 376)

FlashBorderColor Property (Page 373)

FlashBackColor Property (Page 373)

FillStyle Property (Page 369)

FillingIndex Property (Page 369)

Filling Property (Page 368)

FillColor Property (Page 368)

Enabled Property (Page 360)

BorderWidth Property (Page 315)

BorderStyle Property (Page 314)

BorderFlashColorOn Property (Page 314)

BorderFlashColorOff Property (Page 314)

BorderColor Property (Page 313)

BorderBackColor Property (Page 312)

BackFlashColorOn Property (Page 297)

BackFlashColorOff Property (Page 297)

BackColor Property (Page 295)

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

System Manual, 11/2008,

201

Combobox

Description

Object Type of ScreenItem Object. Represents the "Combobox" graphic object.

Type Identifier in VBS

HMIComboBox

Usage

In the following example, the object with the name "ComboBox1" is moved 10 pixels to the

right:

'VBS21

Dim objComboBox

Set objComboBox = ScreenItems("ComboBox1")

objComboBox.Left = objComboBox.Left + 10

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

202

System Manual, 11/2008,

List Box

Description

Object Type of ScreenItem Object. Represents the "List Box" graphic object.

Type Identifier in VBS

HMIListBox

Usage

In the following example, the object with the name "ListBox1" is moved 10 pixels to the right:

'VBS21

Dim objListBox

Set objListBox = ScreenItems("ListBox1")

objListBox.Left = objListBox.Left + 10

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

System Manual, 11/2008,

203

Multiple row text

Description

Object Type of ScreenItem Object. Represents the "Multiline Text" graphic object.

Type Identifier in VBS

HMIMultiLineEdit

Usage

In the following example, the object with the name "MultiLineEdit1" is moved 10 pixels to the

right:

'VBS21

Dim objMultiLineEdit

Set objMultiLineEdit = ScreenItems("MultiLineEdit1")

objMultiLineEdit.Left = objMultiLineEdit.Left + 10

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

204

System Manual, 11/2008,

OLE object

Description

Object Type of ScreenItem Object. Represents the graphic object "OLE Element". The return

value is a STRING type.

Type Identifier in VBS

Version-independent ProgID

Usage

In the following example, the object with the name "OLEElement1" is moved 10 pixels to the

right:

'VBS41

Dim objOLEElement

Set objOLEElement = ScreenItems("OLEElement1")

objOLEElement.Left = objOLEElement.Left + 10

Special feature

In the case of OLE Elements, the version-independent ProgID is returned as the type.

It is possible to determine the version-dependent ProgID or "User friendly Name" from the

ProgID: In the following example, "OLEObject1" is a control embedded in the picture which

already returns the version-independent ProgID as a result of the Type property.

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

System Manual, 11/2008,

205

Note

Since not every Control has a version-dependent ProgID, an error handling measure should

be integrated to query the version-dependent ProgID or UserFriendlyName. If no error

handling is used, the code is terminated immediately without any result when no ProgID is

found.

Determine the version-dependent ProgID as follows:

'VBS42

Dim objControl

Dim strCurrentVersion

Set objControl = ScreenItems("OLEElement1")

strCurrentVersion = CreateObject("WScript.Shell").RegRead("HKCR\" & objControl.Type &

"\CurVer\")

MsgBox strCurrentVersion

Note

In order that the example above works, a Word document should be embedded in the picture

as an OLE Element.

Determine the User Friendly Name as follows:

'VBS43

Dim objControl

Dim strFriendlyName

Set objControl = ScreenItems("OLEElement1")

strFriendlyName = CreateObject("WScript.Shell").RegRead("HKCR\" & objControl.Type & "\")

MsgBox strFriendlyName

Note

In order that the example above works, a Word document should be embedded in the picture

as an OLE Element.

Using OLE Elements

If an OLE Element is used, it is possible that the properties provided by the OLE Element have

the same names as the general ScreenItem properties. In such cases, the ScreenItem

properties have priority. The "hidden" properties of an OLE Element can be accessed using

the additional "Object" property. Address the properties of an OLE Element as follows:

OLEObjekt.object.type

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

206

System Manual, 11/2008,

Only use the form

OLEObjekt.type

In the case of identical names, the properties of the ScreenItem object are used.

See also

Activate Method (Page 639)

MCKQBackColorOn Property (Page 439)

FontBold Property (Page 380)

Properties (Page 276)

ScreenItems Object (List) (Page 138)

ScreenItem Object (Page 134)

Width Property (Page 626)

Visible Property (Page 624)

UserValue4 Property (Page 608)

UserValue3 Property (Page 607)

UserValue2-Eigenschaft (Page 607)

UserValue1 Property (Page 607)

Type Property (Page 596)

Top Property (Page 575)

ToolTipText Property (Page 574)

SignificantMask Property (Page 516)

SameSize Property (Page 497)

Relevant Property (Page 491)

PasswordLevel Property (Page 472)

Parent Property (Page 471)

ObjectName Property (Page 455)

MessageClass Property (Page 447)

MCText Property (Page 441)

MCKQTextFlash Property (Page 441)

MCKQTextColorOn Property (Page 440)

MCKQTextColorOff Property (Page 440)

MCKQBackFlash Property (Page 440)

MCKQBackColorOff Property (Page 439)

MCKOTextFlash Property (Page 439)

MCKOTextColorOn Property (Page 439)

MCKOTextColorOff Property (Page 438)

MCKOBackFlash Property (Page 438)

MCKOBackColorOn Property (Page 438)

MCKOBackColorOff Property (Page 437)

MCGUTextFlash Property (Page 437)

MCGUTextColorOn Property (Page 437)

MCGUTextColorOff Property (Page 437)

MCGUBackFlash Property (Page 436)

MCGUBackColorOn Property (Page 436)

MCGUBackColorOff-Eigenschaft (Page 436)

LockTextColor Property (Page 431)

LockText Property (Page 430)

LockStatus Property (Page 430)

LockBackColor Property (Page 430)

Left Property (Page 423)

Layer Object (Page 127)

Height Property (Page 391)

FontUnderline Property (Page 382)

FontSize Property (Page 382)

FontName Property (Page 381)

FontItalic Property (Page 380)

FlashRate Property (Page 375)

Enabled Property (Page 360)

CollectValue Property (Page 330)

Button4Width Property (Page 319)

Button3Width Property (Page 319)

Button2Width Property (Page 319)

Button1Width Property (Page 318)

BackColor Property (Page 295)

AlignmentTop Property (Page 284)

AlignmentLeft Property (Page 283)

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

System Manual, 11/2008,

209

Text list

Description

Object Type of ScreenItem Object. Represents the graphic object "Text List"

Type Identifier in VBS

HMISymbolicIOField

Usage

In the following example, the object with the name "TextList1" is moved 10 pixels to the right:

'VBS45

Dim objSymIO

Set objSymIO = ScreenItems("TextList1")

objSymIO.Left = objSymIO.Left + 10

VBS for Creating Procedures and Actions

1.14 VBS Reference

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

210

System Manual, 11/2008,