Missing vbTab in listbox

  • Thread starter Thread starter kurb
  • Start date Start date
K

kurb

Hello

I've tried a few things, but I cannot figure why the listbox does not
reflect the Tabs properly:

The code:
For ArrayNumber = 1 To 3

Select Case ArrayNumber
Case Is = 1
sArrayName = "MasterList"
Case Is = 2
sArrayName = "MLIndex"
Case Is = 3
sArrayName = "CxB"
End Select


sStartDate = vArray (ArrayNumber,1)
sStopDate = vArray (ArrayNumber,2)


sString = Format(sArrayName, ">") + vbTab
sString = sString + Format(sStartDate, ">") + vbTab
sString = sString + Format(sStopDate, ">") + vbTab
lstBox.AddItem sString

Next

I get this in the listbox:

CATEGORY START DATE STOP DATE
MASTERLIST 1/11/2000 1/11/2005
MLINDEX 1/11/2000 1/11/2005
CXB 1/11/2000 1/11/2005


I want this:
CATEGORY START DATE STOP DATE
MASTERLIST 1/11/2000 1/11/2005
MLINDEX 1/11/2000 1/11/2005
CXB 1/11/2000 1/11/2005


Appreciate any suggestions
K
 
Hi K

The listboxes has multiple "columns", which mimics the tabstop thing I
believe you want.
There are several ways to populate those with data. Here's one of the simple
ones:

Sub FillList()
Dim i As Long

With ListBox1
.ColumnCount = 3

.AddItem "CATEGORY"
.List(i, 1) = "START DATE"
.List(i, 2) = "STOP DATE"
i = i + 1

.AddItem "MASTERLIST"
.List(i, 1) = "1/11/2000"
.List(i, 2) = "1/11/2005"
i = i + 1

.AddItem "MLINDEX"
.List(i, 1) = "1/11/2000"
.List(i, 2) = "1/11/2005"
i = i + 1

End With
End Sub

HTH. Best wishes Harald
 
Back
Top