defaultvb.aspx.vb

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

Imports System.Collections
Imports Telerik.WebControls
Imports System
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart

Namespace Telerik.GridExamplesVBNET.Programming.Binding

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


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub

        Private Sub InitializeComponent()

        End Sub

#End Region


        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Dim list As New ArrayList

            list.Add("string1")
            list.Add("string2")
            list.Add("string3")

            RadGrid1.DataSource = list
        End Sub


        Private Sub RadGrid2_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid2.NeedDataSource
            Dim list As New ArrayList
            list.Add(New TestListItem("Item 0", 0))
            list.Add(New TestListItem("Item 1", 1))
            list.Add(New TestListItem("Item 2", 2))
            list.Add(New TestListItem("Item 3", 3))

            Me.RadGrid2.DataSource = CType(list, IEnumerable)
        End Sub

        Private Sub RadGrid3_NeedDataSource(ByVal source As Object, ByVal e As WebControls.GridNeedDataSourceEventArgs) Handles RadGrid3.NeedDataSource
            Dim list As New ArrayList
            list.Add(New MyObj("1"))
            list.Add(New MyObj("2"))
            list.Add(New MyObj("3"))
            list.Add(New MyObj("4"))
            list.Add(New MyObj("1"))

            Me.RadGrid3.DataSource = CType(list, IEnumerable)
        End Sub
    End Class


    Public Class TestListItem
        Private _a As String
        Private _b As Integer


        Public Sub New(ByVal a As String, ByVal b As Integer)
            Me._a = a
            Me._b = b
        End Sub

        Public Property A() As String
            Get
                Return Me._a
            End Get
            Set(ByVal Value As String)
                Me._a = Value
            End Set
        End Property

        Public ReadOnly Property B() As Integer
            Get
                Return Me._b
            End Get
        End Property
    End Class

    Public Class MyObj
        Public innerText As String = ""

        Public Sub New()
        End Sub

        Public Sub New(ByVal text As String)
            Me.innerText = text
        End Sub


        Public ReadOnly Property Inner1() As MyObj
            Get
                Return New MyObj(Me.innerText + "Inner1")
            End Get
        End Property

        Public ReadOnly Property Inner2() As MyObj
            Get
                Return New MyObj(Me.innerText + "Inner2")
            End Get
        End Property

        Public ReadOnly Property TestProp() As String
            Get
                Return Me.innerText
            End Get
        End Property

    End Class
End Namespace