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