Discussion :

[betsprite]

Bonjour,

j'essai actuellement de faire un appel tout bête de la fonction alert() de javascript dans mon code VB.Net. Ceci va me permettre de retourner un texte pour prévenir l'utilisateur que le champ d'id txt_nomApplication du nom de l'application n'est pas rempli. J'ai donc tenter d'écrire :

Code :

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

1
2
3
4
5
6
If txt_nomApplication.Text = String.Empty Then
            Dim strApp As String = "Erreur : Vous devez saisir le nom d'application"
            Response.Write("<script language=""Javascript"">")
            Response.Write("alert(" + strApp + ");")
            Response.Write("</script>")
         end if

Cependant, ceci ne fonctionne pas.

Si vous avez une idée cela m'arrangerait vraiment

Merci !

[Hinault Romaric]

Salut,

Il y'a la fonction RegisterClientScriptBlock() qui permet d'ajouter du code javascript dans ta page à partir du codebehind. Voir la FAQ

@++

[betsprite]

Merci Hinault Romaric pour ta réponse

J'ai consulté la FAQ et j'essaie actuellement d'utiliser cette méthode. Seulement, un petit problème persiste. Celui concernant la méthode

Code :

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

getType()

. Je voudrais juste en fait faire un script client de type text/javascript mais je ne sais pas comment le faire accepter à la méthode.

Merci !

[Hinault Romaric]

Je voudrais juste en fait faire un script client de type text/javascript mais je ne sais pas comment le faire accepter à la méthode.

Avec GetType () le script client qui est généré est de type text/javascript

[betsprite]

Avec GetType () le script client qui est généré est de type text/javascript

Le problème est que quand je garde getType() dans le code ci-dessous, j'ai forcément l'erreur suivante :

Erreur 52 Type attendu.

Code :

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

Page.ClientScript.RegisterClientScriptBlock(GetType(), "alert nomApplication empty", "alert('Erreur : Vous devez saisir le nom d'application');", True)

[Hinault Romaric]

Je crois que tu devrais plutot faire un truc du genre.

Code :

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

1
2
 
Page.GetType()

Ou

Code :

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

1
2
 
Me.GetType()

@++

[betsprite]

Je crois que tu devrais plutot faire un truc du genre.

Code :

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

Page.GetType()

Merci ! c'est bien ça ! je n'ai plus d'erreur et j'ai donc le code suivant :

Code :

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

1
2
If txt_nomApplication.Text = String.Empty Then
            Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "alert nomApplication empty", "alert('Erreur : Vous devez saisir le nom d'application');", True)

Cependant, lorsque je clique sur le bouton censé contrôler la saisie, rien ne se passe :s pas de message de la fonction alert()...

[Hinault Romaric]

Ce simple avec ce code le script javascript qui est generer n'est pas inclus dans une fonction, et le probleme c'est comment donc l'appelé dans ce cas, essaye plutot cecci.

Code :

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

1
2
3
4
5
6
7
 
Dim csText As New StringBuilder()
csText.Append("<script type=""text/javascript""> function DoAllertk() {")
csText.Append("alert('Erreur : Vous devez saisir le nom d'application');'} </")
csText.Append("script>")
 
Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "alert nomApplication empty", csText.ToString(),true)

Plus de Détail : http://msdn.microsoft.com/en-us/library/btf44dc9.aspx

@++

[betsprite]

Merci encore Hinault Romaric, je comprends mieux le problème de mon code.

Seulement,

Code :

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

StringBuilder()

me génère une erreur :

type "StringBuilder" non défini

Aurais-tu une explication ? :s

[Hinault Romaric]

fait un import de

Code :

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

1
2
 
System.Text

@++

[betsprite]

fait un import de

Code :

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

System.Text

Oui en effet c'était juste l'oubli d'un import

Mais malgré qu'il n'y ait plus d'erreur, toujours aucune fenêtre ne s'ouvre pour le alert() :s

[Hinault Romaric]

Dans ce cas fait voir le code ou tu fait appel à ta fonction JavaScript, et aussi essaye de voir le code source de page à partir du navigateur pour voir si celui-ci est bien générer.

@++

[betsprite]

Bonjour,

Voici mon code pour plus de clarté :

Code :

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

1
2
3
4
5
6
7
8
9
10
' Fonction appelée lors du clic pour la validation de la demande :
 
Private Sub IBtnValider_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles IBtnValider.Click
 
            If ControleValidator() Then
                Dim idApplication As String = InsertApplication()
                Response.Redirect("ConfirmationAjoutClient.aspx?idApplication=" + idApplication.ToString)
            End If
 
    End Sub

Puis voici ControleValidator() :

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
Private Function ControleValidator() As Boolean
 
     ' Champ de saisie du nom de l'application :
     If txt_nomApplication.Text = String.Empty Then
 
         Dim csText As New StringBuilder()
         csText.Append("<script type=""text/javascript""> function DoAllertk() {")
         csText.Append("alert('Erreur : Vous devez saisir le nom d'application');'} </")
         csText.Append("script>")
 
         Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "alert nomApplication empty", csText.ToString(), True)
         return false
 
     End If
 
End Function

Il y a d'autres vérifications dans cette fonction mais il n'est pas nécessaire de le savoir, sachant que rien que pour le nom de l'application, les lignes suivantes ne fonctionnent pas :s

J'éspère que ça pourra vous éclairer

Merci encore !

[Hinault Romaric]

Salut,

En fait ca ne fonctionne pas comme cella, la fonction ClientScript.RegisterClientScriptBlock) ajoute le script javaScript que tu as écrit dans le code-behind dans la page lors du chargement de la page à l'évènement Page_load ou Page_init, ensuite puisque celui-ci doit être exécuter coté client, dans, tu ne doit plus faire appel à ce code dans le code métier, en principe le bouton IBtnValider devrais appelé directement la fonction javacript que tu écrit. Donc en principe la fonction ControleValidator() devrais être simplement ta fonction javascript.

@++

[betsprite]

Bonjour Hinault Romaric et merci pour ta réponse.

J'ai donc suivi tes conseils et j'ai modifié mon événement lors du clic :

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
Private Sub IBtnValider_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles IBtnValider.Click
 
dim valider as boolean = true
 
' Champ de saisie du nom de l'application :
     If txt_nomApplication.Text = String.Empty Then
 
         Dim csText As New StringBuilder()
         csText.Append("<script type=""text/javascript""> function DoAllertk() {")
         csText.Append("alert('Erreur : Vous devez saisir le nom d'application');'} </")
         csText.Append("script>")
 
         Page.ClientScript.RegisterClientScriptBlock(Page.GetType(), "alert nomApplication empty", csText.ToString(), True)
 
valider = false
 
end if
 
            If valider = true Then
                Dim idApplication As String = InsertApplication()
                Response.Redirect("ConfirmationAjoutClient.aspx?idApplication=" + idApplication.ToString)
            End If
 
    End Sub

Mais toujours pas de texte à l'affichage :s