System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
Name Property (Page 2228)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
AddHMIObject Method (Page 1719)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
ToolTipText Property (Page 2310)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Left Property (Page 2192)
Layer Property (Page 2160)
Height Property (Page 2139)
FlashRateBorderColor Property (Page 2120)
FlashRateBackColor Property (Page 2119)
FlashBorderColor Property (Page 2112)
FlashBackColor Property (Page 2111)
FillStyle Property (Page 2108)
FillingIndex Property (Page 2107)
Filling Property (Page 2106)
FillColor Property (Page 2104)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderColor Property (Page 2036)
BorderBackColor Property (Page 2035)
BackFlashColorOn Property (Page 2022)
BackFlashColorOff Property (Page 2021)
BackColor Property (Page 2017)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1941
RoundButton Object
Description
Represents the "Round Button" object. The RoundButton object is an element of the following
listings:
● Objects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all standard, Windows, and
smart objects.
VBA Object Name
HMIRoundButton
Usage
Use the Add method to create a new "Round Button" object in a picture:
Sub AddRoundButton()
'VBA323
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("Roundbutton1",
"HMIRoundButton")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditRoundButton()
'VBA324
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects("Roundbutton1")
objRoundButton.BorderColor = RGB(255, 0, 0)
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1942
System Manual, 11/2008,
Use "Selection"(Index) to return an object from the Selection listing.:
Sub ShowNameOfFirstSelectedObject()
'VBA325
'Select all objects in the picture:
ActiveDocument.Selection.SelectAll
'Get the name from the first object of the selection:
MsgBox ActiveDocument.Selection(1).ObjectName
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,
1943
See also
ToolTipText Property (Page 2310)
FlashBackColor Property (Page 2111)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
AddHMIObject Method (Page 1719)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
Width Property (Page 2408)
Visible Property (Page 2405)
Top Property (Page 2311)
Toggle Property (Page 2307)
Radius Property (Page 2268)
Pressed Property (Page 2260)
PicUpUseTransColor Property (Page 2255)
PicUpTransparent Property (Page 2254)
PicUpReferenced Property (Page 2254)
PictureUp Property (Page 2253)
PictureDown Property (Page 2251)
PictureDeactivated Property (Page 2251)
PicDownUseTransColor Property (Page 2249)
PicDownTransparent Property (Page 2248)
PicDownReferenced Property (Page 2247)
PicDeactUseTransColor Property (Page 2247)
PicDeactTransparent Property (Page 2246)
PicDeactReferenced-Eigenschaft (Page 2245)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Name Property (Page 2228)
Left Property (Page 2192)
Layer Property (Page 2160)
Height Property (Page 2139)
FlashRateBorderColor Property (Page 2120)
FlashRateBackColor Property (Page 2119)
FlashBorderColor Property (Page 2112)
FillStyle Property (Page 2108)
FillingIndex Property (Page 2107)
Filling Property (Page 2106)
FillColor Property (Page 2104)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderColorTop Property (Page 2038)
BorderColor Property (Page 2036)
BorderColorBottom Property (Page 2038)
BorderBackColor Property (Page 2035)
BackFlashColorOn Property (Page 2022)
BackFlashColorOff Property (Page 2021)
BackColor Property (Page 2017)
BackBorderWidth Property (Page 2016)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1944
System Manual, 11/2008,
RoundRectangle Object
Description
Represents the "Rounded Rectangle" object. The RoundRectangle object is an element of the
following listings:
● Objects: Contains all objects of a picture.
● Selection: Contains all selected objects of a picture.
● HMIDefaultObjects: Contains the default property values of all standard, Windows, and
smart objects.
VBA Object Name
HMIRoundRectangle
Usage
Use the Add method to create a new "Rounded Rectangle" object in a picture:
Sub AddRoundRectangle()
'VBA326
Dim objRoundRectangle As HMIRoundRectangle
Set objRoundRectangle = ActiveDocument.HMIObjects.AddHMIObject("Roundrectangle1",
"HMIRoundRectangle")
End Sub
Use "HMIObjects"(Index)" to return an object from the HMIObjects listing, where Index in this
case identifies the object by name:
Sub EditRoundRectangle()
'VBA327
Dim objRoundRectangle As HMIRoundRectangle
Set objRoundRectangle = ActiveDocument.HMIObjects("Roundrectangle1")
objRoundRectangle.BorderColor = RGB(255, 0, 0)
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,
1945
Use "Selection"(Index) to return an object from the Selection listing:
Sub ShowNameOfFirstSelectedObject()
'VBA328
'Select all objects in the picture:
ActiveDocument.Selection.SelectAll
'Get the name of the first object of the selection:
MsgBox ActiveDocument.Selection(1).ObjectName
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1946
System Manual, 11/2008,
See also
Width Property (Page 2408)
BorderBackColor Property (Page 2035)
Selection Object (Listing) (Page 1949)
HMIObjects Object (Listing) (Page 1884)
HMIDefaultObjects Object (Listing) (Page 1878)
AddHMIObject Method (Page 1719)
VBA Reference (Page 1664)
Editing Objects with VBA (Page 1606)
Visible Property (Page 2405)
Top Property (Page 2311)
ToolTipText Property (Page 2310)
RoundCornerWidth Property (Page 2275)
RoundCornerHeight Property (Page 2275)
PasswordLevel Property (Page 2244)
Operation Property (Page 2237)
Name Property (Page 2228)
Left Property (Page 2192)
Layer Property (Page 2160)
Height Property (Page 2139)
FlashRateBorderColor Property (Page 2120)
FlashRateBackColor Property (Page 2119)
FlashBorderColor Property (Page 2112)
FlashBackColor Property (Page 2111)
FillStyle Property (Page 2108)
FillingIndex Property (Page 2107)
Filling Property (Page 2106)
FillColor Property (Page 2104)
BorderWidth Property (Page 2045)
BorderStyle Property (Page 2043)
BorderFlashColorOn Property (Page 2042)
BorderFlashColorOff Property (Page 2040)
BorderColor Property (Page 2036)
BackFlashColorOn Property (Page 2022)
BackFlashColorOff Property (Page 2021)
BackColor Property (Page 2017)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1947
ScriptInfo Object
Description
Represents a script (C, VB) that is configured for adding dynamics to a property or action to
an event.
VBA Object Name
HMIScriptInfo
Usage
Use the CreateDynamic method to make a property dynamic with the aid of a script. In the
following example...
Sub AddDynamicAsCSkriptToProperty()
'VBA329
Dim objCScript As HMIScriptInfo
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle1", "HMICircle")
Set objCScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeCScript)
'
'Define triggertype and cycletime:
With objCScript
.SourceCode = ""
.Trigger.Type = hmiTriggerTypeStandardCycle
.Trigger.CycleType = hmiCycleType_2s
.Trigger.Name = "Trigger1"
End With
End Sub
Use the AddAction method to configure an action on an event. In the following example...
Sub AddActionToPropertyTypeCScript()
'VBA330
Dim objEvent As HMIEvent
Dim objCScript As HMIScriptInfo
Dim objCircle As HMICircle
'Add circle to picture. By changing of property "Radius"
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1948
System Manual, 11/2008,
'a C-action is added:
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_AB", "HMICircle")
Set objEvent = objCircle.Radius.Events(1)
Set objCScript = objEvent.Actions.AddAction(hmiActionCreationTypeCScript)
End Sub
See also
Prototype Property (Page 2264)
Delete Method (Page 1745)
VBA Reference (Page 1664)
Creating Dynamics with VBA (Page 1631)
Trigger Property (Page 2314)
SourceCode Property (Page 2295)
ScriptType Property (Page 2280)
Parent Property (Page 2241)
Compiled Property (Page 2080)
Application Property (Page 2008)
Selection Object (Listing)
Description
A listing of the HMIObject objects that represent all the selected objects in a picture.
VBA Object Name
HMISelectedObjects
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
1949
Usage
Use the Selection property to return the Selection listing. In the following example the names
of all the selected objects in the active picture will be output:
Sub ShowSelectionOfDocument()
'VBA331
Dim colSelection As HMISelectedObjects
Dim objObject As HMIObject
Dim strObjectList As String
Set colSelection = ActiveDocument.Selection
If colSelection.Count <> 0 Then
strObjectList = "List of selected objects:"
For Each objObject In colSelection
strObjectList = strObjectList & vbCrLf & objObject.ObjectName
Next objObject
Else
strObjectList = "No objects selected"
End If
MsgBox strObjectList
End Sub
Use the SelectAll method, for example, to select all the objects in the picture. In the following
example all the objects in the active picture are selected:
Sub SelectAllObjects()
'VBA332
ActiveDocument.Selection.SelectAll
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
1950
System Manual, 11/2008,