Vb6 - Een '0' weergeven in een array.

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
k heb een textbox GETALLEN die een nummer bevat van verschillende cijfers.
bv. 11234567880

+ een array van 9 textboxen
en deze code..
Code: 
Private Sub Command1_Click()
For x = 1 To Len(getallen)
        i = Mid(getallen, x, 1)
        Text1(i - 1).Text = Text1(i - 1).Text & i
        Next x
End Sub

De nummer in GETALLEN wordt gesplitst en de cijfers worden een per een
weergegeven in de array ook als gelijke cijfers aanwezig zijn.
Alles werkt goed. Maar....
Als in GETALLEN een '0' aanwezig is dan wordt niet weergegeven.
En ik begrijp niet waarom.

Hoe kan ik veranderen om ook de '0' te krijgen in de array?
dank u
 
Laatst bewerkt:
Plaats hier even je project, of een voorbeeld er van.

Waarom nog steeds in VB6?
 
Hier mijn voorbeeld
 

Bijlagen

  • Test.zip
    1,2 KB · Weergaven: 31
Laatst bewerkt:
Maak er een textbox bij, Text1(9) en gebruik dan deze code:
Code: 
Private Sub Command1_Click()
    For i = 0 To 9
        Text1(i).Text = ""
    Next i

    For x = 1 To Len(getallen)
        i = Mid(getallen, x, 1)
        Text1(i).Text = Text1(i).Text & i
    Next x
End Sub
 
Het werkt perfect, Edmoor !!!!
Zoals ik het bedoeld.
Doeltreffend .


Zeer bedankt.
 
edmoor zei:
Plaats hier even je project, of een voorbeeld er van.

Waarom nog steeds in VB6?
Klik om te vergroten...

Ok, VB6 is zwaar verouderd maar wat is het probleem als je lol aan programmeren hebt en wat dingetjes voor jezelf maakt?
 
Laatst bewerkt:
Helemaal niks.
Ik ben gewoon benieuwd naar de reden :)

VB6, first release: 1991 ;)
 
inderdaad, alphamax.
ik heb ook vele programma's gemaakt in vb6 in de loop van de jaren en nu probeer ik sommige programma's te verbeteren. Dus programmeer ik niet (meer) zoveel maar steeds met lol.
Ik ben ook bezig met vbNet iets te proberen.
 
Ik ben opgegroeid met basic (en daarna niet meer doorgegroeid ;))
Basic sluit aan bij het nivo van mijn mogelijkheden en ambities.
 
Ik ben alleen maar door gegroeid, fysiek dan :p
 
Wie niet, afgelopen weken.
 
Edmoor, de enige reden is dat ik nu niet meer programmeer zoals vroeger.
Intussen ben ik toch bezig om vbNet te 'onderzoeken.' En wie weet...
Ik weet en ik heb al gezien dat met vbNet meer mogelijkheden in zitten en gemakkelijk ook.
Ik ben bezig. Intussen verbeter ik af en toe een vb6 programma.
In elk geval , dank u voor uw hulp om oplossingen .
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan