DesktopListbox AddRowWithTag extension method

Code Sharing
1

This method combines adding a row and setting the rowtag of that row.

Public Sub AddRowWithTag(Extends Value As DesktopListbox, Tag As Variant, Paramarray Columns() As String)
  Value.AddRow("")
  Value.RowTagAt(Value.LastAddedRowIndex) = tag
  
  Var index As Integer
  Var row As Integer = Value.LastAddedRowIndex
  
  For Each Column As String In Columns
    Value.CellTextAt(row, index) = Column
    index = index + 1
  Next Column
End Sub
1 Like