Appel de javascript en VB.Net

Version imprimable

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:

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 !

01/09/2010, 12h26
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

@++ ;)
01/09/2010, 12h50
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:

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 !
01/09/2010, 13h01
Hinault Romaric

Citation:

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
01/09/2010, 13h08
betsprite

Citation:

Envoyé par Hinault Romaric

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 :

Citation:

Erreur 52 Type attendu.

Code:

Page.ClientScript.RegisterClientScriptBlock(GetType(), "alert nomApplication empty", "alert('Erreur : Vous devez saisir le nom d'application');", True)
01/09/2010, 13h49
Hinault Romaric
Je crois que tu devrais plutot faire un truc du genre.
Code:

1 2 Page.GetType()
Ou
Code:

1 2 Me.GetType()
@++ ;)

Citation:

Envoyé par Hinault Romaric

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

Code:

Page.GetType()

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

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()...

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:

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

@++ ;)

01/09/2010, 14h23
betsprite

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

Seulement,

Code:

StringBuilder()

me génère une erreur :

Citation:

type "StringBuilder" non défini

Aurais-tu une explication ? :s
01/09/2010, 15h56
Hinault Romaric
fait un import de
Code:

1 2 System.Text
@++ ;)
01/09/2010, 16h13
betsprite

Citation:

Envoyé par Hinault Romaric

fait un import de

Code:

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
01/09/2010, 16h17
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.

@++ ;)

Bonjour,

Voici mon code pour plus de clarté :

Code:

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:

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 !

03/09/2010, 10h08
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.

@++ :)

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:

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