Bonjour,
J'ai un pb de lenteur qui me tracasse et que je ne comprends pas
Pour remplir une TextBox en Autocompletion, j'ai crée la sub suivante

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
    Dim AcscCouleur As New AutoCompleteStringCollection
    Dim ListeCouleur As New List(Of String)
 
    Private Sub ChargementTxtCouleur()
        Call SuiviGeneral(3, "O", "ChargementTxtCouleur")
        Dim swTxtCouleur As New Stopwatch
        swTxtCouleur.Start()
        TxtCouleur.Visible = False
        ' ******* instruction ajoutées pour essai sans modification
        ListeCouleur.Clear()
        AcscCouleur.Clear()
        ' **********
        ListeCouleur = (From c In ctx.Couleurs Select c.Libelle).ToList
 
        Call SuiviGeneral(2, "I", "Chargé depuis base " & ListeCouleur.Count & " couleur(s) en " & swTxtCouleur.Elapsed.ToString)
 
        For Each CouleurLibelle In ListeCouleur
            If Not String.IsNullOrEmpty(CouleurLibelle) Then AcscCouleur.Add(CouleurLibelle)
        Next
 
        Call SuiviGeneral(2, "I", "Chargé Liste Couleur en " & swTxtCouleur.Elapsed.ToString)
 
        With TxtCouleur
            .AutoCompleteMode = AutoCompleteMode.SuggestAppend
            .AutoCompleteSource = AutoCompleteSource.CustomSource
            .AutoCompleteCustomSource = AcscCouleur
            .ReadOnly = False
        End With
 
        TxtCouleur.Visible = True
        swTxtCouleur.Stop()
 
        Call SuiviGeneral(3, "F", "ChargementTxtCouleur Temps Total chargement  = " & swTxtCouleur.Elapsed.ToString)
    End Sub
je lance cette sub au chargement du Form en qq ms
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Formulaire : FormSerieInferieureDetail -- Ouverture -- ChargementTxtCouleur
Formulaire : FormSerieInferieureDetail --  ** - Information -- Chargé depuis base 5301 couleur(s) en 00:00:00.0611222
Formulaire : FormSerieInferieureDetail --  ** - Information -- Chargé Liste Couleur en 00:00:00.0657366
Formulaire : FormSerieInferieureDetail -- F-------- -- ChargementTxtCouleur Temps Total chargement  = 00:00:00.0909884
J'ai par contre ajouté un Btn pour réactualiser la sourc de la TextBox, et la on passe à 15s à cause du chargement de la ListeCouleur !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Formulaire : FormSerieInferieureDetail -- Ouverture -- ChargementTxtCouleur
Formulaire : FormSerieInferieureDetail --  ** - Information -- Chargé depuis base 5301 couleur(s) en 00:00:00.0321530
Formulaire : FormSerieInferieureDetail --  ** - Information -- Chargé Liste Couleur en 00:00:15.1212054
Formulaire : FormSerieInferieureDetail -- F-------- -- ChargementTxtCouleur Temps Total chargement  = 00:00:15.1287853
Je ne comprends pas ..
Merci de vos lumières !
Bertrand