<%@ Page Explicit="True" Language="VB" Debug="True" %>
'
'--------------------------------------------------
'extrait et amélioré de ASP.NET POUR LES NULS
' de Bill Hatfield
'
'mélange du chapitre 9 et 10
'--------------------------------------------------
'
'
' voici le processus qui est déclenché lorsque la page
' est chargée pour la première fois
'
'1) l'évenement Page_Load est déclenché et IsPostBack faut false
' cela provoque l'execution du code a l'interieur de
' l'instruction If Not IsPostBack Then, d'ou l'initialisation
' des variables globales
'
'2) juste avant que la page soit envoyée au navigateur
' l'evenement Page_PreRender est déclenché.
' associé à la page, il survient
' APRES que tous les autres evenements de controles
' serveur ont eu lieu
' AVANT que la page soit envoyé au navigateur
' c'est l'occasion révée pour enregistrer toutes les
' variables dans viewstate
'
'3) la page est créée et envoyée au navigateur. l'utilisateur
' clique sur le bouton.
'
'4) l'évenement Page_Load est déclenché et IsPostBack faut true
' cela provoque l'execution du code a l'interieur de
' l'instruction then dans If Not IsPostBack
' Ici toute l'info dans viewstate est extraite puis placée
' dans les variables globales appropriées
'
'5) l'évenement PushMe_Click se produit. Ici nous pouvons utiliser
' afficher et meme changer les valeurs des variables globales.
'
'6) l'evenement Page_PreRender se produit juste avant que la page soit générée
' et envoyée au navigateur. Tout changement apporté aux
' variables globales est stocké en sécurité dans viewstate
'
'7) la page est créée et envoyée au navigateur. si l'utilisateur
' clique sur le bouton, le processus reprend à l'étape 4
'
'
'le système récupère les variables globales d'un coup, avant que
'quelque evenement se produise, et les enregitre en une fois
'apres que les autres evenements ont eu lieu.
'si vous ajoutez une nouvelle variable globale à la page
'souvenez vous d'ajouter des entrée pour cette variable dans les
'evenements Page_Load et Page_PreRender
'
'
'
<script runat="server">
dim aig as boolean
Sub Page_Load(Sender As Object, E As EventArgs)
If Not IsPostBack Then
'au depart aiguillage = true
aig = true
Else
'par la suite aig recupère la dernière valeur
'qu'il possède
aig = viewstate("aig")
End If
End Sub
Sub Page_PreRender(Sender As Object, E As EventArgs)
'on recupère la valeur sauvegardée de aig
ViewState("aig") = aig
End Sub
Sub ChangeButton_Click(Sender As Object, E As EventArgs)
if aig then
FlashyLabel.ForeColor = Drawing.Color.Blue
FlashyLabel.BackColor = Drawing.Color.White
'on inverse la valeur de aig avant de la sauvegarder
'dans viewstate
aig = false
else
FlashyLabel.ForeColor = Drawing.Color.Red
FlashyLabel.BackColor = Drawing.Color.Yellow
aig = true
'on inverse la valeur de aig avant de la sauvegarder
'dans viewstate
end if
End Sub
</script>
<html>
<body>
<form runat="server">
<asp:label id="FlashyLabel" runat="server" ForeColor="Red"
BackColor="Yellow" BorderColor="Blue"
Text="Texte en couleurs"/>
<br>
<asp:button text="Changer de couleur" onclick="ChangeButton_Click"
runat="server"/>
</form>
</body>
</html>