Avatar billede kxh Nybegynder
03. oktober 2003 - 12:05 Der er 1 kommentar og
1 løsning

Java i ASPX (webform)

Hej

Hvordan kan jeg fra en webform control afvikle et java script f.eks til åbne af ny browser vindue
Koden skal altså ikke skrives i HTML, men direkte
på webformen i vb koden.

// Kim
Avatar billede sys64738 Nybegynder
05. oktober 2003 - 19:54 #1
Du skal bruge registerstartUpScript funktionen

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button

#Region " Web Form Designer Generated Code "
#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not Page.IsClientScriptBlockRegistered("doConfirm") Then
            Dim buffScriptString As String
            buffScriptString = "<script language='javascript'>" + vbCrLf + _
              "<!-- " + vbCrLf + _
              "function __doConfirm(Button1) { " + vbCrLf + _
              "if (confirm('Click to confirm message')) { " + vbCrLf + _
              " return true; " + vbCrLf + _
              "} return false; } " + vbCrLf + _
              "--> " + vbCrLf + _
              "</script>"

            Page.RegisterClientScriptBlock("doConfirm", buffScriptString)
        End If

        Button1.Attributes("onclick") = "return __doConfirm(this);"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        showClientMessageBox("You have clicked OK. Start execute other code.")

'continue to execute something if you have clicked OK
'for example msgbox
        Me.RegisterStartupScript("TestJS", _
  "<script language='javascript'>alert('Your code is executing');</script>")
    End Sub

    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
End Class
Avatar billede kxh Nybegynder
07. oktober 2003 - 14:01 #2
Tak for hjælpen nu virker det bare
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester