Question

我在VB.net上有一个项目。我想创建一个简单的应用程序，它会在我的列表框中添加每个项目的价格

项目数量

车。 1000

船。 3000

自行车。 700

的帽子。 49

并在文本框中给我一个答案

我添加了1个列表框，1个按钮和1个文本框我用上面的项目填充了列表框我想总结这些项目的数量我该怎么办？我是VB.net的新手

Answer 1

在这里....尝试这个....新项目，一个形式，一个命令按钮和两个列表框：代码：

Private Sub Command1_Click()
Dim i,j As long
  List2.Clear
  For i = 0 To List1.ListCount - 1
    For j = 0 To List2.ListCount - 1

If List1.List(i) = List2.List(j) Then
     List2.ItemData(j) =List1.ItemData(j) + 1
        Exit For
      End If
    Next j
    If j = List2.ListCount Then
      List2.AddItem List1.List(i)
      List2.ItemData(List2.NewIndex) = 1
    End If
  Next i
  For j = 0 To List2.ListCount - 1
    List2.List(j) = List2.List(j) & " " &
List2.ItemData(j)
  Next j
End Sub

Private Sub Form_Load()

List1.AddItem ("CHAIR")
List1.AddItem ("CHAIR")
List1.AddItem ("PHONE")
List1.AddItem ("CHAIR")
List1.AddItem ("CARDS")
List1.AddItem ("PHONE")
End Sub

计算Vb.net中列表框中列出的项目的成本

1 个答案: