Please how to know the number of items in a listview column?

[Adebiyi24]

Hello vbforums
Please can anyone help me how to tell vb6:
if there is more than one item in column1 do this.
if there only one item in column2 do this
if there no item in column3 do this
thank you all

[dilettante]

You must count them.

[Adebiyi24]

You must count them.

Would you please tell me how to do that.
For the 1st column I can use

MsgBox Listview1.Listitems.Count

What about the second and the third columns?
thank you

[VBClassic04]

Listview1.Columnheaders.count

Sorry, misread OP

Mods: Delete my post

[DataMiser]

You have to loop through the list and check to see if there is an entry in the subitem and keep track of how many that had an entry

[Adebiyi24]

You have to loop through the list and check to see if there is an entry in the subitem and keep track of how many that had an entry

thank you Mr DataMiser
Would you please provide an example.
please

[Arnoutdv]

Listview1.Listitems.Count gives the number of the rows in the ListView
ListView1.ColumnHeaders.Count gives the number of columns in the ListView

This should give you something to work with.
It's about filling a ListView, not counting the used subitems:

Private Sub Command1_Click()
  Dim oListItem As ListItem
  Dim lRow As Long, lCol As Long
  
  With ListView1
    .View = lvwReport
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "Column 1"
    .ColumnHeaders.Add , , "Column 2"
    .ColumnHeaders.Add , , "Column 3"
    For lRow = 1 To 9
      Set oListItem = .ListItems.Add(, , CStr(lRow))
      For lCol = 1 To .ColumnHeaders.Count - 1
        If Int(Rnd * 2) = 1 Then
          oListItem.SubItems(lCol) = "Hello"
        End If
      Next lCol
    Next lRow
  End With
    
  MsgBox "Number of Rows: " & CStr(ListView1.ListItems.Count) & vbLf & "Number of Columns: " & CStr(ListView1.ColumnHeaders.Count)
    
End Sub

[westconn1]

you can try like this to count all columns of subitems into an array

Dim cnt() As Long, i As ListItem, s As Long
With ListView1
    ReDim cnt(.ColumnHeaders.Count - 2)
    On Error Resume Next
    For Each i In .ListItems
        For s = 0 To i.ListSubItems.Count - 1
            If Not i.ListSubItems(s + 1) = "" Then
            cnt(s) = cnt(s) + 1
            End If
        Next
    Next
End With