UN WEBCONTROL : LE CALLBACKBUTTON

'Je n'ai pas copier-coller entièrement le code, parceque ça ne serait pas agréable à lire je pense
'Pour avoir commême une idée voilà le "squelette"

<DefaultProperty("Text"), DefaultEvent("Click")> _
Public Class CallBackButton
      Inherits WebControl

      Implements ICallbackEventHandler

      ' Events
      Public Event Click As ClickEventHandler

      ' Methods
      <DebuggerNonUserCode> _
      Shared Sub New()
      Public Sub New()

      'AddRequestArgument c'est ce qui permêt d'ajouter des arguments que l'on récuperera dans l'évenement Click sous forme d'une NameValueCollection
      Public Sub AddRequestArgument(ByVal WebControl As WebControl, ByVal [Property] As String, ByVal Optional FutureAccessName As String = "")
      Public Sub AddRequestArgument(ByVal Id As String, ByVal [Property] As String, ByVal Optional FutureAccessName As String = "")

      'AddResult permêt d'ajouter des résultats qui seront affichés par du JavaScript à la fin d'une requête
      Public Sub AddResult(ByVal Id As String, ByVal [Property] As String, ByVal Value As String)
      Public Sub AddResult(ByVal HtmlControl As HtmlGenericControl, ByVal [Property] As String, ByVal Value As String)
      Public Sub AddResult(ByVal WebControl As WebControl, ByVal [Property] As String, ByVal Value As String)

      'Les implémentations de l'interface ICallbackEventHandler
      Private Function GetCallbackResult() As String Implements ICallbackEventHandler.GetCallbackResult
      Private Sub RaiseCallbackEvent(ByVal eventArgument As String) Implements ICallbackEventHandler.RaiseCallbackEvent

      'Cette fonction à 2 signatures permêt de faire l'interface entre JavaScript(string) et ASP.net(NameValueCollection)
      Private Function GetRequestArguments() As String
      Private Function GetRequestArguments(ByVal Value As String) As NameValueCollection

      'Les évenements que l'on override pour inscrire des scripts dans la page (script de validation, du bouton...), afficher un bouton dans le rendu...
      Protected Overrides Sub OnInit(ByVal e As EventArgs)
      Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)

      'Une fonction très utile mais qui n'a aucun rapport avec le contrôle, elle permet de récupérer le code HTML de rendu d'un contrôle
      Public Function RenderOtherControl(ByVal WebControl As WebControl) As String

      ' Properties
      Public Property CauseValidation As Boolean
      Private Property RequestArguments As ArrayList
      Public Property [Text] As String
      Public Property ValidationGroup As String

      ' Fields
      Private Shared __ENCList As ArrayList
      Private ClickEvent As ClickEventHandler
      Private NameOfRequestArguments As ArrayList
      Private Result As String
      Private Result_header As String

      ' Nested Types
      Public Delegate Sub ClickEventHandler(ByVal Args As NameValueCollection)
End Class