Visual Basic. Как назначить значения для элементов SelectedIndex в раскрывающемся списке? - PullRequest
Новая
       24

Visual Basic. Как назначить значения для элементов SelectedIndex в раскрывающемся списке?

0 голосов
/ 31 октября 2019

Я столкнулся с препятствием. Я просто хочу узнать, как я могу назначить элементы SelectedIndex с заявленными затратами? Мне кажется, что я упускаю что-то очевидное.

Я объявил стоимость типов тако, но я не уверен, как я могу назначить их элементам SelectedIndex для ddlTacoType в Visual Basic. Это хорошая идея использовать оператор switch? В идеале выходные данные должны отображать стоимость как 8,99, когда пользователь выбирает "Chipotle Chicken".

Любая помощь будет высоко ценится.

Приветствия,

Ричард

Снимок экрана с выводом 

' Project:  Street Tacos Order Form
' Author:   Richard Lew
' Date:     November 3, 2019
' Purpose:  The web application allows a customer to fill out a street taco order form.

Public Class About
    Inherits Page
    Private _decChicken As Decimal = 8.99
    Private _decPork As Decimal = 9.99
    Private _strFish As Decimal = 12.99
    Private _strBeef As Decimal = 13.99
    Private _strExtra As Decimal = 0.99
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
        ' The btnSubmit click event will calculate the cost of the street tacos
        ' based on the type of tacos selected.

        ' Declare and initialize variables
        Dim decTacoCost As Decimal
        Dim decFinalCost As Decimal
        Dim decTotalCost As Decimal
        Dim decChickenCost As Decimal = 8.99D
        Dim decPorkCost As Decimal = 9.99D
        Dim decFishCost As Decimal = 12.99D
        Dim decBeefCost As Decimal = 13.99D
        Dim decExtraCost As Decimal = 0.99
        Dim strName As String
        Dim strAddress As String
        Dim strPhone As String
        Dim decOrderCost As Decimal = 0D
        Dim strMessage As String

        ' Trim additional spaces that are entered by the user
        strName = txtName.Text.Trim
        strAddress = txtAddress.Text.Trim
        strPhone = txtPhone.Text.Trim

        ' Clear the Order Message
        lblOrder.Text = ""

        ' Ensure a Taco Selection is Selected
        If ddlTacoType.SelectedIndex < 0 Then
            lblTacoTypeError.Visible = True
        Else
            lblTacoTypeError.Visible = False
        End If
        ' Ensure a Topping is Selected
        If Not (chkRedChili.Checked Or chkGreenChili.Checked Or chkBeans.Checked Or chkCream.Checked Or chkLime.Checked Or chkNoToppings.Checked) Then
            lblToppingsError.Visible = True
        Else
            lblToppingsError.Visible = False
        End If

        ' Calculate the cost of the Taco(s) selected by the user
        Select Case decTotalCost
            Case 0
                decTacoCost = decChickenCost
            Case 1
                decTacoCost = decPorkCost
            Case 2
                decTacoCost = decFishCost
            Case 3
                decTacoCost = decBeefCost
            Case 4
                decTacoCost = decExtraCost
        End Select



    End Sub
End Class

Когда пользователь выбирает тип тако в раскрывающемся списке ddlTacoType, программа должна связать элемент с его стоимостью и рассчитатьобщая стоимость выбранного товара в конце программы.

1 Ответ

0 голосов
/ 04 ноября 2019

Вам нужно написать свою логику в выбранном событии изменения индекса выпадающего списка 

Protected Sub onSelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlTacoType.SelectedIndexChanged

End Sub
...