defaultvb.aspx.vb

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

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


Namespace Telerik.CallbackExamplesVB.Controls.DropDownList
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected HyperLink1 As System.Web.UI.WebControls.HyperLink
        Protected CallbackImage1 As Telerik.WebControls.CallbackImage
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Wrapper1 As System.Web.UI.WebControls.Panel
        Protected WithEvents CallbackDropDownList1 As Telerik.WebControls.CallbackDropDownList


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                LoadData(0)
            End If
        End Sub 'Page_Load

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit


        '/ <summary>
        '/		Required method for Designer support - do not modify
        '/		the contents of this method with the code editor.
        '/ </summary>
        Private Sub InitializeComponent()

        End Sub 'InitializeComponent

#End Region

        Private images() As String = {"chart.gif", "editor.gif", "grid.gif", "menu.gif", "treeview.gif"}
        Private descriptions() As String = {"r.a.d.chart is a business-oriented charting component designed to eliminate the complexit of displaying graphical data in ASP.NET.", "The leading WYSIWYG rich-text editor for ASP.NET. Allows you to easily edit specific areas of content or complete web-pages using a Work-like interface.", "r.a.d.grid is designed to eliminate the typical tradeoff associated with ASP.NET grid controls  rich functionality at the expense of weight and performance. Thanks to its innovative architecture r.a.d.grid is extremely fast and generates very little output. Added to this are true cross-browser support and top-of-the-line features.", "The ""all-in-one"" menu component for ASP.NET: horizonatal, vertical, pop-up, scrollable. Shipped with a visual configuration tool: r.a.d.menu Design Studio.", "A superchanged treeview component with features like load on demand, darg-and-drop, combo-box mode, auto SQL binding, multi-node selection, contect menus, etc."}
        Private links() As String = {"http://www.telerik.com/r.a.d.chart", "http://www.telerik.com/r.a.d.editor", "http://www.telerik.com/r.a.d.grid", "http://www.telerik.com/r.a.d.menu", "http://www.telerik.com/r.a.d.treeview"}


        Private Sub LoadData(ByVal selectedIndex As Integer)
            If selectedIndex > -1 Then
                CallbackImage1.ImageUrl = images(selectedIndex)
                Label2.Text = descriptions(selectedIndex)
                HyperLink1.NavigateUrl = links(selectedIndex)
                HyperLink1.Text = " Go..."
            End If
        End Sub 'LoadData


        Private Sub CallbackDropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackDropDownList1.SelectedIndexChanged
            LoadData(CallbackDropDownList1.SelectedIndex)
        End Sub 'CallbackDropDownList1_SelectedIndexChanged
    End Class 'DefaultVB 
End Namespace 'Telerik.CallbackExamplesVB.Controls.DropDownList