Event fired when the item count of a dictionary is queried.

Syntax:

OnQueryItemCount( FileType As String, Filename As String, ReturnCount As ReturnLong )
Parameters: FileType File type on which the dictionary is based.
Filename File name on which the dictionary is based.
ReturnCount Parameter in which to store the item count of the dictionary.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnQueryItemCount(ByVal FileType As String, ByVal Filename As String, _
	ByVal ReturnCount As ReturnLong)
 
[...]

End Sub

' in a module

Public EventManager As New EventClass

Sub TestMacro()
	Set EventManager.App = Application
End Sub

See also:

Class Application

Last Updated: 05/20/05