Event fired when a translation unit is selected.

Syntax:

OnSelectTransUnit( TransUnit As TransUnit )
Parameters: TransUnit "TransUnit" object representing the translation unit that has been selected.

Example:
' in a class module "EventClass"

Dim WithEvents App As Application

Private Sub App_OnSelectTransUnit(ByVal TransUnit As TransUnit)
 
[...]

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