defaultvb.aspx.vb

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

Imports System
Imports System.IO
Imports System.Text
Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Xsl
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.Programming.GridFromXml
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents PlaceHolder1 As System.Web.UI.WebControls.PlaceHolder

        Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
            Dim MyXPathDocument As XPathDocument = New XPathDocument(Server.MapPath("XMLFile.xml"))

            Dim MyXslTransform As XslTransform = New XslTransform
            MyXslTransform.Load(Server.MapPath("XSLTFile.xsl"))

            Dim MyStringWriter As StringWriter = New StringWriter
            MyXslTransform.Transform(MyXPathDocument, Nothing, MyStringWriter)

            Dim MyStringBuilder As StringBuilder = New StringBuilder

            MyStringBuilder.Append("<%@ Register Assembly=""RadGrid"" Namespace=""Telerik.WebControls"" TagPrefix=""radG"" %>")
            MyStringBuilder.Append(MyStringWriter.ToString())
            MyStringBuilder = MyStringBuilder.Replace("xmlns:radG=""remove""", "")

            Dim ctrl As Control = Page.ParseControl(MyStringBuilder.ToString())

            PlaceHolder1.Controls.Add(ctrl)

            Dim RadGrid1 As RadGrid = CType(Page.FindControl("RadGrid1"), RadGrid)
            AddHandler RadGrid1.NeedDataSource, AddressOf RadGrid1_NeedDataSource

        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs)
            CType([source], RadGrid).DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub
    End Class
End Namespace