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

Missing vbTab in listbox
 

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" skrev i melding
...
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

Missing vbTab in listbox
 

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" skrev i melding
...

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

Missing vbTab in listbox
 

Glad to hear that. Thanks for the feedback.

Best wishes Harald

"kurb" skrev i melding
...
Thank you Harald
I adapted the idea and it works like a charm
K