label number 0/0 help

[jenniger9]

i have a listview1 and this is the code i have.

Dim ids As Integer
 ids = 0
 ids = frmChat.ListView1.ListItems.Count + 1
 'Ids: Increment ListView Row Index for Next Record
 frmChat.ListView1.ListItems.Add , , "Jessica"
 frmChat.ListView1.ListItems(ids).ListSubItems.Add , , "fen of awar"
 frmChat.ListView1.ListItems(ids).ListSubItems.Add , , "2v2 3v3"
frmChat.ListView1.ListItems(ids).ListSubItems.Add , , ids
frmChat.ListView1.ListItems(ids).ListSubItems.Add , , "233ccaac27ccba42"

this code here

frmChat.ListView1.ListItems(ids).ListSubItems.Add , , ids

user count.

deleted.

updated

Private Sub Command1_Click()

Dim numReceiving As Integer
Dim numTotal As Integer
numReceiving = numReceiving + 3
numTotal = numTotal + 4
lblListeners.Caption = numReceiving & "/" & numTotal
End Sub

how do i add this to listview1

[jenniger9]

updated post1

[techgnome]

The same way you added the other fields ... with a .Add and .Subitems ...


-tg

[jenniger9]

The same way you added the other fields ... with a .Add and .Subitems ...


-tg

frmChat.ListView1.ListItems(ids).ListSubItems.Add , , "0/8"

this code searchs for the first colum for username to knowing which user to look for.
and now how do i update the value because i cannot use add ?

For i = ListView1.ListItems.Count To 1 Step -1
If ListView1.ListItems(i).Text = frmClient.txtNick.Text Then
 

End If
Next

0/8
increment the 0 so it max 8/8

For i = ListView1.ListItems.Count To 1 Step -1
'If ListView1.ListItems(i).Selected = True Then
If ListView1.ListItems(i).Text = frmClient.txtNick.Text Then
If ListView1.ListItems(ids).ListSubItems.Item.Text = "0/8" Then
ListView1.ListItems(ids).ListSubItems.Item.Text = "1/8"
End If

End If

'End If
Next

not working and also i think this is not the best way to archive this

[techgnome]

ListView1.ListItems(ids).ListSubItems.Item.Text = "1/8

You need to specify the index of the subitem you want to change.

check out the first answer here... https://stackoverflow.com/questions/...iew-at-runtime


-tg