Event fired when alternate translations are imported from a dictionary.

Syntax:

 
OnImportAlternateTranslations(FileType As String, Filename As String, 
TransUnitsToImportArray As Variant, TransUnitsImportedArray 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.
TransUnitsToImportArray Array where the "TransUnit" objects for which the alternate translations should be imported are stored.
TransUnitsImportedArray Array where the "TransUnit" objects that have alternate translations added should be stored. The array is encapsulated in the "ReturnArray" object.
Example: 
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnImportAlternateTranslations(ByVal FileType As String, 
ByVal Filename As String, TransUnitsToImportArray As Variant, 
ByVal TransUnitsImportedArray 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