Button a runtime con messageBox
Martedì 13 Aprile 2010 22:10 | 
Author: Administrator | 
'autore CUTONE LUCIANO e-mail:
Questo indirizzo e-mail è protetto dallo spam bot. Abilita Javascript per vederlo.
' lunguaggio VisualBasic.NET
' lunguaggio VisualBasic.NET
' nel load del form
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' registriamo un blocco di codice JavaScript sul client, in maniera tale da
' poter essere eseguito quando l'utente clicca sul bottone
If Not Page.IsClientScriptBlockRegistered("doConfirm") Then
Dim buffScriptString As String
buffScriptString = "<script language=""javascript"">" + vbCrLf + _
"<!-- " + vbCrLf + _
"function __doConfirm(btnWaiter) { " + vbCrLf + _
"if (confirm(""Confermi il salvataggio?"")) { " + vbCrLf + _
" return true; " + vbCrLf + _
"} return false; } " + vbCrLf + _
"--> " + vbCrLf + _
"</script>"
Page.RegisterClientScriptBlock("doConfirm", buffScriptString)
End If
Dim btnSalva As New Button
btnSalva.Text = "Salva"
btnSalva.Visible = True
btnSalva.ID = "btnSalva"
btnSalva.Style ("Position") = "Absolute"
btnSalva.Style ("Top") ="100px"
btnSalva.Style("Left") = "355px"
Me.Form.Controls.Add(btnSalva)
AddHandler btnSalva.Click, AddressOf BtnClickSalva
' aggiungiamo la chiamata alla nostra funzione client, nell'attributo onClick
' dell'html generato dal button
btnSalva.Attributes("onclick") = "return __doConfirm(this);"
end sub
'intercetti l'evento click sul button
Protected Sub BtnClickSalva(ByVal sender As Object, ByVal e As System.EventArgs)
Try
Dim b As Button = CType(sender, Button)
showClientMessageBox("SALVA: " & b.ID)
Catch ex As Exception
showClientMessageBox("ERRORE...:" & ex.Message)
End Try
End Sub
'messaggio sul client
Private Sub showClientMessageBox(ByVal message As String)
If Not (Page.IsStartupScriptRegistered("doMessage")) Then
Dim buffScriptString As String
buffScriptString = "<script language=""javascript"">" + vbCrLf + _
"<!-- " + vbCrLf + _
"alert(""" + message + """); " + vbCrLf + _
"--> " + vbCrLf + _
"</script>"
Page.RegisterStartupScript("doMessage", buffScriptString)
End If
End Sub
Ultimo aggiornamento (Martedì 13 Aprile 2010 22:53)