Vb.net 清除后将项目添加到listview

我正在添加要在listview中显示的所有文本框和标签。当我单击“清除”按钮时，表单上的所有内容都会按应有的方式清除，但当我想向listview添加更多项目时，listview中不会显示任何内容，并且我的标题信息也会被清除。有人能帮忙吗

Public Class Form2

    Dim decTotalDue As Decimal
    Dim intTotalItems As Integer

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtUnitPrice.TextChanged

    End Sub

    Private Sub btnAddItem_Click(sender As Object, e As EventArgs) Handles btnAddItem.Click

        Dim decUnitPrice As Decimal
        Dim intQuantity As Integer
        Dim decTotal As Decimal
        Dim decTotalPayable As Decimal
        Dim item As New ListViewItem

        Decimal.TryParse(txtUnitPrice.Text, decUnitPrice)
        Integer.TryParse(txtQuantity.Text, intQuantity)

        decTotal = decUnitPrice * intQuantity
        lblTotal.Text = decTotal.ToString("C2")

        decTotalDue = decTotal + decTotalDue
        lblTotalDue.Text = decTotalDue.ToString("C2")

        intTotalItems = intQuantity + intTotalItems
        lblTotalItems.Text = intTotalItems.ToString

        decTotalPayable = decTotalDue
        lblTotalPayable.Text = decTotalPayable.ToString("C2")

        lblTotalPayable.Hide()
        lblTotalItems.Hide()

        item = ListView1.Items.Add(cboItemName.Text)
        item.SubItems.Add(txtUnitPrice.Text)
        item.SubItems.Add(txtQuantity.Text)
        item.SubItems.Add(lblTotal.Text)
        ListView1.ForeColor = Color.White

        txtUnitPrice.Text = decUnitPrice.ToString("C2")

    End Sub

    Private Sub btnPurchase_Click(sender As Object, e As EventArgs) Handles btnPurchase.Click

        lblTotalItems.Show()
        lblTotalPayable.Show()

        cboItemName.Text = String.Empty
        txtUnitPrice.Clear()
        txtQuantity.Clear()
        lblTotal.Text = ""
        lblTotalDue.Text = ""

        ListView1.Clear()

    End Sub

    Private Sub btnCalculateChange_Click(sender As Object, e As EventArgs) Handles btnCalculateChange.Click

        Dim decCashTenderted As Decimal
        Dim decChange As Decimal

        Decimal.TryParse(txtCashTendered.Text, decCashTenderted)

        txtCashTendered.Text = decCashTenderted.ToString("C2")

        decChange = decCashTenderted - decTotalDue
        lblChange.Text = decChange.ToString("C2")

        If decCashTenderted < decTotalDue Then
            MessageBox.Show("Cash Tendered is less than Total Due", "Invalid", MessageBoxButtons.RetryCancel, MessageBoxIcon.Warning)
        End If

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        Me.Close()

    End Sub

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        cboItemName.Text = String.Empty
        txtCashTendered.Clear()
        txtUnitPrice.Clear()
        txtQuantity.Clear()
        lblTotalDue.Text = ""
        lblTotalItems.Text = ""
        lblTotalPayable.Text = ""
        lblChange.Text = ""
        ListView1.Clear()

    End Sub

    Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

End Class

公共类表单2
以小数形式到期的Dim DECTOAL
将intTotalItems设置为整数
私有子TextBox2_TextChanged（发送者作为对象，e作为事件参数）处理TxUnitPrice.TextChanged
端接头
私有子btnAddItem_Click（发送者作为对象，e作为事件参数）处理btnAddItem。单击
以十进制表示的单位价格
整数形式的整数
以十进制表示的十进制总数
以小数形式支付的总金额
将项目设置为新的ListViewItem
Decimal.TryParse（txtUnitPrice.Text，decUnitPrice）
整数.TryParse（txtQuantity.Text，intQuantity）
decTotal=decUnitPrice*intQuantity
lblTotal.Text=decTotal.ToString（“C2”）
decTotalDue=decTotal+decTotalDue
lblTotalDue.Text=decTotalDue.ToString（“C2”）
intTotalItems=intQuantity+intTotalItems
lblTotalItems.Text=intTotalItems.ToString
DecTotalPayment=decTotalDue
lbltotalpayed.Text=dectotalpayed.ToString（“C2”）
lbltotalpayment.Hide（）
lblTotalItems.Hide（）
item=ListView1.Items.Add（cboItemName.Text）
item.SubItems.Add（txtnitprice.Text）
item.SubItems.Add（txtQuantity.Text）
item.SubItems.Add（lblTotal.Text）
ListView1.ForeColor=颜色.白色
txUnitPrice.Text=decUnitPrice.ToString（“C2”）
端接头
私有子btnPurchase\u单击（发件人作为对象，e作为事件参数）处理btnPurchase。单击
lblTotalItems.Show（）
lbltotalpayment.Show（）
cboItemName.Text=String.Empty
txUnitPrice.Clear（）
txtQuantity.Clear（）
lblTotal.Text=“”
lblTotalDue.Text=“”
ListView1.Clear（）
端接头
私有子btnCalculateChange\u单击（发件人作为对象，e作为事件参数）处理btnCalculateChange。单击
Dim DECASHINDEC以十进制表示
变为十进制
Decimal.TryParse（txtcashtended.Text，deccashtended）
txtcashtended.Text=deccashtended.ToString（“C2”）
decChange=DecCashTendered-decTotalDue
lblChange.Text=decChange.ToString（“C2”）
如果DecCashTendered

有关函数行为的MSDN是：

您可以使用此方法从ListView控件中删除所有项和列，而无需从ListView.ColumnHeaderCollection和ListView.ListViewItemCollection类中调用单个Clear方法

根据你描述的你想要的，你应该做的是打电话：

ListView1.Items.Clear()

这将只删除显示的项目，而不删除列定义