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.ClientSideAPI
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Private Sub CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
            Select Case CType(sender, CheckBox).ID
                Case "CheckBox1"
                    Me.RadGrid1.ClientSettings.ReorderColumnsOnClient = CheckBox1.Checked
                Case "CheckBox2"
                    Me.RadGrid1.ClientSettings.Resizing.ResizeGridOnColumnResize = CheckBox2.Checked
                Case "CheckBox3"
                    Me.RadGrid1.ClientSettings.Resizing.ClipCellContentOnResize = CheckBox3.Checked
            End Select
        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 RadGrid1 As RadGrid
        Protected WithEvents TextBox1 As TextBox
        Protected WithEvents Label1 As Label
        Protected WithEvents Label2 As Label
        Protected WithEvents TextBox2 As TextBox
        Protected WithEvents CheckBox1 As CheckBox
        Protected WithEvents CheckBox2 As CheckBox
        Protected WithEvents CheckBox3 As CheckBox
        Protected WithEvents Label3 As Label
        Protected WithEvents TextBox3 As TextBox
        Protected WithEvents Label4 As Label
        Protected WithEvents TextBox4 As TextBox
        Protected WithEvents Label5 As Label
        Protected WithEvents TextBox5 As TextBox
        Protected WithEvents Label6 As Label
        Protected WithEvents TextBox6 As TextBox
        Protected WithEvents Label8 As Label
        Protected WithEvents TextBox8 As TextBox
        Protected WithEvents Label7 As Label
        Protected WithEvents TextBox7 As TextBox
        Protected WithEvents Button1 As Button

        Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
            CheckBox1.Checked = RadGrid1.ClientSettings.ReorderColumnsOnClient
            CheckBox2.Checked = RadGrid1.ClientSettings.Resizing.ResizeGridOnColumnResize
            CheckBox3.Checked = RadGrid1.ClientSettings.Resizing.ClipCellContentOnResize
        End Sub
    End Class
End Namespace