Getallen sorteren in textboxen (vb6)

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
k ben een paar dagen bezig met een dom probleem maar ik kan niet uit.

Ik heb een getal met waarden 1-9 in een textbox getallen.text
bv.
11233345677889
(Een getal kan dus ook meer dan een keer voorkomen.)

Hoe kan ik die getal lezen/verdelen en zorgen dat
1 of meer getallen van de zelfde waarde in de respectelijk text box komen?
met de bonvensste voorbeld bedoel ik
text1(0).text==11
text1(1).text=2
tex1(2).text=333
.......
enz.
uiteraard mag ook een textbox leeg blijven.

ik heb zo geprobeerd (met een array) maar werkt het niet.
Code: 
for i=0 to len(getallen) - 1
waarde = mid(getallen, i, 1)

text1(i).text = waarde
next i
dank u
 
Laatst bewerkt:
Als je er even een voorbeeld bestandje met die textboxes bij doet zal het vast geen probleem zijn.
 
Ik had enkel een test gedaan om te proberen.
Hierbij de proef (test)
 

Bijlagen

  • Test.zip
    1,3 KB · Weergaven: 17
Doe het eens zo:
Code: 
Private Sub Command1_Click()
    For x = 1 To Len(getallen)
        i = Mid(getallen, x, 1)
        Me.Controls("TextBox" & i).Item(i - 1).Text = Me.Controls("TextBox" & i).Item(i - 1).Text & i
    Next x
End Sub

Rare notatie.
Die VB6 werd nog door Fred Flintstone gebruikt.
Stap over op Visual Studio Express.
Dat werkt vele malen prettiger.
 
Laatst bewerkt:
Het werkt, Edmoor.
Prachtig.
Die VB6 werd nog door Fred Flintstone gebruikt.
Klik om te vergroten...

ja, Edmoor. Ik zou naar vbnet moet overstappen. Ik was ook begonnen en dan niet meer.
want ik heb in jaren vele programma's met vb6 gemaakt en dan zou die ik allemaal moeten 'vertalen'.
Ik zal nog eens zien.
Ik elke geval: zeer bedankt. Uw tips zijn altijd doeltreffend.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan