Fylde tal i multiline textbox

Hej.

Jeg vil meget anbefale at du bruger en anden kontrol, selv ville jeg bruge MsFlexGrid, hvor du kan slå visning af stregerne fra, men en listeboks med kolonner (tabulering) er også en mulighed, dog lidt besværlig, fordi tab kun kan venstrestille.

M.v.h. Jørn

Nu var det jo en textbox jeg ville bruge. Jeg har selv fundet svaret: En textbox tabstop-routine kombineret med textudfyldning:

..
    SetTBTabStops Text3, 80, 140, 200, 260
   
    'Create and print the array from the matrix
    For Row = 0 To UBound(ColumnArray, 1)
        For Col = 0 To UBound(ColumnArray, 2)
            Text3.Text = Text3.Text & ColumnArray(Row, Col) & vbTab
..

Public Function SetTBTabStops(TB As Object, ParamArray TabStops()) As Boolean
   
    Dim alTabStops() As Long
    Dim lCtr As Long
    Dim lColumns As Long
    Dim lRet As Long

On Error GoTo errorhandler:

    ReDim alTabStops(UBound(TabStops)) As Long

    For lCtr = 0 To UBound(TabStops)
        alTabStops(lCtr) = TabStops(lCtr)
    Next

    lColumns = UBound(alTabStops) + 1


    lRet = SendMessage(TB.hwnd, EM_SETTABSTOPS, _
    lColumns, alTabStops(0))

    SetTBTabStops = (lRet = 0)
    Exit Function

errorhandler:
    SetTBTabStops = False

End Function