Documentation Center

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