Discussion :

[Franck.H]

J'aimerais mettre en place une fonction JS en VB pour l'appeler ensuite dans VB, j'ai fait ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        Dim str = New StringBuilder
        str.AppendLine("function confirmerEnregistrement() {")
        str.AppendLine("    var val = '<%=Session(""mode"")%>';")
        str.AppendLine("    if (val == ""NouvelleSaisie"") {")
        str.AppendLine("        if (confirm('Les données suivantes ont été modifiées :\n\n" + Message + "Voulez-vous les enregistrer ?')) {")
        str.AppendLine("            document.getElementById('<%=hide.ClientID%>').value = ""oui"";")
        str.AppendLine("            return true;")
        str.AppendLine("        }")
        str.AppendLine("        else {")
        str.AppendLine("            document.getElementById('<%=hide.ClientID%>').value = ""non"";")
        str.AppendLine("            return true;")
        str.AppendLine("        }")
        str.AppendLine("    }")
        str.AppendLine("}")
 
        If ValChanged Then
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "DonneesModifiees", str.ToString(), True)
 
            If hide.Value = "oui" Then
                CallUpdateData()
            End If
        End If

Cela dit ça n'a pas l'air de fonctionner, quelqu'un aurait-il la solution ?

[DeWaRs]

Hello,

Regarde par ici, la personne qui a écrit ce blog fait la meme chose que ce que tu cherches à faire.

Perso, j'utilise souvent ce controle pour mes projets, maintenant, tu peux juste t'en inspirer pour résoudre ton problème.

En espérant que cela t'aide.

Cordialement.

DeWaRs

[Franck.H]

Ha oui je pense que c'est ce qu'il me faut, je vais étudier ça de près !

[Franck.H]

Ça marche pas trop mal dans l'ensemble, vu le merdier que c'est de gérer du code client et du code serveur dans une même application, c'est pas mal du tout.

L'effet est un peu moche du fait que c'est appelé durant le Page_Load et donc la moitié de la page n'est pas encore Refresh mais bon ça à le mérite de fonctionner.

Je vais toutefois y apporter quelques petites améliorations comme par exemple, permettre que lorsque le bouton Annuler est appuyé que ça quitte quand même la page mais que ça ne fasse pas certaines actions comme de la sauvegarde, pour revenir à un état antérieur... c'est de ça que j'ai besoin

[DeWaRs]

L'effet est un peu moche du fait que c'est appelé durant le Page_Load et donc la moitié de la page n'est pas encore Refresh mais bon ça à le mérite de fonctionner.

J'ai en effet remarqué ce problème, mais uniquement en mode "debug" lorsque le projet est publié sur un "vrai" serveur web, il n'y a plus de compilation et l'affichage est "normal". J'espere que ce sera la meme chose pour toi

Je vais toutefois y apporter quelques petites améliorations comme par exemple, permettre que lorsque le bouton Annuler est appuyé que ça quitte quand même la page mais que ça ne fasse pas certaines actions comme de la sauvegarde, pour revenir à un état antérieur... c'est de ça que j'ai besoin

Je suis pas sûr de comprendre... Normalement, c'est le comportement "normal" du tools. J'ai un doute (je peux pas tester maintenant), mais logiquement le "annuler" ne doit pas te recharger la page, je me trompe?

Cordialement

DeWaRs

[Franck.H]

J'ai un doute (je peux pas tester maintenant), mais logiquement le "annuler" ne doit pas te recharger la page, je me trompe

Normalement oui et dans la plus des cas mais là, j'ai un cas où je dois m'en servir comme un oui/non et donc si l'utilisateur clique sur Annuler alors on enregistre pas les données mais on quitte la page tout de même, juste sans enregistrer.

[EDIT]
Petit exemple de ma gestion:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
            If Request.Form("hid_f") = "1" Then
                Request.Form("hid_f").Replace("1", "0")
 
                If Session("mode") = "NouvelleSaisie" Then
                    EnregistrerSessionDonneesAnalyse()
                    UpdateData()
 
                    Session("mode") = "ModificationAnalyse"
                    Session("nb") = PrelevementsData.Count
                    BindAnalystes(1)
                    BindPrvt()
                    BindAn()
                    Affichage("ModificationAnalyse")
                    dvMSG.InnerText = String.Empty
                End If
            ElseIf Request.Form("hid_f") = "0" Then
                If Session("mode") = "NouvelleSaisie" Then
                    Session("mode") = "ModificationAnalyse"
                    Session("nb") = PrelevementsData.Count
                    BindAnalystes(1)
                    BindPrvt()
                    BindAn()
                    Affichage("ModificationAnalyse")
                    dvMSG.InnerText = String.Empty
                End If
            End If

[Franck.H]

J'ai en effet remarqué ce problème, mais uniquement en mode "debug" lorsque le projet est publié sur un "vrai" serveur web, il n'y a plus de compilation et l'affichage est "normal". J'espere que ce sera la meme chose pour toi

Effectivement, je viens de tester tout ça sur le serveur de test est ce problème n'apparaît pas, je pense que c'est dû à la lenteur du mode Debug de Visual Studio