System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
End With
End Sub
See also
GraphicObject Object (Page 1870)
PictureDeactivated Property
Description
Defines the picture to be displayed in the "Disable" status or returns the picture name.
The picture (*.BMP or *.DIB) must be located in the "GraCS" directory of the current project
so that it can be integrated.
Example:
The "ButtonConfiguration()" procedure accesses the properties of the round button. In this
example the pictures for the "On" and "Off" states will be defined:
Sub ButtonConfiguration()
'VBA673
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("RButton1", "HMIRoundButton")
With objRoundButton
'
'Toi use this example copy a Bitmap-Graphic
'to the "GraCS"-Folder of the actual project.
'Replace the picturename "TestPicture1.BMP" with the name of
'the picture you copied
.PictureDeactivated = "TestPicture1.BMP"
End With
End Sub
See also
RoundButton Object (Page 1942)
PicReferenced Property (Page 2249)
PictureDown Property
Description
Defines the picture to be displayed in the "On" status or returns the picture name.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2251
The picture (*.BMP or *.DIB) must be located in the "GraCS" directory of the current project
so that it can be integrated.
Example:
The "ButtonConfiguration()" procedure accesses the properties of the round button. In this
example the pictures for the "On" and "Off" states will be defined:
Sub ButtonConfiguration()
'VBA674
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
'
'To use this example copy two Bitmap-Graphics
'to the "GraCS"-Folder of the actual project.
'Replace the picturenames "TestPicture1.BMP" and "TestPicture2.BMP"
'with the names of the pictures you copied
.PictureDown = "TestPicture1.BMP"
.PictureUp = "TestPicture2.BMP"
End With
End Sub
See also
RoundButton Object (Page 1942)
PictureName Property
Description
Defines the picture to be displayed in the picture window in Runtime or returns the picture
name.
The picture (*.BMP or *.DIB) must be located in the "GraCS" directory of the current project
so that it can be integrated.
Example:
The "PictureWindowConfig" procedure accesses the properties of the picture window. In this
example the picture window will be configured:
Sub PictureWindowConfig()
'VBA675
Dim objPicWindow As HMIPictureWindow
Set objPicWindow = ActiveDocument.HMIObjects.AddHMIObject("PicWindow1", "HMIPictureWindow")
With objPicWindow
.AdaptPicture = False
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2252
System Manual, 11/2008,
.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)
PictureUp Property
Description
Defines the picture to be displayed in the "Off" status or returns the picture name.
The picture (*.BMP or *.DIB) must be located in the "GraCS" directory of the current project
so that it can be integrated.
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the pictures for the "On" and "Off" states will be defined:
Sub ButtonConfiguration()
'VBA676
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
'
'To use this example copy two Bitmap-Graphics
'to the "GraCS"-Folder of the actual project.
'Replace the picturenames "TestPicture1.BMP" and "TestPicture2.BMP"
'with the names of the pictures you copied
.PictureDown = "TestPicture1.BMP"
.PictureUp = "TestPicture2.BMP"
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,
2253
See also
RoundButton Object (Page 1942)
Button Object (Page 1824)
PicUpReferenced Property
Description
TRUE if the picture assigned to the "Off" status is to be saved in the RoundButton object.
Otherwise, only the associated object reference is saved. BOOLEAN write-read access.
Example:
The "RoundButtonConfiguration()" procedure accesses the properties of the RoundButton. In
this example the picture assigned to the "Off" status will be referenced:
Sub RoundButtonConfiguration()
'VBA677
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("RButton1", "HMIRoundButton")
With objRoundButton
.PicUpReferenced = False
End With
End Sub
See also
RoundButton Object (Page 1942)
PicUpTransparent Property
Description
Defines or returns which color of the bitmap object (.bmp, .dib) assigned to the "Off" status
should be set to "transparent". LONG write-read access.
The color is only set to "Transparent" if the value of the "PicUpUseTransColor" property is
"True".
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)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2254
System Manual, 11/2008,
Example:
The "RoundButtonConfiguration()" procedure accesses the properties of the RoundButton. In
this example the color "Blue" assigned in the Bitmap object is to be displayed transparent in
the status "Off".
Sub RoundButtonConfiguration()
'VBA678
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("RButton1", "HMIRoundButton")
With objRoundButton
.PicUpTransparent = RGB(0, 0, 255)
.PicUpUseTransColor = True
End With
End Sub
See also
PicUpUseTransColor Property (Page 2255)
RoundButton Object (Page 1942)
PicUpUseTransColor Property
Description
TRUE, when the transparent color defined by the "PicUpTransparent" property for "Off" status
should be used. BOOLEAN write-read access.
Example:
The "RoundButtonConfiguration()" procedure accesses the properties of the RoundButton. In
this example the color "Blue" assigned in the Bitmap object is to be displayed transparent in
the status "Off":
Sub RoundButtonConfiguration()
'VBA679
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("RButton1", "HMIRoundButton")
With objRoundButton
.PicUpTransparent = RGB(0, 0, 255)
.PicUpUseTransColor = True
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,
2255
See also
PicUpTransparent Property (Page 2254)
RoundButton Object (Page 1942)
PicUseTransColor Property
Description
TRUE if the transparent color defined with the "PicTransColor" property is to be used for the
"Deactivated" status. BOOLEAN write-read access.
Example:
The "GraphicObjectConfiguration()" procedure accesses the properties of the graphics object.
In this example the color "Blue" assigned in the Bitmap object is to be displayed transparent:
Sub GraphicObjectConfiguration()
'VBA680
Dim objGraphicObject As HMIGraphicObject
Set objGraphicObject = ActiveDocument.HMIObjects.AddHMIObject("GraphicObject1",
"HMIGraphicObject")
With objGraphicObject
.PicTransColor = RGB(0, 0, 255)
.PicUseTransColor = True
End With
End Sub
See also
PicTransColor Property (Page 2250)
GraphicObject Object (Page 1870)
PointCount Property
Description
Defines or returns the number of corner points in the case of the Polygon and Polyline objects.
Each corner point has position coordinates and is identified via an index.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2256
System Manual, 11/2008,
Example:
For this example to work, insert a polyline called "Polyline1" into the active picture: The
"PolyLineCoordsOutput"
procedure then outputs the coordinates of all the corner points in the
polyline:
Sub PolyLineCoordsOutput()
'VBA681
Dim iPcIndex As Integer
Dim iPosX As Integer
Dim iPosY As Integer
Dim iIndex As Integer
Dim objPolyLine As HMIPolyLine
Set objPolyLine = Application.ActiveDocument.HMIObjects.AddHMIObject("PolyLine1",
"HMIPolyLine")
'
'Determine number of corners from "PolyLine1":
iPcIndex = objPolyLine.PointCount
'
'Output of x/y-coordinates from every corner:
For iIndex = 1 To iPcIndex
With objPolyLine
.index = iIndex
iPosX = .ActualPointLeft
iPosY = .ActualPointTop
MsgBox iIndex & ". corner:" & vbCrLf & "x-coordinate: " & iPosX & vbCrLf & "y-coordinate:
" & iPosY
End With
Next iIndex
End Sub
List of links
See also
Index Property (Page 2145)
ActualPointTop Property (Page 1998)
ActualPointLeft Property (Page 1997)
PolyLine Object (Page 1928)
Polygon Object (Page 1925)
Position Property
Description
The value for position determines the sequence, in which menu entries and icons are assigned
in
user-defined menus and toolbars or how user-defined menus are arranged in the menu bar.
Write/Read 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,
2257
A value of "1" means position 1 (start).
Example:
In the following example the position of all menu entries in the first user-defined menu in the
active
picture will be output: So that this example will work, first carry out the example shown
under the heading "InsertSubMenu".
Sub ShowPositionOfCustomMenuItems()
'VBA683
Dim objMenu As HMIMenu
Dim iMaxMenuItems As Integer
Dim iPosition As Integer
Dim iIndex As Integer
Set objMenu = ActiveDocument.CustomMenus(1)
iMaxMenuItems = objMenu.MenuItems.Count
For iIndex = 1 To iMaxMenuItems
iPosition = objMenu.MenuItems(iIndex).Position
MsgBox "Position of the " & iIndex & ". menuitem: " & iPosition
Next iIndex
End Sub
See also
ToolbarItem Object (Page 1970)
MenuItem Object (Page 1906)
Menu Object (Page 1903)
InsertSubmenu Method (Page 1767)
PositiveValue Property
Description
Defines the value for the dynamic property if the configured tag returns a non-zero value, or
returns the value.
Example:
Use the BinaryResultInfo property to return the BinaryResultInfo object. In the following
example the radius of a circle will be dynamically configured using the Dynamic dialog, a tag
name
will be assigned and the associated property values will be assigned to both the binary
value ranges:
Sub AddDynamicDialogToCircleRadiusTypeBool()
'VBA684
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2258
System Manual, 11/2008,
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_C", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeBool
.BinaryResultInfo.NegativeValue = 20
.BinaryResultInfo.PositiveValue = 40
End With
End Sub
See also
NegativeValue Property (Page 2229)
BinaryResultInfo Object (Page 1822)
VBA Reference (Page 1664)
PredefinedAngels Property
Description
Defines or returns the depth of the display of the 3DBarGraph object. Value range from 0 to 3.
Display Assigned Value
Cavalier 0
Isometric 1
Axonometric 2
Freely Defined 3
Example:
The "HMI3DBarGraphConfiguration()" procedure accesses the properties of the 3DBarGraph
object. In this example the depth display will be set to "Isometric":
Sub HMI3DBarGraphConfiguration()
'VBA685
Dim obj3DBar As HMI3DBarGraph
Set obj3DBar = ActiveDocument.HMIObjects.AddHMIObject("3DBar1", "HMI3DBarGraph")
With obj3DBar
'Depth-angle a = 15 degrees
.AngleAlpha = 15
.PredefinedAngles = 1
'Depth-angle b = 45 degrees
.AngleBeta = 45
End With
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2259
End Sub
See also
3DBarGraph Object (Page 1805)
Pressed Property
Description
TRUE, when the RoundButton object is pressed. BOOLEAN write-read access.
Example:
The "RoundButtonConfiguration()" procedure accesses the properties of the RoundButton. In
this example the RoundButton object will be set to "Pressed":
Sub RoundButtonConfiguration()
'VBA686
Dim objRoundButton As HMIRoundButton
Set objRoundButton = ActiveDocument.HMIObjects.AddHMIObject("RButton1", "HMIRoundButton")
With objRoundButton
.Pressed = True
End With
End Sub
See also
RoundButton Object (Page 1942)
Process Property
Description
Defines or returns presetting for the value to be displayed.
This value is used in Runtime when the associated tag cannot be connected or updated when
a picture is started.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2260
System Manual, 11/2008,