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

        Private Sub CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged
            Select Case CType(sender, CheckBox).ID
                Case "CheckBox1"
                    Me.RadGrid1.ClientSettings.Scrolling.AllowScroll = Me.CheckBox1.Checked
                Case "CheckBox2"
                    Me.RadGrid1.ClientSettings.Scrolling.UseStaticHeaders = Me.CheckBox2.Checked
                Case "CheckBox3"
                    Me.RadGrid1.ShowHeader = Me.CheckBox3.Checked
                Case "CheckBox4"
                    Me.RadGrid1.ShowFooter = Me.CheckBox4.Checked
            End Select
        End Sub

        Private Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Init
            If Not IsPostBack Then
                Dim DropDownListDataSource As New ArrayList

                DropDownListDataSource.Add("Top")
                DropDownListDataSource.Add("Bottom")
                DropDownListDataSource.Add("TopAndBottom")

                DropDownList1.DataSource = DropDownListDataSource
                DropDownList1.DataBind()

                Select Case RadGrid1.MasterTableView.PagerStyle.Position
                    Case GridPagerPosition.Top
                        DropDownList1.SelectedIndex = 0
                    Case GridPagerPosition.Bottom
                        DropDownList1.SelectedIndex = 1
                    Case GridPagerPosition.TopAndBottom
                        DropDownList1.SelectedIndex = 2
                End Select

                Me.CheckBox1.Checked = Me.RadGrid1.ClientSettings.Scrolling.AllowScroll
                Me.CheckBox2.Checked = Me.RadGrid1.ClientSettings.Scrolling.UseStaticHeaders
                Me.CheckBox3.Checked = Me.RadGrid1.ShowHeader
                Me.CheckBox4.Checked = Me.RadGrid1.ShowFooter
            End If
        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 CheckBox4 As CheckBox
        Protected WithEvents RadGrid1 As RadGrid
        Protected WithEvents DropDownList1 As DropDownList

        Private Sub DropDownListChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
            Select Case CType(sender, DropDownList).SelectedIndex
                Case 0
                    Me.RadGrid1.MasterTableView.PagerStyle.Position = GridPagerPosition.Top
                Case 1
                    Me.RadGrid1.MasterTableView.PagerStyle.Position = GridPagerPosition.Bottom
                Case 2
                    Me.RadGrid1.MasterTableView.PagerStyle.Position = GridPagerPosition.TopAndBottom
            End Select
        End Sub
    End Class
End Namespace