Text in combobox in alfabetische volgerde.

[Schippertje]

Via een tekst bestand zet ik in een combobox een aantal namen.
Maar als er een nieuwe naam bij komt staat het niet meer op alfabetische volgorde.

Hoe zet ik ze weer op alfabetisch volgorde ?

 

[JoZ1]

Gewoon even de Sorted property op True zetten.

 

[Schippertje]

Hoi,
Dat heb ik geprobeerd maar dan ben ik mijn tekst kwijt ?

 

[JoZ1]

Dat is wel vreemd, aangezien het bij mij wel werkt.

Voorbeeldproject: http://www.mediafire.com/?9i59wm7vib092s7

 

[Schippertje]

Nee hij doet het nog niet.

Als ik dat aanzet is de combo box leeg

Dit gebruik ik om de combobox te vullen
ComboBox1.DataSource = IO.File.ReadAllLines("C:\een.txt")

 

[JoZ1]

Mijn project werkt toch gewoon ?

Probeer die code eens te gebruiken.
En als het nog niet werkt: Post dan even je hele code.

 

[Schippertje]

Hoi Joz1,

Ik begrijp het zelf ook niet zo.

Als ik een combobox maak met bij Collection een aantal woorden invul werkt het wel.
Jouw voorbeeld werkt ook goed.

Maar als ik dit gebruik , een txtfile ivm met heel veel namen en toevoegen ervan werkt het niet .

Eigenlijk is dit de code , niet veel byzonders lijkt mij.
Het werkt goed , maar als Sorted property op True gezet wordt is de combo box leeg .

  Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DataSource = IO.File.ReadAllLines("C:\som\een.txt")
    End Sub

    
End Class

 

[Schippertje]

Ik denk dat het ligt aan de manier van lezen en schrijven naar de combobox

Dit werkt wel.

   If File.Exists("C:\som\een.txt") Then

        End If

        Dim read As New StreamReader("C:\som\een.txt")

        Dim temp As String
        Dim data As String()
       

        While read.Peek <> -1

            temp = read.ReadLine()

            data = temp.Split(",")
            ComboBox1.Items.Add(data(0))

        End While

 

[Schippertje]

Is wel goed zo.

Dit gebruik ik nu.
Ik heb 5 combo boxen

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If File.Exists("C:\som\een.txt") Then

            End If

            Dim read As New StreamReader("C:\som\een.txt")

            Dim temp As String
            Dim data As String()

            While read.Peek <> -1

                temp = read.ReadLine()

                data = temp.Split(",")
                ComboBox1.Items.Add(data(0))

            End While
        Catch ex As Exception

        End Try

        Try

            If File.Exists("C:\som\twee.txt") Then

            End If

            Dim read As New StreamReader("C:\som\twee.txt")

            Dim temp As String
            Dim data As String()
            Try

            Catch ex As Exception

            End Try

            While read.Peek <> -1

                temp = read.ReadLine()

                data = temp.Split(",")
                ComboBox2.Items.Add(data(0))

            End While
        Catch ex As Exception

        End Try


    End Sub
End Class

Iemand nog een idee waarom dit niet werkt , met de Sorted property op True ?
Het onderstaande is natuurlijk veel minder code.

 Imports System.IO
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DataSource = IO.File.ReadAllLines("C:\som\een.txt")
    End Sub

    
End Class

 

[JoZ1]

Dit werkt voor mij:

[cpp]ComboBox1.Sorted = True
For Each line As String In IO.File.ReadAllLines("C:\som\een.txt")
ComboBox1.Items.Add(line)
Next[/cpp]

Dat ComboBox1.Sorted = True kun je natuurlijk weglaten als je dat al hebt ingesteld .

 

[Schippertje]

Het werkt :thumb:

kort maar krachtig , bedankt !