webform1.aspx.vb

来自「ASP.NET服务器控件高级编程电子书」· VB 代码 · 共 34 行

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents XMLNewsFeed1 As XMLNewsFeed.XMLNewsFeed
    Protected WithEvents XMLNewsDisplay1 As XMLNewsDisplay.XMLNewsDisplay

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PopulateDataGrid()
    End Sub

    Private Sub PopulateDataGrid()
        'TODO Pass this value in instead of hard coding it here
        XMLNewsFeed1.XMLSource = _
                      "http://localhost/wrox/xmlnews/NewWebServices.xml"
        XMLNewsDisplay1.XMLDataSet = XMLNewsFeed1.XMLDataSet
        XMLNewsFeed1.Populate()
    End Sub

End Class