Remarks | Properties | Methods | Samples |
ED
|
not used
|
RT
|
avaliable
|
This object deliveres all information stored with the cel
item...
You can read this like shown in the Sample, but ther some more,
like the Username, the Computer, Value or something else...
Class | Comment | Computer |
Group | Status | TagName |
Text | Time | User |
Value | VariableName |
DynPropertiesEnum[GET] | DynProperties[GET] | DynProperties[PUT] |
'########################################################## '### Get all CEL Items of the project ### '########################################################## Public Sub GetAllItems() Dim i As Integer Dim zCItem As CelItem 'get all items in memory... For i = 0 To thisProject.Cel.CelItems("*").Count - 1 'set object to a specific item... Set zCItem = thisProject.Cel.CelItems("*").Item(i) 'print time, text, Variablename and User-Comment of item to outputwindow Debug.Print "Time: " & zCItem.Time Debug.Print "Text: " & zCItem.Text Debug.Print "Variable: " & zCItem.VariableName Debug.Print "Comment: " & zCItem.Comment Debug.Print "-----------------------------" Next i End Sub