System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Example:
The "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the color when the flash status is "Off" will be set to "Black":
Sub RectangleConfiguration()
'VBA420
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BorderFlashColorOff = RGB(0, 0, 0)
End With
End Sub
See also
RoundButton Object (Page 1942)
StatusDisplay Object (Page 1959)
StaticText Object (Page 1956)
Slider object (Page 1952)
TextList Object (Page 1964)
RoundRectangle Object (Page 1945)
Rectangle Object (Page 1939)
PolyLine Object (Page 1928)
Polygon Object (Page 1925)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
GraphicObject Object (Page 1870)
IOField Object (Page 1886)
EllipseSegment Object (Page 1859)
EllipseArc Object (Page 1856)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2041
BorderFlashColorOn Property
Description
Defines or returns the color of the object lines for the flashing status "On". 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 "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the color when the flash status is "On" will be set to "Red":
Sub RectangleConfiguration()
'VBA421
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BorderFlashColorOn = RGB(255, 0, 0)
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2042
System Manual, 11/2008,
See also
StaticText Object (Page 1956)
StatusDisplay Object (Page 1959)
Slider object (Page 1952)
TextList Object (Page 1964)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
PolyLine Object (Page 1928)
Polygon Object (Page 1925)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
GraphicObject Object (Page 1870)
IOField Object (Page 1886)
EllipseSegment Object (Page 1859)
EllipseArc Object (Page 1856)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BorderStyle Property
Description
Defines or returns the line style for the object. Value range from 0 to 4:
Line style Assigned Value
0
1
2
3
4
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2043
Example:
The "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the line style will be set to "1":
Sub RectangleConfiguration()
'VBA422
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BorderStyle = 1
End With
End Sub
See also
IOField Object (Page 1886)
StatusDisplay Object (Page 1959)
StaticText Object (Page 1956)
Slider object (Page 1952)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
Polygon Object (Page 1925)
PolyLine Object (Page 1928)
TextList Object (Page 1964)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
GraphicObject Object (Page 1870)
EllipseSegment Object (Page 1859)
EllipseArc Object (Page 1856)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
3DBarGraph Object (Page 1805)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2044
System Manual, 11/2008,
BorderWidth Property
Description
Defines or returns the line weight (in pixels) for the object.
Example:
in the following example the line weight of a newly added circle will be set to "2".
Sub CircleConfiguration()
'VBA423
Dim objCircle As IHMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle1", "HMICircle")
With objCircle
.BorderWidth = 2
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,
2045
See also
IOField Object (Page 1886)
StatusDisplay Object (Page 1959)
StaticText Object (Page 1956)
Slider object (Page 1952)
TextList Object (Page 1964)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
PolyLine Object (Page 1928)
Polygon Object (Page 1925)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
GraphicObject Object (Page 1870)
EllipseSegment Object (Page 1859)
EllipseArc Object (Page 1856)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BottomConnectedObjectName Property
Description
Returns the name of the starting object to which the connector is Read only access.
Example:
An example showing how to use the BottomConnectedObjectName property can be found in
this documentation under the heading "ObjConnection Object".
See also
objConnection Object (Page 1912)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2046
System Manual, 11/2008,
BottomConnectedConnectionPointIndex Property
Description
Returns the connection point on the object to which the connector is connected.
Connection Point Assigned Value
Up 0
Right 1
Down 2
Left 3
Example:
An example showing how to use the BottomConnectedObjectName property can be found in
this documentation under the heading "ObjConnection Object".
See also
objConnection Object (Page 1912)
BoxAlignment Property
Description
TRUE, when the fields are arranged aligned to the right. BOOLEAN write-read access.
Example:
The "CreateOptionGroup()" procedure creates the OptionGroup object with four option
buttons. Each option button is assigned the default name "myCustomText<Nummer>":
Sub CreateOptionGroup()
'VBA424
Dim objRadioBox As HMIOptionGroup
Dim iCounter As Integer
Set objRadioBox = ActiveDocument.HMIObjects.AddHMIObject("RadioBox_1", "HMIOptionGroup")
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2047
iCounter = 1
With objRadioBox
.Height = 100
.Width = 180
.BoxCount = 4
.BoxAlignment = False
For iCounter = 1 To .BoxCount
.index = iCounter
.Text = "CustomText" & .index
Next iCounter
End With
End Sub
See also
BoxCount Property (Page 2048)
OptionGroup Object (Page 1916)
CheckBox Object (Page 1827)
BoxCount Property
Description
Defines or returns the number of fields. Value range from 1 to 32.
Example:
The "CreateOptionGroup()" procedure creates the OptionGroup object with four option
buttons. Each option button is assigned the default name "myCustomText<Nummer>":
Sub CreateOptionGroup()
'VBA425
Dim objRadioBox As HMIOptionGroup
Dim iCounter As Integer
Set objRadioBox = ActiveDocument.HMIObjects.AddHMIObject("RadioBox_1", "HMIOptionGroup")
iCounter = 1
With objRadioBox
.Height = 100
.Width = 180
.BoxCount = 4
.BoxAlignment = True
For iCounter = 1 To .BoxCount
.index = iCounter
.Text = "CustomText" & .index
Next iCounter
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2048
System Manual, 11/2008,
See also
BoxAlignment Property (Page 2047)
OptionGroup Object (Page 1916)
CheckBox Object (Page 1827)
BoxType Property
Description
Defines or returns the field type. Value range from 0 to 2.
Field type Assigned Value
Edition 0
Input 1
I/O field 2
Example:
The "IOFieldConfiguration()" procedure accesses the properties of the I/O field. In this example
the field type is configured as "Input":
Sub IOFieldConfiguration()
'VBA426
Dim objIOField As HMIIOField
Set objIOField = ActiveDocument.HMIObjects.AddHMIObject("IOField1", "HMIIOField")
With objIOField
.BoxType = 1
End With
End Sub
See also
IOField Object (Page 1886)
Button1Width Property
Description
Defines or returns for the Group Display object the width of button 1 in pixels.
When the SameSize property is set to TRUE, all the buttons are specified the same width.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2049
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the width of button 1 will be set to "50.
Sub GroupDisplayConfiguration()
'VBA427
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.Button1Width = 50
End With
End Sub
See also
SameSize Property (Page 2276)
Button4Width Property (Page 2051)
Button3Width Property (Page 2051)
Button2Width Property (Page 2050)
GroupDisplay Object (Page 1874)
Button2Width Property
Description
Defines or returns for the Group Display object the width of button 2 in pixels.
When the SameSize property is set to TRUE, all the buttons are specified the same width.
Example:
The "GroupDisplayConfiguration()" procedure accesses the properties of the Group Display.
In this example the width of button 2 will be set to "50.
Sub GroupDisplayConfiguration()
'VBA428
Dim objGroupDisplay As HMIGroupDisplay
Set objGroupDisplay = ActiveDocument.HMIObjects.AddHMIObject("GroupDisplay1",
"HMIGroupDisplay")
With objGroupDisplay
.Button2Width = 50
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2050
System Manual, 11/2008,