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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected lblPrice As System.Web.UI.WebControls.Label
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents rbModel As Telerik.WebControls.CallbackRadioButtonList
        Protected WithEvents rbProcessor As Telerik.WebControls.CallbackRadioButtonList
        Protected WithEvents rbShipping As Telerik.WebControls.CallbackRadioButtonList
        Protected imgPCModel As System.Web.UI.WebControls.Image
        Protected WithEvents Panel1 As System.Web.UI.WebControls.Panel
        Protected WithEvents Panel2 As System.Web.UI.WebControls.Panel
        Protected WithEvents label11 As System.Web.UI.WebControls.Label
        Protected WithEvents statusLabel As System.Web.UI.WebControls.Label
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents LoadingPanel2 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected Label2 As System.Web.UI.WebControls.Label


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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


        Private Sub CallbackRadioButtonList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbShipping.SelectedIndexChanged
            ShowPrice()
        End Sub 'CallbackRadioButtonList1_SelectedIndexChanged

        Private prices(,) As Integer = New Integer(,) {{300, 310, 320, 330}, {280, 290, 300, 310}, {400, 410, 420, 430}, {380, 390, 400, 410}}


        Private Function GetModelPrice() As Integer
            If rbModel.SelectedIndex > -1 AndAlso rbProcessor.SelectedIndex > -1 Then
                Return prices(rbModel.SelectedIndex, rbProcessor.SelectedIndex)
            End If

            Return 0
        End Function 'GetModelPrice




        Private Function GetShippingInfo() As String

            Select Case rbShipping.SelectedIndex
                Case 0
                    Return "$15 (5 days delivery)"
                Case 1
                    Return "$20 (3 days delivery)"
                Case 2
                    Return "$30 (1 days delivery)"
            End Select

            Return String.Empty
        End Function 'GetShippingInfo


        Private Sub ShowPrice()
            Dim price As Integer = GetModelPrice()

            If rbModel.SelectedIndex < 0 Then
                Label2.Text = "Please, select a model."
                Label2.ForeColor = Color.Red
            ElseIf rbProcessor.SelectedIndex < 0 Then
                Label2.Text = "Please, select a processor."
                Label2.ForeColor = Color.Red
            ElseIf rbShipping.SelectedIndex < 0 Then
                Label2.Text = "Please, select the shipping option."
                Label2.ForeColor = Color.Red
            Else
                Label2.Text = "$" + price.ToString() + " + " + GetShippingInfo()
                Label2.ForeColor = Color.Black
            End If
        End Sub 'ShowPrice


        Private Shared images As String() = {"pc1.jpg", "pc2.jpg", "pc3.jpg", "pc4.jpg"}


        Private Sub LoadProcessorData(ByVal index As Integer)
            rbProcessor.Visible = True
            If index > -1 Then
                rbProcessor.Items.Clear()
                Select Case index
                    Case 0
                        rbProcessor.Items.Add("Celeron 330J")
                        rbProcessor.Items.Add("Celeron 335J")
                        rbProcessor.Items.Add("Celeron 340J")
                        rbProcessor.Items.Add("Celeron 345J")
                        Exit Select
                    Case 1
                        rbProcessor.Items.Add("Sempron 2200+")
                        rbProcessor.Items.Add("Sempron 2500+")
                        rbProcessor.Items.Add("Sempron 2800+")
                        rbProcessor.Items.Add("Sempron 3100+")
                        Exit Select
                    Case 2
                        rbProcessor.Items.Add("Pentium 4 520")
                        rbProcessor.Items.Add("Pentium 4 540")
                        rbProcessor.Items.Add("Pentium 4 560")
                        rbProcessor.Items.Add("Pentium 4 640")
                        Exit Select
                    Case 3
                        rbProcessor.Items.Add("K8 AMD 3000+")
                        rbProcessor.Items.Add("K8 AMD 3400+")
                        rbProcessor.Items.Add("K8 AMD 3700+")
                        rbProcessor.Items.Add("K8 AMD 4000+")
                        Exit Select
                End Select
            End If
        End Sub 'LoadProcessorData


        Private Sub rbModel_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbModel.SelectedIndexChanged
            If rbModel.SelectedIndex > -1 Then
                imgPCModel.Visible = True
                imgPCModel.ImageUrl = images(rbModel.SelectedIndex)

                LoadProcessorData(rbModel.SelectedIndex)
                ShowPrice()
            Else
                imgPCModel.Visible = False
            End If
        End Sub 'rbModel_SelectedIndexChanged


        Private Sub rbProcessor_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rbProcessor.SelectedIndexChanged
            ShowPrice()
        End Sub 'rbProcessor_SelectedIndexChanged
    End Class 'DefaultVB
End Namespace 'Telerik.CallbackExamplesVB.Controls.RadioButtonList