Gets the number of available named graphic objects in the class screen file. | |
Syntax: | long = object.GraphicCount |
Description: | The GraphicCount property is the number of
available graphics in the class screen file. If the file can not be
found it returns 0. Example: Sub TestClass Dim cimScreen As
GefObjectModel.GefScreen Set cimScreen = CimGetScreen() Dim cimClassObj As
GefObjectModel.GefObject Set cimClassObj =
cimScreen.Object.Objects.Item("TestClass") Dim Index As Long Dim cnt As Long cnt =
cimClassObj.ClassFormat.GraphicCount For Index = 0 To cnt - 1 cimClassObj.ClassFormat.GraphicIndex
= Index cimScreen.Refresh True Next Index End Sub |
See Also: | GraphicIndex , SwitchToNextGraphic , SwitchToPreviousGraphic , SwitchToFirstGraphic , SwitchToNextGraphic , SwitchToPreviousGraphic |