Hinzufügen von zwei Spalten-Werte in listbox vb.net

Haben Sie 2 Möglichkeiten:

1. Mit der ListBox:

Verwenden Sie die ListBox, setzen Sie die schriftart auf eine Feste Breite wie courier new (damit die Spalten line-up), und fügen Sie die Artikel wie diese:

For Each row As DataRow In dt.Rows
    lstUsers.Items.Add(RPAD(row("User_Name"),16) & RPAD(row("First_Name"),16) & RPAD(row("Last_Name"),16))
Next

Die RPAD-Funktion ist wie folgt definiert:

Function RPAD(a As Object, LENGTH As Object) As String
    Dim X As Object
    X = Len(a)
    If (X >= LENGTH) Then
        RPAD = a : Exit Function
    End If
    RPAD = a & Space(LENGTH - X)
End Function

Passen Sie die LÄNGE-argument, wie gewünscht, in Ihrem Fall. Fügen Sie eine weitere für mindestens ein Leerzeichen. Diese Lösung ist weniger als ideal, da Sie die hart-code die Spaltenbreite.

1. Verwenden Sie ein DataGridView-Steuerelement anstelle einer ListBox. Das ist wirklich die beste option, und wenn Sie benötigen, Sie können sogar Verhalten sich wie eine ListBox, indem Sie die Auswahl auf wählen Sie die ganze Zeile und Einstellung CellBorderStyle zu SingleHorizontal. Definieren Sie die Spalten im designer, aber keine Notwendigkeit, um den breiten - können die Spalten auto-Größe, und ich, die option im code unten. wenn Sie immer noch lieber um die breiten, kommentieren Sie die AutoSizeColumnsMode Linie.

Den code um sich das raster und fügen Sie die Zeilen geht so:

    g.Rows.Clear() ' some of the below options are also cleared, so we set them again
    g.AutoSizeColumnsMode = DataGridViewAutoSizeColumnMode.AllCells
    g.CellBorderStyle = DataGridViewCellBorderStyle.SingleHorizontal
    g.SelectionMode = DataGridViewSelectionMode.FullRowSelect
    g.AllowUserToAddRows = False
    g.AllowUserToDeleteRows = False
    g.AllowUserToOrderColumns = True
    For Each row As DataRow In dt.Rows
        g.Rows.Add(row("User_Name"), row("First_Name"), row("Last_Name"))
    Next

Kann, schlage ich vor, Sie ein ListView-Steuerelement anstelle der Listbox?

Wenn Sie den Wechsel vornehmen, sind hier ein Beispiel-Unterroutine, die Sie nutzen könnten, um es zu füllen mit den Daten, die Sie sagten, Sie wollen. Passen Sie es, wie Sie mögen; es gibt viel Raum für Verbesserungen, aber Sie bekommen die Allgemeine Idee:

Public Sub FillUserListView(lstUsers As ListView, Dst As DataSet)

    Dim columnsWanted As List(Of String) = New List(Of String)({"User_Name", "First_Name", "Last_Name"})
    Dim dt As DataTable = Dst.Tables("user")
    Dim columns As Integer = 0
    Dim totalColumns = 0
    Dim rows As Integer = dt.Rows.Count

    'Set the column titles
    For Each column As DataColumn In dt.Columns
        If columnsWanted.Contains(column.ColumnName) Then
            lstUsers.Columns.Add(column.ColumnName)
            columns = columns + 1
        End If
        totalColumns = totalColumns + 1
    Next

    Dim rowObjects(columns - 1) As ListViewItem
    Dim actualColumn As Integer = 0

    'Load up the rows of actual data into the ListView
    For row = 0 To rows - 1
        For column = 0 To totalColumns - 1
            If columnsWanted.Contains(dt.Columns(column).ColumnName) Then

                If actualColumn = 0 Then
                    rowObjects(row) = New ListViewItem()
                    rowObjects(row).SubItems(actualColumn).Text = dt.Rows(row).Item(actualColumn)

                Else
                    rowObjects(row).SubItems.Add(dt.Rows(row).Item(actualColumn))
                End If

                lstUsers.Columns.Item(actualColumn).Width = -2  'Set auto-width

                actualColumn = actualColumn + 1
            End If
        Next

        lstUsers.Items.Add(rowObjects(row))
    Next

    lstUsers.View = View.Details 'Causes each item to appear on a separate line arranged in columns
End Sub