Transformation C# -> VB

Version imprimable

Bonjour à tous.
Je deviens fou : Dans le but de distinguer un rafraichissement d'une page, j'utilise ceci en C#:

Code:

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
35
36
37
38
39
 
using System;
using System.Collections.Generic;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
 
public partial class _Default : System.Web.UI.Page 
{
    protected void Page_Load(object sender, EventArgs e)
    {
        if (!IsPostBack)
        {
            Session["CheckRefresh"] =
            Server.UrlDecode(System.DateTime.Now.ToString());
        }
 
    }
    protected void Button1_Click(object sender, EventArgs e)
    {
        if (Session["CheckRefresh"].ToString() ==
ViewState["CheckRefresh"].ToString())
        {
            Label1.Text = "Hello";
            Session["CheckRefresh"] =
            Server.UrlDecode(System.DateTime.Now.ToString());
        }
        else
        {
            Label1.Text = "Page Refreshed";
        }
 
    }
    protected void Page_PreRender(object sender, EventArgs e)
    {
        ViewState["CheckRefresh"] = Session["CheckRefresh"];
    }
 
}

Ca fonctionne très bien.

Maintenant, je ne suis pas un pro du C# (et pro tout court;)), et j'utilise le VB...

Donc je transforme en :

Code:

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
35
36
37
38
 
Imports System
Imports System.Collections.Generic
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 
        If Not IsPostBack Then
            Session("CheckRefresh") = Server.UrlDecode(System.DateTime.Now.ToString())
        End If
 
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Session("CheckRefresh").ToString() = ViewState("CheckRefresh").ToString() Then
 
            Label1.Text = "Hello"
 
            Session("CheckRefresh") = Server.UrlDecode(System.DateTime.Now.ToString())
 
        Else
 
            Label1.Text = "Page Refreshed"
        End If
    End Sub
 
 
 
 
    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
        ViewState("CheckRefresh") = Session("CheckRefresh")
    End Sub
End Class

A moins de devoir aller consulter l'ophtalmo, les deux codes sont équivalents?

le fichier aspx est identique (mis à part la déclaration du langage), et pourtant:

La page en C# fonctionne parfaitement, quand j'appuye sur F5 le label prend bien la valeur "Page Refreshed" et quand je clique sur le bouton, "Hello"

La page en VB a un comportement différent:

F5 déclenche bien "Page Refreshed", mais le click sur le bouton déclenche aussi "Page Refreshed"... dans 8 cas sur 10:?

En effet, de temps en temps, quand je clique sur le bouton de la page en VB, elle me répond "Hello"

Bref je sèche...

Je suis pas sûr de comprendre, mais ça n'est pas juste ça que tu veux:

Code:

1
2
3
4
5
6
7
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        
         If Not IsPostBack Then
             Label1.Text = "Page Refreshed"
          Else
            Label1.Text = "Hello"
        End If

09/07/2010, 17h09
sergentrazor

Edit:

bonjour lutecefalco,

Non ce n'est pas ce je désire...

En gros, je veux éviter les doubles post par rafraichissement de la page, autrement que par vérification des doublons avant insertion dans une bdd.

En page 1 j'ai un formulaire qui est traité par un postback ,le visiteur étant redirigé en page 2 en cas de réussite de l'insertion, pour continuer à travailler.
S'il fait "page précédente", il retombe sur la page 1. Si celle ci est expirée, le navigateur lui proposera de la rafraichir avec un avertissement...

Le commun des mortels clique sur annuler, mais il y en a toujours pour rafraichir, et insérer une deuxième fois les données (sauf si avant avant l'insertion, tu inspectes si les données ne vont pas créer un doublon)...

Je voulais juste faire ça autrement...

Les deux codes sont simplifiés mais c'est pour le principe (comparaison entre deux dates...)

Le code en C# fonctionne bien, mais il n'est pas de moi.
Je l'adapte en VB, et là le comportement devient étrange.

En exécutant pas à pas les 2 codes, c'est dans la routine de traitement du click sur le bouton qu'il y a un souci:

Avec le code en C# il saute bien la clause ELSE si la condition du IF est vraie, et quitte la routine void Button1_click.

Avec le code en VB, si la condition du IF est vraie, il saute le ELSE...mais en obervant pas à pas, il réexécute sub button1_click ! La clause IF n'est donc plus executée, mais la clause ELSE l'est...

Je précise, dans le fichier ASPX, le code est identique pour la version C# et VB (sauf pour CodeFile et Language...)

Si dans le code en VB je supprime la clause else, cela ne pose plus de problèmes :D mais mon lable n'affiche plus rien à la place de "Page Refreshed", et ce n'est pas le but ;)

J'ai bien essayé de remplacer le ELSE un deuxième IF qui traite le cas ou la condition du premier n'est pas réalisée, mais le problème est le même:

le traitement du click est relancé!!!

Edit:
Je viens de repartir à zéro avec création d'un nouveau site vide dans VS, réécriture à la main sans copié collé, mais en recopiant soigneusement sans rien changer, à part les variables de Session et de ViewState que j'ai nommé CheckS et CheckV... et...

Ca fonctionne!

Les deux codes ont à présent le même comportement, alors que à part ces deux variables, je n'ai rien changé d'une ligne:?

Et je ne pense pas que ce soit ça qui posait problême, sinon pourquoi la version C# fonctionnait elle?

Pour le coup, question résolue!