listbox limitée a 3 elements pour 100000 autres elements.

Question

bonjour, 

j'ai un &#233;nonc&#233; que voici : 

1. Cr&#233;er un tableau en m&#233;moire de 100 000 cha&#238;nes de caract&#232;res. Initialiser ce
tableau avec des cha&#238;nes de la forme Ch1, Ch2 &#133;.Ch100000.
2. Dans une listbox, on fixe le nombre maximal d&#146;&#233;l&#233;ments &#224; 3. R&#233;aliser le
programme pour se d&#233;placer par l&#146;interm&#233;diaire d&#146;un ascenseur dans le tableau
de 100 000 &#233;l&#233;ments.
3. G&#233;rer la s&#233;lection par le biais de cet ascenseur.
4. G&#233;rer la suppression de l&#146;&#233;l&#233;ment s&#233;lectionn&#233; en ajoutant un bouton &#145;Supprimer&#146;.

je ne trouve pas le moyen de faire la listbox avec les 3 &#233;l&#233;ments, enfin le principe grace auquel je pourrais me deplacer dans le tableau.

Si quelqu'un pouvait m'aider, merci

econs · Answer

En VB6, tu ne peux pas fixer le nombre maximal d'&#233;l&#233;ments dans une
ListBox. C'est &#224; toi de g&#233;rer, par le code, que tu ne fais pas plus de
3 List1.Additem



En l'&#233;tat, les trois premi&#232;res questions donnent ceci :



'   tableau de 100000 chaines de caract&#232;res

Dim tableau(99999) As String



Private Sub Form1_Load()

    initialise_Form

End Sub





Public Sub initialise_Form()

Dim l As Long



    '   comme on n'affiche 3 elements &#224; la fois, on ne peut

    '   pas scroller sur les deux derniers.

    ScrollBar1.Min = 0

    ScrollBar1.Max = 99997

    

    '    remplissage du tableau de 100 000 &#233;l&#233;ments

    For l = 0 To 99999

        tableau(l) = "Ch" & l

    Next l

    

    '    on affiche le premier trio de donn&#233;es, celui qui

    '    qui commence &#224; l'indice 0 du tableau

    afficheTriplet 0

    

End Sub



Private Sub afficheTriplet(l As Long)

    '    on efface la liste et on inscrit 3 donn&#233;es cons&#233;cutives.

    '    ainsi, on est s&#251;r de n'en avoir que 3 dans la liste.

    List1.Clear

    List1.AddItem tableau(l)

    List1.AddItem tableau(l + 1)

    List1.AddItem tableau(l + 2)

End Sub



Private Sub ScrollBar1_Change()

    '    d&#232;s qu'on bouge la scrollbar, on affiche un nouveau triplet, commen&#231;ant 

    '    &#224; l'indice sp&#233;cifi&#233; par la scrollbar [0..99997]

    afficheTriplet ScrollBar1.Value

End Sub



Il faut une scrollbar (ici nomm&#233;e Scrollbar1) et une listbox (ici nomm&#233;e List1) et un formulaire (ici nomm&#233; Form1).





La question 4 est un peu floue puisqu'on ne sait pas si l'&#233;l&#233;ment supprim&#233; de la listbox l'est aussi dans le tableau.


Je rappelle qu'en posant tes questions de TD ou d'exam ici, tu t'exposes &#224; quelque chose de dangereux : l'ignorance.

Ici, sur ce site, on sait le faire. Mais dans ta vie professionnelle,
&#231;&#224; ne te servira &#224; rien de savoir que les autres savent le faire. C'est
&#224; toi de prendre tes responsabilit&#233;s.




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jpleroisse · Answer

Bonjour,

econs, je crois que la ScollBar ne peu pas d&#233;passer 32767 maximum.

jpleroisse

econs · Answer

Aucun probl&#232;me avec ma scrollbar. Tout fonctionne tr&#232;s bien, m&#234;me au del&#224; de 33000.

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

La limite maximale est 2 147 483 648.



Donc l&#224;, avec 100 000, on a de la marge.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jpleroisse · Answer

Re,

econs, en ce qui me concerne, je viens d'essayer et au dessus de 32767,
j'ai un message, D&#233;passement de capacit&#233;, que ce soit avec le
HScrollBar o&#249; le VScollBar.



jpleroisse

econs · Answer

J'ai effectu&#233; mon test en VBA avec Excel 2003.

C'est peut-&#234;tre diff&#233;rent avec Visual Basic (ce serait &#233;tonnant quand m&#234;me).

Je n'ai pasVB6 au bureau, donc l&#224;, je ne peux pas comparer avec toi.




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

kesm · Answer

en fait j'en demandais pas tant c'est juste que je comprenais pas trop ce qu'il fallait faire sur la 2 eme question... en tout cas merci de l'aide je regarde ca de plus pr&#232;s

econs · Answer

Dans tous les cas, je confirme, pour la culture g&#233;n&#233;rale de tout le
monde, que sous VB6, les scrollbars sont limit&#233;es &#224; 32767 &#233;l&#233;ments.

Alors qu'en VBA Excel, elles sont limit&#233;es &#224; environ 2 000 000 000.

Curieux ...

Manu-------------------------------------------[i][orange]Une
question bien pos&#233;e, c'est une chance de r&#233;ponse bien
adapt&#233;e./orange/i

Listbox limitée a 3 elements pour 100000 autres elements.

8 réponses

Discussions similaires