Event fired when a text is searched for in a dictionary.

Syntax:

OnFindTranslation(FileType As String, Filename As String, SourceLanguage As String, 
TargetLanguage As String, MaxCount As Long, MinMatchValue As Long, 
FindTextDataArray As ReturnArray)
Parameters: FileType Type of the file on which the dictionary is based.
FileName Name of the file on which the dictionary is based.
SourceLanguage Source language of the translation.
TargetLanguage Target language of the translation.
MaxCount Maximum results count.
MinMatchValue Minimum match value.
FindTextDataArray Array where the results can be stored using "FindTextData" objects.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnFindTranslation(ByVal FileType As String, ByVal Filename As String, 
ByVal Text As String, ByVal SourceLanguage As String, ByVal TargetLanguage As String, 
ByVal MaxCount As Long, ByVal MinMatchValue As Long, 
ByVal FindTextDataArray As ReturnArray)
 
[...]

End Sub

' in a module

Public EventManager As New EventClass

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

See also:

Class Application

Last Updated: 04/26/05