defaultvb.aspx.vb

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

Imports System
Imports Telerik.WebControls
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid

Namespace Telerik.GridExamplesVBNET.Programming.FilteringTemplateColumns
    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

        '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

        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid

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

    Public Class MyCustomFilteringColumn
        Inherits GridTemplateColumn

        Public Property DataField() As String
            Get
                Dim MyRes As Object = Me.ViewState("_df")
                If (Not MyRes Is Nothing) Then
                    Return CType(MyRes, String)
                End If
                Return String.Empty
            End Get
            Set(ByVal Value As String)
                Me.ViewState("_df") = Value
            End Set
        End Property

        Protected Overrides Sub SetupFilterControls(ByVal cell As TableCell)
            MyBase.SetupFilterControls(cell)
            cell.Controls.RemoveAt(0)
            cell.Controls.AddAt(0, New TextBox)
        End Sub

        Public Overrides Function Clone() As GridColumn
            MyBase.Clone()
        End Function

        Protected Overrides Function GetFilterDataField() As String
            Return Me.DataField
        End Function

        Protected Overrides Sub SetCurrentFilterValueToControl(ByVal cell As TableCell)
            MyBase.SetCurrentFilterValueToControl(cell)

            If Not Me.CurrentFilterValue Is String.Empty Then
                CType(cell.Controls(0), TextBox).Text = Me.CurrentFilterValue
            End If
        End Sub

        Protected Overrides Function GetCurrentFilterValueFromControl(ByVal cell As TableCell) As String
            Return CType(cell.Controls(0), TextBox).Text
        End Function

        Public Overrides Function SupportsFiltering() As Boolean
            Return True
        End Function

    End Class
End Namespace