defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports Telerik.QuickStart
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.AJAX.RecreateScripts

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As RadGrid

        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            RadGrid1.DataSource = New String() {""}
            If Not IsPostBack Then
                Me.DataBind()
            End If
        End Sub

        Protected Sub Button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            CType(sender, Button).Text = "Scripts recreated!"
        End Sub

        Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            RadGrid1.Controls.Add(New LiteralControl("<script type='text/javascript' src='JavaScript1.js'></script>"))
        End Sub
    End Class
End Namespace