PslHistoryItems.Count
Returns the number of entries in this PslHistoryItems collection.
Syntax
Expression.Count as Integer
Expression Object of type PslHistoryItems
Example
Sub HandleTransString(t As PslTransString)
Dim count As Integer
count = t.History.Count
Dim i As Integer
For i = 1 To count
Dim item As PslHistoryItem
Set item = t.History(i)
If item.State(pslHistoryTextChanged) Then
PSL.Output "At " & CStr(item.Date) & " " & item.UserName _
& " changed the text to """ & item.Text & """"
End If
Next i
End Sub