Need Help Creating a ListBox in Module

[kleaverjr]

OK, here is the relevant part of the program I am working on:

For X = 1 To 10

XAsString = X

If X < 10 Then

XAsString = Chr(32) + XAsString

End If

Debug.Print XAsString


Form_Register.Controls("lstbxItem1").AddItem (XAsString)

Next X


So when I look at the debug printout it shows the variable XAsString has the space before the single digit. However, when it's added to the ListBox the space is deleted.

What I want to do is have the single digits Right Justified. I'm picky when it comes to how things are displayed on the screen. I don't want to use format with "@@" as it inserts a zero as the first digit for digits 1-9 and I don't want that either. I want it to have a space there. So how do I force the Listbox to keep the space when it's added to the list? Thanks again to all for your patience and help!

Ken L

[June7]

Review https://stackoverflow.com/questions/...n-in-a-listbox

[Welshgasman]

I tried chr(160) and it still was removed.

[davegri]

Here's the simplest method I could devise

Private Sub Form_Load()
    Dim X As Long, XAsString As String
    For X = 1 To 10
        XAsString = X
        If X < 10 Then
            XAsString = Chr(34) & Space(2) & XAsString & Chr(34)
        Else
            XAsString = Chr(34) & XAsString & Chr(34)
        End If
        Debug.Print XAsString
        Form_Register.Controls("lstbxItem1").AddItem Trim((XAsString))
    Next X
End Sub

[kleaverjr]

Perfect! thank you. Now sure why why I used adding CHR(32) didn't work. Doesn't matter as this solution works. Thanks again!

Ken L.

[moke123]

    Dim i As Integer, strOut As String
    
    Me.lstBx1.RowSource = ""


    For i = 1 To 10
        If Len(CStr(i)) = 1 Then
            Me.lstBx1.AddItem Chr(34) & Space(2) & i & Chr(34)
        Else
            Me.lstBx1.AddItem CStr(i)
        End If
    Next i

[June7]

Chr(32) is a space. Chr(34) is quote mark. Enclosing string in quotes forces combobox to retain spaces. Works whether numbers or alphas. Can demonstrate with manual input of list in RowSource:

1;2;3
" 1";" 2";" 3"

Each is treated different.

Also, need to use non-proportional font to get correct alignment.

However, this means user must type a space to move through items of listbox if didn't want to click for listbox set to single selection. Might not be intuitive for users.

I don't see any real benefit.

[kleaverjr]

OK, this solution works great for listbox's, so thank you for that. But when I tried this trick in a regular textbox, the quotes are showing. Here is the relevant part of the code. What am I doing wrong?

Form_Register.Controls("txtSalesOrderNumber").Valu e = Chr(34) & Space(4) & SalesOrderNumberAsString & Chr(34)

And the reason I use .value and not .text is on this form i want the textbox locked and not enabled and using .text requires the text box to be unlocked and enabled, but with .value I can change the value without making the other changes.

Thanks again!

Ken L

[Welshgasman]

Value is the default property, so you can leave it out altogether.
Why are you using a complete form reference? if this code is in that form then Me would be sufficient.

That code to me, would indicate you are updating some form other than the one that the code is running in?

Textboxes have an Align property, so that code is not even needed?

[davegri]

Here's code that will work without the quotes appearing

Private Sub Form_Load()
    Dim X As Long, XAsString As String
    Me.txtTest = ""
    For X = 1 To 10
        XAsString = X
        If X < 10 Then
            XAsString = Chr(160) & XAsString
            txtTest = txtTest & Chr(160) & XAsString & vbCrLf
        Else
            XAsString = XAsString
            txtTest = txtTest & XAsString & vbCrLf
        End If
        Debug.Print XAsString
        Form_Register.Controls("lstbxItem1").AddItem Trim((XAsString))
    Next X
End Sub