Vb6 Splitsen van letters naar een array.

satriano17 · 7 dec 2021

Ik heb een input textbox (getallen.text)
en een array van textboxen (text1(0), text1(1), text1(2)...
om daar getallen te splitsen.

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

Als ik in getallen een getal invoe dan worden de afzonderlijke getallen goed gesplits naar de array .

Als ik een woord invoe dan worden le letters niet gesplits naar de array text.
Zo geprobeerd

Code:

Private Sub Command1_Click()
For x = 1 To Len(woord)
        i = Mid(woord, x, 1)
        Text1(i - 1).Text = Text1(i - 1).Text & i
        Next x
End Sub

mijn bedoeling is het splitsen van afzonderlijke letters naar de array
dank u

satriano17 · 7 dec 2021

Zelf opgelost met beetje aanpassing

Code:

Private Sub Command1_Click()
  For i = 1 To Len(woord.Text)
    Text1(i - 1).Text = Mid$(woord.Text, i, 1)
  Next i 
End Sub

Vb6 Splitsen van letters naar een array.

satriano17

Gebruiker

satriano17

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy