1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Récupérer une référence vers la fonction cliente qui va initier le callback
Dim ReferenceVersFonctionClienteInitiatriceDuCallBack As String = _
Page.ClientScript.GetCallbackEventReference(Me, _
"arg", _
"FonctionClienteDeRappel", _
"context", _
"FonctionClienteDeRappelEnCasDErreur", _
False)
'A l'aide de la référence obtenue précédemment, générer puis enregistrer le script client
'correspondant à la fonction qui va initier le callback
Dim ScriptFonctionCliente As String = "function ChargerAgencesLocales(arg,context){" & _
ReferenceVersFonctionClienteInitiatriceDuCallBack + ";}"
Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), _
"ChargerAgencesLocales", _
ScriptFonctionCliente, _
True)
End Sub
Private _resultat As String
Public Function GetCallbackResult() As String Implements System.Web.UI.ICallbackEventHandler.GetCallbackResult
Return _resultat
End Function
Public Sub RaiseCallbackEvent(ByVal eventArgument As String) Implements System.Web.UI.ICallbackEventHandler.RaiseCallbackEvent
Select Case eventArgument
Case 19
_resultat = "blabla"
Case Else
_resultat = "autre blabla"
End Select
End Sub |
Partager