defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.Client.Selecting
    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.Selecting.AllowRowSelect = Me.CheckBox1.Checked
                Case "CheckBox2"
                    Me.RadGrid1.AllowMultiRowSelection = Me.CheckBox2.Checked
                Case "CheckBox3"
                    Me.RadGrid1.ClientSettings.Selecting.EnableDragToSelectRows = Me.CheckBox3.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.Selecting.AllowRowSelect
            Me.CheckBox2.Checked = Me.RadGrid1.AllowMultiRowSelection
            Me.CheckBox3.Checked = Me.RadGrid1.ClientSettings.Selecting.EnableDragToSelectRows
        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 Button1 As Button
        Protected WithEvents CheckBox1 As CheckBox
        Protected WithEvents CheckBox2 As CheckBox
        Protected WithEvents CheckBox3 As CheckBox
        Protected WithEvents RadGrid1 As RadGrid
    End Class
End Namespace