Как добавить элементы ListView и распечатать его значение

Question

я нажимаю командную кнопку, чтобы я мог добавить элементы списка, элементы списка отображаются из командного окна, и я хочу отправить их в msgbox или распечатать на этикетке

это для образовательных целей

Private Sub Command1_Click()

List1.AddItem (Combo1.Text)
If List1.ListCount > 2 Then
       MsgBox "error"
      Else
      MsgBox 'add the 3  number and print it out
End If
End Sub

Я ожидаю, что число 3 в представлении списка сложится вместе, чтобы напечатать значение в форме окна сообщения

Answer 1

Попробуйте это

Private Sub CommandButton1_Click()
  Dim tempSum As Long
  Dim i As Long

    List1.AddItem (Combo1.Text)
    If List1.ListCount = 3 Then

          For i = 0 To List1.ListCount - 1
            tempSum = tempSum + List1.List(i)
          Next
          MsgBox "Sum of list: " & tempSum
    End If
End Sub