MessageBox asp.net /vb.net

Version imprimable

08/10/2007, 16h14
ninjajaune

MessageBox asp.net /vb.net

Bonjour,
j'ai cherché pendant longtps pour savoir comment fait-on pour afficher un "MessageBox" en ASP.net via VB.net mais en vain.

J'ai essayé d'import " System.windows.forms" mais VB.net ne reconnait pas cet import.

aidez moi.Merci
09/10/2007, 08h26
fabien.c

Bonjour,

A ma connaissance, la fonction MsgBox n'existe pas en ASP.Net.

Il faut passer par javascript avec la fonction alert();
09/10/2007, 15h58
ninjajaune

Merci pour ton aide.
15/10/2007, 17h21
deathsurfer

Si c'est possible. Je suis actuellement en cours et je n'ai pas mon pc, je te post le code dans la soirée.
15/10/2007, 17h24
SaumonAgile

Citation:

Envoyé par deathsurfer

je n'ai pas mon pc

Comment tu fais pour poster sans PC ? :aie:

Sinon pour l'affichage de la boite de dialogue, il faut effectivement passer par l'enregistrement d'un script côté client qui va appeler la fonction alert().
15/10/2007, 17h42
ecthelion77

Dans le cas d'un objet cliquable et pour afficher une messagebox au moment du click:

btnValide.OnClientClick = "return confirm('Etes-vous sûr de vouloir modifier cet enregistrement.')"
15/10/2007, 17h46
SaumonAgile

Citation:

Envoyé par ecthelion77

btnValide.OnClientClick = "return confirm('Etes-vous sûr de vouloir modifier cet enregistrement.')"

Et pour éviter de froisser 50% des utilisateurs (les utilisatrices), on pourra lui préférer cette formulation plus neutre :

Code:

btnValide.OnClientClick = "return confirm('Confirmez-vous la modification de cet enregistrement ?')"

;)

SaumonAgile, qui pense aussi aux femmes quand il rédige un cahier de charge.
15/10/2007, 18h40
ecthelion77

effectivement :mouarf:

Balises [CODE] : Merci d'y penser la prochaine fois.

Voici le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub UserMsgBox(ByVal sMsg As String)
        'simuler une msgbox
        Dim sb As New StringBuilder()
        Dim oFormObject As System.Web.UI.Control
 
        sMsg = sMsg.Replace("'", "\'")
        sMsg = sMsg.Replace(Chr(34), "\" & Chr(34))
        sMsg = sMsg.Replace(vbCrLf, "\n")
        sMsg = "<script language=javascript>alert(""" & sMsg & """)</script>"
 
        sb = New StringBuilder()
        sb.Append(sMsg)
 
        For Each oFormObject In Me.Controls
            If TypeOf oFormObject Is HtmlForm Then
                Exit For
            End If
        Next
        oFormObject.Controls.AddAt(oFormObject.Controls.Count, New LiteralControl(sb.ToString()))
 
    End Sub

16/10/2007, 08h23
bossun

pourquoi de pas utiliser Ajax??? tu peux mettre en place ça en 2 ou 3 clicks...

Chez moi la fonction msgbox marche parfaitement sur un site asp.net/VB tant sur IE que sur Firefox... mais bon je sais bien que ce n'est pas très adapté msgbox pour le web...

@+
16/10/2007, 16h36
Poussy-Puce

Citation:

Envoyé par deathsurfer

Si c'est possible. Je suis actuellement en cours et je n'ai pas mon pc, je te post le code dans la soirée.

Citation:

Envoyé par deathsurfer

Voici le code:
Public Sub UserMsgBox(ByVal sMsg As String)
'simuler une msgbox
Dim sb As New StringBuilder()
Dim oFormObject As System.Web.UI.Control

sMsg = sMsg.Replace("'", "\'")
sMsg = sMsg.Replace(Chr(34), "\" & Chr(34))
sMsg = sMsg.Replace(vbCrLf, "\n")
sMsg = "<script language=javascript>alert(""" & sMsg & """)</script>"
...

Tu vois... MsgBox n'existe pas... tu utilises le "alert" de javascript... ou le confirm qui est un alert plus... évolué!

Citation:

Envoyé par SaumonAgile

SaumonAgile, qui pense aussi aux femmes quand il rédige un cahier de charge.

AAAA... quelle belle galanterie!!! C'est trop gentil ;)