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
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
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
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.0611222 Formulaire : FormSerieInferieureDetail -- ** - Information -- Chargé Liste Couleur en 00:00:00.0657366 Formulaire : FormSerieInferieureDetail -- F-------- -- ChargementTxtCouleur Temps Total chargement = 00:00:00.0909884
Je ne comprends pas ..
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
Merci de vos lumières !
Bertrand
Partager