defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.Programming.SelectRowWithCheckBox

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents RadGrid1 As RadGrid

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

        Protected Sub ToggleRowSelection(ByVal sender As Object, ByVal e As EventArgs)
            CType(CType(sender, CheckBox).Parent.Parent, GridItem).Selected = CType(sender, CheckBox).Checked
        End Sub

        Private Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As WebControls.GridItemEventArgs) Handles RadGrid1.ItemCreated
            If TypeOf e.Item Is GridDataItem Then
                AddHandler e.Item.PreRender, AddressOf RadGrid1_ItemPreRender
            End If
        End Sub

        Protected Sub RadGrid1_ItemPreRender(ByVal sender As Object, ByVal e As EventArgs)
            CType(CType(sender, GridDataItem)("CheckBoxTemplateColumn").FindControl("CheckBox1"), CheckBox).Checked = CType(sender, GridDataItem).Selected
        End Sub

    End Class
End Namespace