Ruimte opvullen in een listbox

Status
Niet open voor verdere reacties.
B

bonnowagt

Gebruiker
Lid geworden
7 dec 2006
Berichten
445
Ik heb een vraag omtrnet ruimte in een listbox.
Ik sla contacten op in een string die ik vvolgens save in my.settings.contact

Code: 
   My.Settings.Contact.Add(Textbox1.text+"#"+   Textbox2.text+"#"+ Textbox3.text+"#"+ Textbox4.text+"#"+ Textbox5.text+"#"+ Textbox6.text+"#"+ Textbox7.text))
              my settings.sAVE()

Vervolgens plaats ik in de gesavede gegevens vanuit de settings.contact in een listbox op de volgende wijze:
Code: 
 For Each Name As String In My.Settings.Contact
                ListBox1.Items.Add(Name)
            Next
om de gegevens zonder splitteken te krijgen maak ik een tweede listbox aan:

Code: 
 Dim i = 0
            For Each Name As String In My.Settings.Contact
                ListBox1.SelectedIndex = i
                Dim names() As String = ListBox1.Text.Split("#")
                ListBox2.Items.Add(names(0) + " " + names(1) + " " + names(2) + " " + names(3) + " " + names(4) + " " + names(5) + " " + names(6) + names(7))
                If i = ListBox1.Items.Count Then
                    Exit Sub
                End If
                i = i + 1
            Next

Ik krijg nu bijvoorbeeld het volgende in de listbox te staan:

Jan vander Weert Dennenlaan 23 9665EK Amsterdam. Dit zijn de 7 textboxen

Maar nu hetgene wat ik graag zou willen doen. Van sommige contacten heb ik niet alle gegevens en dan komt er bijv. onderstaande listitems te staa:
Kees Zwart Rotterdam
Piet van Dam Amsterdam
Groen PIet enz.

Mijn vraag hoe krijg ik die ruimtes uit zon listbox zodat het volgende er komt te staan:
Kees Zwart Rotterdam
Piet van Dam Amsterdam
Piet Groen


Ik heb het complete programma inmiddels af en is nog al groot geworden en het idee dat ik dit beter had kunnen doen met een listview is al bij mij opgekomen maar gezien het vele werk om dit iom te bouwen zou ik graag een oplossing zien voor de listbox

Bijvoorbaat hartelijk dank.
 
Als ik je goed begrijp wil je dit:
Code: 
Dim Regel As String = names(0) & " " & _
                      names(1) & " " & _
                      names(2) & " " & _
                      names(3) & " " & _
                      names(4) & " " & _
                      names(5) & " " & _
                      names(6) & " " & _
                      names(7))

While Regel.Contains("  ")
    Regel = Regel.Replace("  ", " ")
End While

ListBox2.Items.Add(regel)

Zelf zou ik er i.v.m. hergebruik een Public Function van maken:
Code: 
Public Function MTrim(rgl As String) As String
    While rgl.Contains("  ")
        rgl = rgl.Replace("  ", " ")
    End While
    MTrim = rgl
End Function

En dan wordt het dit:
Code: 
ListBox2.Items.Add(MTrim(
                   names(0) & " " & _
                   names(1) & " " & _
                   names(2) & " " & _
                   names(3) & " " & _
                   names(4) & " " & _
                   names(5) & " " & _
                   names(6) & " " & _
                   names(7)))
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan