defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Telerik.WebControls
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid

Namespace Telerik.GridExamplesVBNET.Client.ColumnsReorder
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Private Sub CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged
            Select Case CType(sender, CheckBox).ID
                Case "CheckBox1"
                    Me.RadGrid1.ClientSettings.AllowColumnsReorder = Me.CheckBox1.Checked
                Case "CheckBox2"
                    Me.RadGrid1.ClientSettings.ReorderColumnsOnClient = Me.CheckBox2.Checked
            End Select
        End Sub

        Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
            Me.CheckBox1.Checked = Me.RadGrid1.ClientSettings.AllowColumnsReorder
            Me.CheckBox2.Checked = Me.RadGrid1.ClientSettings.ReorderColumnsOnClient
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Me.RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers")
        End Sub

        Protected WithEvents CheckBox1 As CheckBox
        Protected WithEvents CheckBox2 As CheckBox
        Protected WithEvents RadGrid1 As RadGrid
    End Class
End Namespace