Visual Studio 2010的VB.NET食品销售管理系统

Public Class Form1
’ 窗体加载时初始化食品列表
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ListBox1.Items.Add(“苹果 - 3”)
ListBox1.Items.Add(“香蕉 - 2”)
ListBox1.Items.Add(“橙子 - 4”)
ListBox1.Items.Add(“西瓜 - 5”)
ListBox1.Items.Add(“葡萄 - 6”)
End Sub

' 计算总金额按钮事件
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim price As Decimal
    Dim quantity As Integer
    Dim total As Decimal

    ' 获取输入价格和数量
    If Decimal.TryParse(TextBox2.Text, price) AndAlso Integer.TryParse(TextBox3.Text, quantity) Then
        total = price * quantity
        TextBox4.Text = total.ToString("F2") ' 显示总金额，格式化为2位小数
    Else
        MessageBox.Show("请输入有效的价格和数量！", "输入错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If
End Sub

' 返回主菜单按钮事件
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    ' 清空输入框和结果框
    TextBox1.Clear()
    TextBox2.Clear()
    TextBox3.Clear()
    TextBox4.Clear()
    ListBox1.ClearSelected()
End Sub

' 退出按钮事件
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    Application.Exit() ' 退出应用程序
End Sub

' 在ListBox选择变化时更新食品名称和价格
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    If ListBox1.SelectedItem IsNot Nothing Then
        Dim selectedFood As String = ListBox1.SelectedItem.ToString()
        Dim parts() As String = selectedFood.Split("-"c)
        If parts.Length = 2 Then
            TextBox1.Text = parts(0).Trim() ' 食品名称
            TextBox2.Text = parts(1).Trim() ' 食品价格
        End If
    End If
End Sub

End Class