2 kolonner i ListBox

Løsningen er nok at bruge den udvidede listox, der er med i microsoft common controls....

Nej, det skal være listbox

hmmm...hvorfor så ik' bruge et ListView i stedet....?

//>Rune

medions-> Ok med mig, hvordan er det lige at det vil komme til at fungere med det ?

Her er en kode som kan oprette kolonner i en listbox:

Følgende indsættes i modul:
Private Declare Function SendMessage Lib _
    "user32" Alias "SendMessageA" (ByVal hWnd As _
    Long, ByVal wMsg As Long, ByVal wParam As _
    Long, lParam As Any) As Long
Private Const LB_SETTABSTOPS = &H192

Public Sub SetListTabStops(ListHandle As Long, _
    ParamArray ParmList() As Variant)
    Dim i As Long
    Dim ListTabs() As Long
    Dim NumColumns As Long

    ReDim ListTabs(UBound(ParmList))
    For i = 0 To UBound(ParmList)
        ListTabs(i) = ParmList(i)
    Next i
    NumColumns = UBound(ParmList) + 1

    Call SendMessage(ListHandle, LB_SETTABSTOPS, _
        NumColumns, ListTabs(0))
End Sub
________________________________________________________________

Følgende indsættes i form med en listbox og en commandbotton:

Private Sub Command1_Click()
'Call the routine in Form_Load to set the tab stops
'where MyListBox is the listbox and the tab stop will
'be around the 12th character. Generally speaking,
'TabStop divided by four equals roughly the number of
'characters per column:

'Call SetListTabStops(lstMyListBox.hWnd, 48)

'If more columns are needed, simply add them to the
'function call:
Call SetListTabStops(lstMyListBox.hWnd, 50, 100, 150, 200)
'Add items to the listbox using vbTab to separate
'columns:

lstMyListBox.AddItem "Column1" & vbTab & "Column2" & vbTab & "Column3" & vbTab & "Column4"

End Sub

________________________________________________________________

lukker