defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 49 行

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.Functionality.ResponseRedirect
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage

        Protected WithEvents CallbackButton1 As Telerik.WebControls.CallbackButton
        Protected RadioButtonList1 As System.Web.UI.WebControls.RadioButtonList
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents CallbackLinkButton1 As Telerik.WebControls.CallbackLinkButton


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

        End Sub 'Page_Load        

        Private Sub CallbackButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackButton1.Click
            If RadioButtonList1.SelectedIndex > -1 Then
                Response.Redirect(String.Format("~/Callback/Examples/Functionality/{0}/DefaultCS.aspx", RadioButtonList1.SelectedItem.Value))
            End If

        End Sub 'CallbackButton1_Click


        Private Sub CallbackLinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CallbackLinkButton1.Click
            If RadioButtonList1.SelectedIndex > -1 Then
                Response.Redirect(String.Format("~/Callback/Examples/Functionality/{0}/DefaultCS.aspx", RadioButtonList1.SelectedItem.Value))
            End If

        End Sub 'CallbackLinkButton1_Click
    End Class 'DefaultVB
End Namespace 'Telerik.CallbackExamplesVB.Functionality.ClientEvents