Event fired when the supported languages of a dictionary are queried.

Syntax:

OnQuerySupportedLanguages(FileType As String, Filename As String, 
SourceLanguageArray As ReturnArray, TargetLanguageArray 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.
SourceLanguageArray Array where the supported source languages should be stored.
TargetLanguageArray Array where the supported target languages should be stored.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnQuerySupportedLanguages(ByVal FileType As String, 
ByVal Filename As String, ByVal SourceLanguageArray As ReturnArray, 
ByVal TargetLanguageArray 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: 05/11/05