System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Usage
In the following example, the object with the name "Control1" is moved 16 pixels to the right:
'VBS60
Dim objControl
Set objControl = ScreenItems("Control1")
objControl.Left = objControl.Left 16
Available Methods in VBS
Activate GetTimeAxis MoveToLast ShowTagSelection
ActivateDynamic
method
GetTimeAxisCollection MoveToNext ShowTimeSelection
AttachDB
method
GetTrend MoveToPrevious ShowTrendSelection
CalculateStatisti
c
GetTrendCollection NextTrend StartStopUpdate
DeactivateDyna
mic
GetTrendWindow OneToOneView ZoomArea
DetachDB GetTrendWindowCollection
PreviousTrend ZoomInOut
Export GetValueAxis Print ZoomInOutTime
GetRulerData GetValueAxisCollection ShowHelp ZoomInOutValues
GetStatusbarEle
ment
MoveAxis ShowPercentageAxis ZoomMove
GetStatusbarEle
mentCollection
MoveToFirst ShowPropertyDialog
Available Properties in VBS
BackColor StatusbarElementRepos ToolbarButtonRemove TrendValueAxis
BorderColor StatusbarElementText ToolbarButtonRename TrendVisible
BorderWidth StatusbarElementTooltipText
ToolbarButtonRepos TrendWindowAdd
Caption StatusbarElementVisible ToolbarButtonTooltipText TrendWindowCoarseGrid
Closeable StatusbarElementWidth ToolbarButtonVisible TrendWindowCoarseGridCol
or
ConnectTrendWindows StatusbarShowTooltips ToolbarShowTooltips TrendWindowFineGrid
ExportDirectoryChangeable StatusbarUseBackColor ToolbarUseBackColor TrendWindowFineGridColor
ExportDirectoryname StatusbarVisible ToolbarUseHotKeys TrendWindowForegroundTre
ndGrid
ExportFileExtension TimeAxisActualize ToolbarVisible TrendWindowGridInTrendCo
lor
ExportFilename TimeAxisAdd TrendAdd TrendWindowHorizontalGrid
ExportFilenameChangeable TimeAxisAlign TrendAutoRangeBeginTagN
ame
TrendWindowIndex
ExportParameters TimeAxisBeginTime TrendAutoRangeBeginValue TrendWindowName
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
251
ExportSelection TimeAxisColor TrendAutoRangeEndTagNa
me
TrendWindowRemove
ExportShowDialog TimeAxisDateFormat TrendAutoRangeEndValue TrendWindowRename
Font TimeAxisEndTime TrendAutoRangeSource TrendWindowRepos
GraphDirection TimeAxisIndex TrendColor TrendWindowRulerColor
LineColor TimeAxisInTrendColor TrendExtendedColorSet TrendWindowRulerLayer
LineWidth TimeAxisLabel TrendFill TrendWindowRulerStyle
LoadDataImmediately TimeAxisMeasurePoints TrendFillColor TrendWindowRulerWidth
Moveable TimeAxisName TrendIndex TrendWindowSpacePortion
Online TimeAxisRangeType TrendLabel TrendWindowStatisticRulerC
olor
PercentageAxis TimeAxisRemove TrendLineStyle TrendWindowStatisticRulerS
tyle
PercentageAxisAlign TimeAxisRename TrendLineType TrendWindowStatisticRuler
Width
PercentageAxisColor TimeAxisRepos TrendLineWidth TrendWindowVerticalGrid
PrintJobName TimeAxisShowDate TrendLowerLimit TrendWindowVisible
RTPersistence TimeAxisTimeFormat TrendLowerLimitColor UseTrendNameAsLabel
RTPersistencePasswordLev
el
TimeAxisTimeRangeBase TrendLowerLimitColoring ValueAxisAdd
RTPersistenceType TimeAxisTimeRangeFactor TrendName ValueAxisAlign
ShowRuler TimeAxisTrendWindow TrendPointColor ValueAxisAutoPrecisions
ShowRulerInAxis TimeAxisVisible TrendPointStyle ValueAxisAutoRange
ShowScrollbars TimeBase TrendPointWidth ValueAxisBeginValue
ShowStatisticRuler ToolbarAlignment TrendProvider ValueAxisColor
ShowTitle ToolbarBackColor TrendProviderCLSID ValueAxisEndValue
Sizeable ToolbarButtonActive TrendRemove ValueAxisExponentialFormat
SkinName ToolbarButtonAdd TrendRename ValueAxisIndex
StatusbarBackColor ToolbarButtonBeginGroup TrendRepos ValueAxisInTrendColor
StatusbarElementAdd ToolbarButtonClick TrendTagName ValueAxisLabel
StatusbarElementAutoSize ToolbarButtonEnabled TrendTimeAxis ValueAxisName
StatusbarElementIconId ToolbarButtonHotKey TrendTrendWindow ValueAxisPrecisions
StatusbarElementId ToolbarButtonId TrendUncertainColor ValueAxisRemove
StatusbarElementIndex ToolbarButtonIndex TrendUncertainColoring ValueAxisRename
StatusbarElementName ToolbarButtonLocked TrendUpperLimit ValueAxisRepos
StatusbarElementRemove ToolbarButtonName TrendUpperLimitColor ValueAxisScalingType
StatusbarElementRename ToolbarButtonPasswordLeve
l
TrendUpperLimitColoring ValueAxisTrendWindow
ValueAxisVisible
See also
Controls (Page 230)
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
252
System Manual, 11/2008,
WinCC Push Button Control
Description
Object Type of ScreenItem Object. Represents the graphic object "WinCC Push Button Control"
Type Identifier in VBS
HMIButton
Usage
In the following example, the object with the name "Control1" is moved 17 pixels to the right:
'VBS61
Dim objControl
Set objControl = ScreenItems("Control1")
objControl.Left = objControl.Left +17
Note
The events KeyDown, KeyUp and KeyPress cannot be addressed by VBS. If it is required to
make controls dynamic with the help of VBS, no parameter must be declared with ByRef.
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
253
Notes on Error Handling
Buttons and pushbuttons are mapped in the object model to an "HMIButton" type. Since the
objects have different properties, the availability of the property (dynamic type compilation in
Runtime) should be queried via an exception measure. The exception measure is activated
for the corresponding procedure by the following instruction:
On Error Resume Next
The instruction causes the VBScript engine to initiate the follow-on command in the case of a
Runtime error.
The error code can subsequently be checked using the Err object. In order to deactivate the
handling of Runtime errors in scripts, use the following command:
On Error Goto 0
Handling errors always relates to the procedure layer. If a script in a procedure causes an
error,
VBScript checks whether an error handling measure is implemented in this layer. If not,
control is transferred one layer up (to the calling procedure). If there is no error handling
measure here either, the control is transferred yet another layer up. This continues until either
the top module level is reached or the code for Runtime error handling is located. If the
activation of the Runtime error handling fails, the control is transferred to the top level on the
internal VBScript Runtime error handing. This opens an error dialog and stops the script.
The "On Error Resume Next" command can be installed on all layers (i.e. also in procedures).
When the error handling measure is use, it can basically be determined whether the user is
actually using the required implementation type.
In addition, it can be ensured that there is no termination of execution due to a faulty access
to the object.
Examples of error handling
'VBS62
Dim objScreenItem
On Error Resume Next 'Activation of errorhandling
For Each objScreenItem In ScreenItems
If objScreenItem.Type = "HMIButton" Then
'
'=== Property "Text" available only for Standard-Button
objScreenItem.Text = "Windows"
If 0 <> Err.Number Then
HMIRuntime.Trace objScreenItem.ObjectName & ": no Windows-Button" & vbCrLf
Err.Clear 'Delete error message
End If
'
'=== Property "Caption" available only for PushButton
objScreenItem.Caption = "Push"
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
254
System Manual, 11/2008,
If 0 <> Err.Number Then
HMIRuntime.Trace objScreenItem.ObjectName & ": no Control" & vbCrLf
Err.Clear
End If
End If
Next
On Error Goto 0 'Deactivation of errorhandling
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
255
See also
Properties (Page 276)
FontName Property (Page 381)
Activate Method (Page 639)
ScreenItems Object (List) (Page 138)
ScreenItem Object (Page 134)
Controls (Page 230)
Width Property (Page 626)
Visible Property (Page 624)
Type Property (Page 596)
Transparent Property (Page 577)
Top Property (Page 575)
PictureUnselected Property (Page 480)
PictureSelected Property (Page 480)
Parent Property (Page 471)
Outline Property (Page 469)
ObjectName Property (Page 455)
Object Property (Page 455)
Left Property (Page 423)
Layer Object (Page 127)
Height Property (Page 391)
FrameWidth Property (Page 386)
FrameColorUp Property (Page 385)
FrameColorDown Property (Page 385)
ForeColor Property (Page 383)
FontUnderline Property (Page 382)
FontStrikeThru Property (Page 382)
FontSize Property (Page 382)
FontItalic Property (Page 380)
Font Property (Page 379)
FontBold Property (Page 380)
FocusRect Property (Page 378)
Enabled Property (Page 360)
Caption Property (Page 320)
BackColor Property (Page 295)
AutoSize Property (Page 293)
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
256
System Manual, 11/2008,
WinCC RulerControl
Description
Object Type of ScreenItem Object. Represents the graphic object "WinCC RulerControl" as
of WinCC V7.0.
Type Identifier in VBS
HMIRulerControl
Usage
In the following example, the object with the name "Control1" is moved 16 pixels to the right:
'VBS60
Dim objControl
Set objControl = ScreenItems("Control1")
objControl.Left = objControl.Left 16
Available Methods in VBS
Activate GetRulerBlockCollection GetStatisticResultColumn GetToolbarButtonCollection
ActivateDynamic
GetRulerColumn GetStatisticResultColumnCollection ShowHelp
DeactivateDyna
mic
GetRulerColumnCollection GetStatusbarElement ShowPropertyDialog
Export GetStatisticAreaColumn GetStatusbarElementCollection
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
257
GetRulerBlock GetStatisticAreaColumnCol
lection
GetToolbarButton
Available Properties in VBS
AutoCompleteColumns ColumnSortIndex SelectionRectColor TitleCut
AutoCompleteRows ColumnTitleAlign SelectionRectWidth TitleDarkShadowColor
AutoPositon ColumnTitles SelectionType TitleForeColor
AutoSelectionColors ColumnVisible ShowSortButton TitleGridLineColor
AutoSelectionRectColor ExportDirectoryChangeable ShowSortIcon TitleLightShadowColor
AutoShow ExportDirectoryname ShowSortIndex TitleSort
BackColor ExportFileExtension ShowTitle TitleStyle
BlockAlign ExportFilename Sizeable ToolbarAlignment
BlockAutoPrecisions ExportFilenameChangeable SkinName ToolbarBackColor
BlockCaption ExportParameters SortSequence ToolbarButtonActive
BlockDateFormat ExportSelection SourceControl ToolbarButtonAdd
BlockExponentialFormat ExportShowDialog SourceControlType ToolbarButtonBeginGroup
BlockHideText Font StatusbarBackColor ToolbarButtonClick
BlockHideTitleText GridLineColor StatusbarElementAdd ToolbarButtonEnabled
BlockLength GridLineWidth StatusbarElementAutoSize ToolbarButtonHotKey
BlockPrecisions HorizontalGridLines StatusbarElementIconId ToolbarButtonId
BlockShowDate IconSpace StatusbarElementId ToolbarButtonIndex
BlockShowIcon LineColor StatusbarElementIndex ToolbarButtonLocked
BlockShowTitleIcon LineWidth StatusbarElementName ToolbarButtonName
BlockTimeFormat Moveable StatusbarElementRemove ToolbarButtonPasswordLeve
l
BlockUseSourceFormat PrintJobName StatusbarElementRename ToolbarButtonRemove
BorderColor RowScrollbar StatusbarElementRepos ToolbarButtonRename
BorderWidth RowTitleAlign StatusbarElementText ToolbarButtonRepos
Caption RowTitles StatusbarElementTooltipText
ToolbarButtonTooltipText
CellCut RTPersistence StatusbarElementVisible ToolbarButtonVisible
CellSpaceBottom RTPersistencePasswordLev
el
StatusbarElementWidth ToolbarShowTooltips
CellSpaceLeft RTPersistenceType StatusbarShowTooltips ToolbarUseBackColor
CellSpaceRight RulerType StatusbarUseBackColor ToolbarUseHotKeys
CellSpaceTop SelectedCellColor StatusbarVisible ToolbarVisible
Closeable SelectedCellForeColor TableColor UseSelectedTitleColor
ColumnAdd SelectedRowColor TableColor2 UseSourceBackColors
ColumnIndex SelectedRowForeColor TableForeColor UseSourceForeColors
ColumnRemove SelectedTitleColor TableForeColor2 UseTableColor2
ColumnRepos SelectedTitleForeColor TitleColor VerticalGridLines
ColumnResize SelectionColoring
ColumnScrollbar SelectionRect
ColumnSort
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
258
System Manual, 11/2008,
See also
Controls (Page 230)
WinCC Slider Control
Description
Object Type of ScreenItem Object. Represents the graphic object "WinCC Slider Control"
Type Identifier in VBS
HMISlider
Usage
In the following example, the object with the name "Control1" is moved 19 pixels to the right:
'VBS63
Dim objControl
Set objControl = ScreenItems("Control1")
objControl.Left = objControl.Left +19
Notes on Error Handling
Sliders and WinCC slider controls are mapped in the object model to an "HMISlider" type.
Since the objects have different properties, the availability of the property (dynamic type
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
259
compilation in Runtime) should be queried via an exception measure. The exception measure
is activated for the corresponding procedure by the following instruction:
On Error Resume Next
The instruction causes the VBScript engine to initiate the follow-on command in the case of a
Runtime error.
The error code can subsequently be checked using the Err object. In order to deactivate the
handling of Runtime errors in scripts, use the following command:
On Error Goto 0
Handling errors always relates to the procedure layer. If a script in a procedure causes an
error,
VBScript checks whether an error handling measure is implemented in this layer. If not,
control is transferred one layer up (to the calling procedure). If there is no error handling
measure here either, the control is transferred yet another layer up. This continues until either
the top module level is reached or the code for Runtime error handling is located. If the
activation of the Runtime error handling fails, the control is transferred to the top level on the
internal VBScript Runtime error handing. This opens an error dialog and stops the script.
The "On Error Resume Next" command can be installed on all layers (i.e. also in procedures).
When the error handling measure is use, it can basically be determined whether the user is
actually using the required implementation type.
In addition, it can be ensured that there is no termination of execution due to a faulty access
to the object.
Examples of error handling
Sub OnClick(Byval Item)
'VBS193
Dim ScreenItem
' activating error handling:
On Error Resume Next
For Each ScreenItem In ScreenItems
If ScreenItem.Type = "HMISlider" Then
'=== Property "BevelColorUp" only exists for a WinCC Slider Control
ScreenItem.BevelColorUp = 1
If (Err.Number <> 0) Then
HMIRuntime.Trace(ScreenItem.ObjectName + ": no Windows-Slider" + vbCrlf)
' delete error message
Err.Clear
End If
'=== Property "BorderStyle" only exists for a Windows-Slider
ScreenItem.BorderStyle = 1
If (Err.Number <> 0) Then
HMIRuntime.Trace(ScreenItem.ObjectName + ": no WinCC Slider Control" + vbCrlf)
Err.Clear
VBS for Creating Procedures and Actions
1.14 VBS Reference
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
260
System Manual, 11/2008,