Working with List Boxes

[Purplelair]

I have a question about list boxes...How do you "add" or "subtract" the items in a list box?

For an example: You output the numbes 5 and 10 to your listbox, how do you add those two numbers and then output it to a text box???

[Killer42]

I have a question about list boxes... How do you "add" or "subtract" the items in a list box?

For an example: You output the numbers 5 and 10 to your listbox, how do you add those two numbers and then output it to a text box?

You would just access each entry of interest, and convert it to a number. The details will vary a bit, depending on what version of VB you're using (hint hint...)

[QVeen72]

Hi,

Try this :

Dim TNo as Single
Dim i As Integer
TNo = 0
For i =0 To List1.ListCount -1
    TNo = TNo + Val(List1.List(i))
Next
MsgBox "Total Is : " & TNo
 

Regards
Veena

[Mohan Krishna]

Hi Purplelair,

Hope this would help you. But you have to improvise as per your requirement.

Option Explicit
Dim a(100), i, sum As Integer
 
Private Sub Command1_Click()
    i = i - 1
    While i >= 0
        sum = sum + a(i)
        i = i - 1
    Wend
    Text2.Text = sum
    sum = 0
    i = 0
End Sub
 
Private Sub Command2_Click()
    If List1.SelCount > 2 Then
        MsgBox "Select only Two Numbers! Try Again"
        'List1.SelCount = -1
        Exit Sub
    End If
    Text3.Text = a(0) - a(1)
    List1.Clear
End Sub
 
Private Sub Form_Load()
    i = 0
    sum = 0
End Sub
 
Private Sub List1_Click()
    a(i) = List1.List(List1.ListIndex)
    i = i + 1
End Sub
 
Private Sub Text1_LostFocus()
    List1.AddItem (Text1.Text)
    Text1.Text = ""
End Sub

All the Best! Please respond...