VB窗体开发：如何将MenuItem类列表项添加至Order类列表并实现带数量的用户选中菜品添加

首先得指出你当前代码里的一个关键问题：你在初始化主窗体的menu列表时，直接把文本框的值绑定到了MenuItem的Cost属性上——这会导致两个问题：一是窗体加载时文本框可能是空的，会引发转换错误；二是后续用户修改数量时，这个Cost值不会自动更新。我们需要重构一下逻辑，把单价和数量分开处理，这样才能正确传递用户选择的数量到订单中。

步骤1：重构MenuItem类 #

先调整MenuItem的结构，让它区分单价、数量和计算得出的总价，用Decimal处理货币类型更准确：

Public Class MenuItem
    Public Property Name As String
    Public Property UnitPrice As Decimal ' 固定单价
    Public Property Quantity As Integer ' 用户选择的数量
    ' 只读属性，动态计算该菜品的总价
    Public ReadOnly Property Cost As Decimal
        Get
            Return UnitPrice * Quantity
        End Get
    End Property
End Class

步骤2：定义固定基础菜单 #

在主窗体里，先定义好所有菜品的固定单价，不要直接绑定文本框：

' 主窗体中：存储固定的菜单选项（单价不变）
Private ReadOnly baseMenu As New List(Of MenuItem) From {
    New MenuItem With {.Name = "Burger", .UnitPrice = 2.0D},
    New MenuItem With {.Name = "Wrap", .UnitPrice = 2.0D},
    New MenuItem With {.Name = "Parmesan", .UnitPrice = 2.5D},
    New MenuItem With {.Name = "Stirfry", .UnitPrice = 3.0D},
    New MenuItem With {.Name = "Pitta", .UnitPrice = 2.5D},
    New MenuItem With {.Name = "Bundle", .UnitPrice = 6.0D}
}

步骤3：实例化Order对象 #

在主窗体中创建一个全局的Order实例，用来存储用户当前的订单：

' 主窗体中：当前订单实例
Private currentOrder As New Order()

步骤4：实现菜品添加逻辑 #

假设你有一个「添加到订单」按钮，点击时遍历每个菜品对应的文本框，解析数量后创建带数量的MenuItem，再添加到Order中。我们可以封装一个方法来简化重复操作：

' 按钮点击事件：处理用户选择的菜品添加到订单
Private Sub btnAddToOrder_Click(sender As Object, e As EventArgs) Handles btnAddToOrder.Click
    ' 逐个处理每个菜品的数量输入
    AddMenuItemToOrder("Burger", txtburger.Text)
    AddMenuItemToOrder("Wrap", txtwrap.Text)
    AddMenuItemToOrder("Parmesan", txtparmesan.Text)
    AddMenuItemToOrder("Stirfry", txtstirfry.Text)
    AddMenuItemToOrder("Pitta", txtpitta.Text)
    AddMenuItemToOrder("Bundle", txtbundle.Text)

    ' 可选：更新总价显示
    UpdateOrderTotal()
End Sub

' 封装方法：解析数量并添加菜品到订单
Private Sub AddMenuItemToOrder(itemName As String, quantityInput As String)
    ' 先尝试把输入的文本转换成整数数量
    If Integer.TryParse(quantityInput, out Dim quantity) AndAlso quantity > 0 Then
        ' 从基础菜单中找到对应的菜品
        Dim baseItem = baseMenu.FirstOrDefault(Function(m) m.Name.Equals(itemName, StringComparison.OrdinalIgnoreCase))
        If baseItem IsNot Nothing Then
            ' 创建带用户选择数量的MenuItem实例
            Dim orderItem = New MenuItem With {
                .Name = baseItem.Name,
                .UnitPrice = baseItem.UnitPrice,
                .Quantity = quantity
            }
            ' 添加到订单
            currentOrder.AddItem(orderItem)
        End If
    End If
End Sub

' 更新订单总价显示
Private Sub UpdateOrderTotal()
    Dim total = currentOrder.CalculateTotal()
    lblTotal.Text = $"Total Cost: ${total.ToString("F2")}"
End Sub

步骤5：优化Order类（可选） #

给Order类添加一个计算总价的方法，让逻辑更清晰：

Public Class Order
    Public Property Items As List(Of MenuItem) = New List(Of MenuItem)
    Public Sub AddItem(ByVal item As MenuItem)
        Items.Add(item)
    End Sub

    ' 新增：计算订单总价
    Public Function CalculateTotal() As Decimal
        Return Items.Sum(Function(item) item.Cost)
    End Function
End Class

这样处理后，用户输入的数量会被正确解析，每个选中的菜品（带数量）都会被添加到Order的Items列表中，你也可以随时通过currentOrder.Items访问所有已选菜品，或者用CalculateTotal()获取总价。

内容的提问来源于stack exchange，提问作者Hamza Asim