Hi,
this is my code
'MegaContext(Fields,Types)
'Uses(Components)
Option Explicit
' Must be implemented - returns the kind of the control
Function AttCtl_GetDefaultKind() As String
AttCtl_GetDefaultKind="Edit"
End Function
'May be implemented if the kind of the control depends of the object
'Function AttCtl_GetKind(Context As MegaUpdateToolContext) As String
'End Function
'May be implemented to initialize or refresh the content of the control - returns False to invoke default implementation
'Function AttCtl_SetText(Context As MegaUpdateToolContext,sInitialValue as String) As Boolean
'End Function
'May be implemented to catch a command - returns False to invoke default implementation
'Function AttCtl_OnCommand(Context As MegaUpdateToolContext,Item As Integer,Notification As Integer) As Boolean
'End Function
'May be used if the control has a button menu - the macro must implements the MetaCommand Macro methods to fullfill the action
'returns the category of the standard command to be added to the menu
'Function AttCtl_ImplementsMetaCommand(Context As MegaUpdateToolContext) As Integer'
'End Function
'Must be implemented to fill a drop-down list - return the values type
'Function AttCtl_FillCombo(Context As MegaUpdateToolContext,FillCollection as MegaCollection,InitialValue as String) As Integer
'End Function
'May be implemented to overload the update of the object - returns False to invoke default implementation
'Function AttCtl_Update(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
'End Function
'May be implemented to overload the check the validity of the object - returns False to invoke default implementation
'Function AttCtl_CheckUpdate(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
'End Function
Function AttCtl_Update(Context As MegaUpdateToolContext,Status As Integer,ErrorMessage As String) As Boolean
AttCtl_Update=true
msgbox "LLT: valeur modifié"
End Function
