Discussion :

[ahmedige]

Bonjour,
Voila j'ai une classe qui affiche une alert et dans une autre page j'ai un button qui appel une fonction de cet classe le code est le suivant :
Page formulaire.aspx

Code :

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

1
2
3
4
Private Sub btnValidate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValidate.Click
      Dim  MsgBox1 as New WinAlert
      MsgBox1.afficher("message ......")
 End Sub

Page Classe WinAlert

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
Imports System.Web
Imports System.Web.UI
 
Public Class WinAlert
    Dim page As New System.Web.UI.Page
    Public Sub afficher(ByVal msg As String)
 
        Dim sb As New System.Text.StringBuilder
        sb.Append("<script language='javascript'>")
        sb.Append("alert('" & msg & "')")
        sb.Append("</script>")
 
        page.RegisterStartupScript("message", sb.ToString())
 
 End Sub

Mon probleme c'est que rien ne s'affiche (fenetre d'alert), je fais un pas a pas detaillé et j'arrive a acceder a la methode afficher apres le deboge l'alert ne s'execute pas .quand je copie cole le code de la methode afficher dans la meme page que le formulaire alors ici la fenetre alert s'affiche.
je soulicite votre aide .
Merci

[nah666]

Dim page As New System.Web.UI.Page

Tu crée une nouvelle instance d'une page, qui n'est pas la même que la page appelante.

En fait tu attache ton javascript a une page que tu as en mémoire mais jamais affichée.

Essaie:

Code :

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

1
2
3
4
5
6
 
 
Private Sub btnValidate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValidate.Click
      Dim  MsgBox1 as New WinAlert
      MsgBox1.afficher("message ......",Me)
 End Sub

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
Imports System.Web
Imports System.Web.UI
 
Public Class WinAlert
 
    Public Sub afficher(ByVal msg As String,page as Page)
 
        Dim sb As New System.Text.StringBuilder
        sb.Append("<script language='javascript'>")
        sb.Append("alert('" & msg & "')")
        sb.Append("</script>")
 
        page.RegisterStartupScript("message", sb.ToString())
 
 End Sub

[ahmedige]

Et si j'appel la methode afficher() dans un module ? je ne peut pas faire Me