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.WebControls
Imports Telerik.QuickStart

Namespace Telerik.CallbackExamplesVB.Controls.LinkButton

    '/ <summary>
'/ Summary description for DefaultCS.
'/ </summary>

Public Class DefaultVB
        Inherits XhtmlPage

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

        End Sub 'Page_Load
        ' Put user code to initialize the page here

#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

        Protected WithEvents CallbackLinkButton1 As Telerik.WebControls.CallbackLinkButton
        Protected CallbackImage1 As Telerik.WebControls.CallbackImage
        Protected HyperLink1 As System.Web.UI.WebControls.HyperLink
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents CallbackLinkButton2 As Telerik.WebControls.CallbackLinkButton
        Protected WithEvents CallbackLinkButton3 As Telerik.WebControls.CallbackLinkButton
        Protected WithEvents CallbackLinkButton4 As Telerik.WebControls.CallbackLinkButton
        Protected WithEvents CallbackLinkButton5 As Telerik.WebControls.CallbackLinkButton


        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."}
        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
        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 UpdateContent(ByVal linkID As Integer)
            CallbackImage1.ImageUrl = images(linkID)
            Label2.Text = descriptions(linkID)
            HyperLink1.NavigateUrl = links(linkID)
            HyperLink1.Text = " Go..."
        End Sub

        Protected Sub CallbackLinkButton1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CallbackLinkButton1.Click, CallbackLinkButton2.Click, CallbackLinkButton3.Click, CallbackLinkButton4.Click, CallbackLinkButton5.Click
            Dim callbackLinkButton = CType(sender, callbackLinkButton)
            Dim linkId As Integer = callbackLinkButton.CommandArgument
            UpdateContent(linkId)
        End Sub 'CallbackLinkButton1_Click
    End Class 'DefaultCS

End Namespace