Discussion :

[oddis]

bonjour à tous,

j'insère environ 53000 éléments dans une listbox. puis après dans une autre procédure je récupère le nombre d'éléments avec la propriété

Code :

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

nbre_elements=listbox.listcount

le problème est que toto me renvoie -8355. est ce que le nrbe d'éléments max d'une listbox est limité?

[avigeilpro]

Cela est peut-être simplement dû au type de variable dans lequel tu loge le résultat, tu dépasse peut-être la capacité.

[Najdar]

Bonjour oddis,

Je viens de regarder, la propriété .ListCount est un Integer, donc limité à 32767.
Au delà :
- soit le contrôle plante en erreur 6 dépassement de capacité, à priori non,
- soit tu passe en négatif : 32767 + 1 = -32765

Au fait combien de temps il faut pour mettre 53000 éléments dans une combo ?

Je ne suis pas sûr que la combo soit bien adaptée pour ce volume de données.

[avigeilpro]

Personellement j'utiliserais une base de donnée une boite texte et deux boutons. tu aurais moins de problèmes.

[oddis]

en fait le listcount passe en négatif, ca ne plante pas. par contre j'ai modifié, j'ai mis 1 textbox multiligne avec un saut de ligne

Code :

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

vbCrLf

pour séparer chaque donnée mais apparemment on est encore limité dans le nombre de caractére en multiligne à 32Koctets. en fait je fais une comparaison de 2 bases. je stocke les résultat dans un tableau et je voudrais afficher le résultat dans un objet pour chaque bds et pouvoir synchroniser les scrollbars.
Quel est le meilleur objet à utiliser?

[Najdar]

A quoi sert une combo ? Avoir une liste de choix "prédéfini" pour faciliter une saisie.
S'il faut chercher dans 53000 valeurs, cela veux dire qu'on la connait déjà. Non ? Dans ce cas la combo n'est pas utile.

Là où elle est très intéressante, c'est quand le nombre de valeur est peu important. Ce que tu peux faire pour restreindre le nombre de valeurs, c'est de remplir la combo en fonction de la saisie de l'utilisateur.

Je m'explique :
Au départ la combo est vide, mais l'utilisateur peut saisir quelque chose.
Si l'événement Change, tu peux remplir la combo avec tous les éléments commençant par cette saisie.
Pour que cela ne soit pas trop long tu peux décider de remplir la combo qu’à partir de 2 ou 3 caractères (c'est plus discriminant).
Une fois que tu as rempli la combo, tu l'ouvre par le code, comme ça l'utilisateur voit une liste de choix correspondant à ça recherche.

[oddis]

je me suis mal exprimé. j'ai environ 100 000 données par chaque BDS sous oracle. j'importe dans un tableau. chaque BDS, puis je compare les 2 tableuax et je stocke les diffs dans un tableau à 2 dimension. exemple :
BDS 1
HUGUE Marie 25 ans marié 3 enfant

BDS 2
HUGUE Marie 25 ans divorcé 3 enfant

Je veux affiché dans un objet la ligne de la BDS 1 et dans un 2 ieme objet la ligne de la BDS 2. Mais j'ai 100 000 data environ et j'ai 53000 diffs qui apparaisent et je veux tout voir sans que l'utilisateur doit taper une partie de la data. Y-a-t-il un objet qui est un stockage de type long sous 4 octets?

[Najdar]

Il faut un controle de type grille. Je pense qu'un controle comme le FlexGrid devrait faire l'affaire.

Personnellement je ne l'utilise pas. J'utilise la grille d'Infragistic qui est plus évoluée.

[zazaraignée]

Salut Najdar

Ton Infragistic pourrait être une solution intéressante pour un autre problème que je viens de voir tout à l'heure. On le trouve où, ce composant?

[Najdar]

Je viens de regarder sur leur site www.infragistics.com et ces ### (idiots en 3 lettres) là ont arrêtés leurs versions "Classic" OCX et ne font plus que du .Net

[zazaraignée]

En effet que du .Net! Dommage!

Ceci dit, histoire d'en avoir le coeur net, j'ai fait des tests et je n'ai pas encore trouvé la limite d'un ListBox...

Testé sur une machine Pentium III qui tourne à près d'un GHz, pas assez de mémoire (à mon goût), OS : Win XP, sur VB6. Le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Activate()
    If List1.ListCount = 0 Then
        Dim max As Long, i As Long
        max = 2 ^ 14 * 2 ^ 8 
        MsgBox max
        For i = 0 To max
            List1.AddItem i
            Debug.Print i ' contribue à ralentir mais aide à voir la progression
            DoEvents
        Next
    End If
End Sub

Sur un événement Form_Load, on ne voit rien... et ça plante. J'ai mis un test sur une liste non vide pour éviter un redémarrage de la procédure en cas de changement de focus d'une fenêtre à l'autre... on sait que le Activate se produit dès qu'une fenêtre a le focus... entre autres. Le DoEvents permet de voir ce qui se passe. Sans lui, un rien fait planter le tout. Malheureusement, ça ralentit un peu le test, ce qui n'est pas rien vu le nombre d'itération que j'ai obtenu. Je n'ai pas testé plus loin, car à cette valeur (2 ^ 14 * 2 ^ 8), ça a pris des heures!

Donc la limite d'une listBox? On dirait que "sky is the limit" comme disent mes voisins du sud! quoique mes premiers tests, que j'ai fait illico avec 2 ^ 16 * 2 ^ 8 mais sur le Form_Load et sans le DoEvents, et bien, ça plantait.

[ProgElecT]

bonjour
J'ai eu ce même problem il ya quelque temps, le chargement de plus de 72000 mots provenant d'une base de données, le chargement ne posait pas de problem en lui même, mais dés que je cherchais a utiliser comboList.List(> 32658) , plantage.
Je me suis resolut à mettre 2 Combo l'un sur l'autre et je gerai Zorder de l'un a l'autre suivant les besoins.
Mais j'ai laisser tombé, car il ma suffit de faire rechercher les mots en passant par une autre strategie.
Un TextBox, a chaque changement, ajout de caracteres ou suppression, je fais un Like vers la table consernée, resultat plus claire en fait pour l'utilisateur en ce qui conserne ce programme, la recherche dans un combo etant moins pratique pour ce cas precis.

[AdHoc]

Bonjour,
A mon avis au-delà du millier d'éléments, il vaut mieux afficher des extractions (~des pages ) que sur l'ensemble des données (un ascenseur sur plus de 10 000, bonjour !! )