[VB] Maximaal aantal entry's in combobox

[Apen-nootjes]

Ok, ik ben hier bezig met een heel simpel programmatje dat een aantal getallen van 1 tot een bepaald getal wegschrijft in een combobox. Nu is alleen het probleem dat ik niet weet hoeveel entry's ik maximaal kan gebruiken. Als ik b.v het getal 32767 invoer dan geeft hij een fout..

M'n vraag kort samengevat, tot welk getal kan ik onder elkaar laden in een combobox??

[Gerco]

Tegenvraag: Hoeveel entries WIL je erin laden?

Een combobox met meer dan een honderdtal items is erg onhandig in het gebruik, misschien moet je iets anders doen als je zoveel items nodig hebt (listbox, listview).

Er kunnen in ieder geval wel een paar honderd items in, ik ben nog nooit boven de 400 geweest (en dat was erg onhandig in het gebruik)

[Chris10]

Het aantal items is gelijk aan de index van de combobox. De index is een Integer, dus zou in principe het maximaal aantal van -32767 tot 32767 lopen. Dat klopt ook, want je kan de combobox vullen tot en MET 32766. 32767 is zijn max en kan dus niet.
Het wordt wel een volle combobox met zoveel items
Suc6 ermee!

[Apen-nootjes]

Op woensdag 10 april 2002 09:26 schreef Chris10 het volgende:
Het aantal items is gelijk aan de index van de combobox. De index is een Integer, dus zou in principe het maximaal aantal van -32767 tot 32767 lopen. Dat klopt ook, want je kan de combobox vullen tot en MET 32766. 32767 is zijn max en kan dus niet.
Het wordt wel een volle combobox met zoveel items
Suc6 ermee!

Nee, doet hij ook niet.... Hier ff het stukje source...

code:

On Error GoTo Foutafhandeling 'Als er een fout optreed fout afhandelen

    Dim Tafel As Integer   'De variabelen declareren
    Dim I As Integer
    
      Tafel = CCur(Invoer.Text) 'zeggen wat de variabele Tafel inhoud
    
      If Tafel <= 32765 Or Tafel >= -32765 Then
        For I = 1 To Tafel      'De waardes op het tweede formulier toevoegen
            Tafels.Kies.AddItem CStr(I)
        Next
    
            Tafels.Show    'Dit formulier sluiten en het andere laden
            Unload Me
      End If
Exit Sub

Foutafhandeling:

MsgBox "Geen geldig getal" + vbNewLine + Err.Description, 0, "Foutje"

Exit Sub
Resume

End Sub

Het programma schrijft op elke regel van de comobox een getal weg. Dit getal loopt dus van 1 tot het getal wat je invult. Daarna kan je op het tweede formulier een getal kiezen uit de comobox waarvan hij dan de tafel uitrekend...
(Je hoeft het eigenlijk maar tot 10 te laten lopen maarja, da's zo saai want dan is het programma al af voordat je "visual basic" ken zeggen

[Chris10]

Je code is op zich goed alleen waarom converteer je die invoer naar een Currency? Die moet juist een Integer worden, dus verander dat in CInt.
En het volgende:

Tafels.Kies.AddItem CStr(I)

Je kan CStr beter weg halen, want je wilt die waarde later nog gebruiken om te delen. Dat gaat beter met een Integer dan met een String
Ik heb het even getest, en zo zou het moeten werken.
Zo niet dan hoor ik het graag

[DigiK-oz]

In Windows 9x is het gelimiteerd tot 32766. In NT/2000/XP is die limiet wel weg, maar als je er dan meer entries in stopt (met additem) kloppen zaken als listcount etc. niet meer (want deze zijn nou eenmaal integer ) en worden dus negatief.

[Dido]

Tafel <= 32765 Or Tafel >= -32765

Or

Dus bij -99999 doet-ie het ook...

Is dit unconditional code of heb ik koffie nodig?

[Gerco]

Op woensdag 10 april 2002 11:40 schreef Dido het volgende:
Is dit unconditional code of heb ik koffie nodig?

Je hebt helemaal gelijk... die If is een tikje onhandig, aangezien het ALTIJD waar is

[Apen-nootjes]

Op woensdag 10 april 2002 11:40 schreef Dido het volgende:
Tafel <= 32765 Or Tafel >= -32765

Or

Dus bij -99999 doet-ie het ook...

Is dit unconditional code of heb ik koffie nodig?

Ok, je hebt gelijk, ik heb het een en ander omgedraaid.. balen nouja.. Maakt ook niet echt uit..

Op woensdag 10 april 2002 10:11 schreef Chris10 het volgende:
Je code is op zich goed alleen waarom converteer je die invoer naar een Currency? Die moet juist een Integer worden, dus verander dat in CInt.
En het volgende:
[..]

Ik was eerst met een Currency aan het werken totdat ik dus hier hoorde dat het maar een integer kan zijn... 't is dus nog een stukje oude code wat nu veranderd is

Je kan CStr beter weg halen, want je wilt die waarde later nog gebruiken om te delen. Dat gaat beter met een Integer dan met een String
Ik heb het even getest, en zo zou het moeten werken.
Zo niet dan hoor ik het graag

Je heb helemaal gelijk en alles werkt nu perfect dus BEDANKT iedereen!!!!