Missing vbTab in listbox

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


"kurb" <[email protected]> skrev i melding
news:[email protected]...
> 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

Thank you Harald
I adapted the idea and it works like a charm
K



Harald Staff wrote:
> 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
>
>
> "kurb" <[email protected]> skrev i melding
> news:[email protected]...
>
>>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
>
>
>

Glad to hear that. Thanks for the feedback.

Best wishes Harald

"kurb" <[email protected]> skrev i melding
news:%[email protected]...
> Thank you Harald
> I adapted the idea and it works like a charm
> K