Discussion :

[kaygee]

Hello a tous,

je dois remplir une combobox avec les elements d'un listbox

actuellement cela fonctionne correctement avec quelques éléments, mais je dois pouvoir gérer le millier d'élément. et la il me faut 20 sec pour lire les élements de ma combobox

pour le moment elle est remplir via une boucle
et un cboElement.addItem(lstTarget........

Comment pourrais-je passer les élements de l'un a l'autre de manière plus rapide?

Merci pour votre aide.

[Gurdil le nain]

Salut,

Tu devrais pouvoir faire un truc comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

taCombo.Items .AddRange(taListBox.Items)

[hunteshiva]

Bonjour,
as tu essayé de conserver un tableau de string?
ça peux être plus rapide que de traiter un Objet tel que la ListBox.

Après j'ai une question,

je dois pouvoir gérer le millier d'élément

Quel intérêt dans une lisBox ou une ComboBox?
je vois mal le gars faire 100-200 tour de molettes pour arriver en bas

[shayw]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim items(ListBox1.Items.Count - 1) As Object
        ListBox1.Items.CopyTo(items, 0)
        ComboBox1.Items.AddRange(items)

mais écoute les conseilles de hunteshiva

[kaygee]

ok ok merci pour vos info,

je pense avoir trouver le problème

mon composant est un composant modifier dont la fonction addItem à été revue afin de permettre l'affichage multi-colonne.

et des split de donnée.

On a pu remarquer que a chaque ajout d'un element le temps de travail de la fonction augmente.

et pas simple de trouver pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Dim ds As DataSet = Nothing
            Dim dr As DataRow = Nothing
            Dim Elem As String
            Dim ElemCol As Integer = 0
 
            Try
                If Item Is Nothing Then
                    Return False
                End If
 
                'Verification of the mode before continue
                If DataMode <> DATAMODE_ENUM.ssDataModeAddItem Then
                    Throw New Exception("You're not in DataModeAddItem. So you can't add new Item.")
                    Exit Function
                End If
 
                If MyBase.DataSource Is Nothing Then
                    ds = New DataSet
                Else
                    ds = CType(MyBase.DataSource, DataSet)
                End If
 
                If (ds.Tables.Count) = 0 Then ds.Tables.Add()
                dr = ds.Tables(0).NewRow
                ds.Tables(0).Rows.Add(dr)
 
                For i As Integer = Item.Split(Char.Parse(",")).Length - 1 + Item.Split(Char.Parse(";")).Length To dr.Table.Columns.Count + 1 Step -1
                    dr.Table.Columns.Add()
                Next
 
                For Each Elem In Item.Split(Char.Parse(","))
                    dr(ElemCol) = Elem
                    ElemCol = ElemCol + 1
 
                    For j As Integer = 1 To Elem.Split(Char.Parse(";")).Length - 1
                        If Cvn(dr(ElemCol - 1)).IndexOf(";"c) > -1 Then
                            dr(ElemCol - 1) = EsaLeft(Cvn(dr(ElemCol - 1)), Cvn(dr(ElemCol - 1)).IndexOf(";"c))
                        End If
                        dr(ElemCol) = Elem.Split(Char.Parse(";"))(j)
                        ElemCol = ElemCol + 1
                    Next
 
                Next
 
                    MyBase.DisplayMember = Nothing
                    MyBase.DataSource = ds
 
                    Me.ColumnsAutoWidth(1)
 
                Me.VisibleCols = Item.Split(Char.Parse(",")).Length
 
                    ' make sure that the column headers will be visible or not
                    MyBase.Rows.Band.ColHeadersVisible = _blnHeadersVisible
 
                    Return True
 
            Catch ex As Exception
                efwErrHandler(ex)
                Return False
            End Try