RegisterClientScriptBlock och function

hur anropar man registerclientscriptblock inne i en funktion?

Public Function alert(ByVal text As String) As String
?????.RegisterClientScriptBlock("stringscript", "<script language='javascript'>alert('MEDDELANDE');</script>")
End Function

Med Page eller this förutsatt att funktionen existerar i en Page klass.

har testat med this och page funkar inte!

Varifrån försöker du anropa RegisterClientScriptBlock?

felet e att det inte går och kompilera koden!

Va inte det jag frågade, jag undrade varifrån du försöker anropa RegisterClientScriptBlock samt även vad du får för felmeddelande.

jag har inte anropat funktionen än men får fel mess när jag försöker kompilerar koden!

jag har alla funktioner samlade i en module!

this:
Name 'this' is not declared.

page:
Reference to a non-shared member requires an object reference.

Att det inte funkar har renholm redan svarat på.

Med Page eller this förutsatt att funktionen existerar i en Page klass.

Du kan göra så här istället.

'.aspx.vb
Page.RegisterClientScriptBlock("stringscript", DittModuleNamn.Alert("Lalala"))

'Funktion i din modul
Public Shared Function Alert(ByVal text As String) As String
   Dim sb as new StringBuilder()
   sb.Append("<script language='javascript'>")
   sb.Append("alert('")
   sb.Append(text)
   sb.Append("');</script>")
   return sb.ToString()
End Function

hmm oki så modulen ligger i en klass?

får felmess:
Type 'StringBuilder' is not defined.

oj löste det glömde importera System.Text Namespace

Tydligare version

'.aspx.vb
Sub Page_load(sender as object, e as EventArgs)
   If Not Page.IsPostBack Then
      BindData()
   End If
End Sub

Sub BindData()
   Page.RegisterClientScriptBlock("stringscript", PageScripts.Alert("Lalala"))
End Sub

Public Class PageScripts
   Public Shared Function Alert(ByVal text As String) As String
      Dim sb as new System.Text.StringBuilder()
      sb.Append("<script language='javascript'>")
      sb.Append("alert('")
      sb.Append(text)
      sb.Append("');</script>")
      return sb.ToString()
   End Function
End Class