defaultvb.aspx.vb

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

Imports Telerik.QuickStart
Imports Telerik.QuickStart.Callback

Namespace Telerik.CallbackExamplesVB.Controls.Panel.LoadingPanel
	Public Class DefaultVB
		Inherits XhtmlPage

#Region " Web Form Designer Generated Code "

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

		End Sub
		Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
		Protected CallbackPanel1 As Telerik.WebControls.CallbackPanel
		Protected WithEvents Image2 As System.Web.UI.WebControls.Image
		Protected LoadingPanel1 As Telerik.WebControls.LoadingPanel
		Protected WithEvents DataGrid2 As System.Web.UI.WebControls.DataGrid
		Protected CallbackPanel2 As Telerik.WebControls.CallbackPanel
		Protected WithEvents Image1 As System.Web.UI.WebControls.Image
		Protected LoadingPanel2 As Telerik.WebControls.LoadingPanel

		'NOTE: The following placeholder declaration is required by the Web Form Designer.
		'Do not delete or move it.
		Private designerPlaceholderDeclaration As System.Object

		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
			If Not IsPostBack Then
				DataGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
				DataGrid1.DataBind()
				DataGrid2.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
				DataGrid2.DataBind()
			End If
		End Sub

		Private Sub DataGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged, DataGrid2.PageIndexChanged
			CType(source, DataGrid).CurrentPageIndex = e.NewPageIndex
			CType(source, DataGrid).DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
			CType(source, DataGrid).DataBind()
		End Sub

		Private Sub DataGrid_SortCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridSortCommandEventArgs) Handles DataGrid1.SortCommand, DataGrid2.SortCommand
			CType(source, DataGrid).DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers Order By " + e.SortExpression)
			CType(source, DataGrid).DataBind()
		End Sub

	End Class

End Namespace