Message Box...si ma come ?

[Jc_]

'Codice Messagebox
'//net:library 0.1.2
'Restituisce un popUp javascript con testo proveniente da stringa
        Public Function MessageBox(ByVal Val) As String
            Dim testo As String = Val
            testo = Replace(testo, "'", "\'")
            Popup = ("<script>alert('" + testo + "')</" + "script>")
        End Function

'Uso di Messagebox
Messagebox("Ciao!")

[pietro09]

Originariamente inviato da Jc_

'Codice Messagebox
'//net:library 0.1.2
'Restituisce un popUp javascript con testo proveniente da stringa
        Public Function MessageBox(ByVal Val) As String
            Dim testo As String = Val
            testo = Replace(testo, "'", "\'")
            Popup = ("<script>alert('" + testo + "')</" + "script>")
        End Function

'Uso di Messagebox
Messagebox("Ciao!")

Sì, anche questo è un metodo valido

[pietro09]

Una variazione su tema:

    'Codice Messagebox
    '//net:library 0.1.2
    'Restituisce un popUp javascript con testo proveniente da stringa
    Private Sub MessageBox(ByVal Val$)
        Me.Literal1.Text = "alert('" & Val.Replace("'", "\'") & "');"
    End Sub

e lo lanci con:

MessageBox("Ciao!, 'Mondo!'")

il Literal lo metti dove vuoi. Il lo metto nell'evento load, e stranamente funziona:

  <script id="clientEventHandlersJS" language="javascript">
<!--

function window_onload() {
	<asp:Literal id="Literal1" runat="server" EnableViewState="False" />
}

//-->
</script>

[pietro09]

ne ho anche un'altra
in un modulo:

    '----------------------------------------------------------------
    'scrive un messaggio nel client
    '----------------------------------------------------------------
    Public Sub MsgBox(ByVal This As Page, ByVal s$)
        s = s.Replace(vbNewLine, "\n")
        s = s.Replace("\", "\\")
        s = s.Replace("'", "\'")
        Dim ScriptString$ = ""
        ScriptString += "<script language=javascript>" & vbCrLf
        ScriptString += "alert('" & s & "')" & vbCrLf
        ScriptString += "</script>" & vbCrLf
        This.RegisterClientScriptBlock("clientscript", ScriptString)
    End Sub

ho visto pure classi in c# solo per scrivere un messaggio di alert

[sms]

Originariamente inviato da pietro09
Una variazione su tema:

..

e lo lanci con:

..

il Literal lo metti dove vuoi. Il lo metto nell'evento load, e stranamente funziona:

...

può essere utile sopratutto se hai già codice js (cioè ke nn devi aggiungere con aspx).. cosi fai un unico blocco .. nn ci avevo mai pensato :maLOL:

[pietro09]

Originariamente inviato da sms
può essere utile sopratutto se hai già codice js (cioè ke nn devi aggiungere con aspx).. cosi fai un unico blocco .. nn ci avevo mai pensato :maLOL:

se devo dirla tutta, preferisco il primo metodo, forse perchè è più leggibile, ossia, quando vedo var variabile = '<%=xxx%>'; lo capisco un poco di più

[djciko]

Le provo un po' tutte...soprattuto approfondendo
<< Page.RegistraScriptDiPartenza >>