🚀 go-pugleaf

tja , is normaal als ik die code van je bekijk.
Ps: het zou een stuk makkelijker zijn om via een controlarray te werken.

korte oplossing zou kunnen zijn met controlarray  van 5 * 3  => Text1(0) ->
Text1(14): ipv Text1 , TexT2,...

Dim ptr as integer                       ' pointer voor positie bij te
houden in array

Private Sub Form _Load()
  ptr = 1
End Sub

Private Sub CmdEvalueer_Click()
Dim Cnt as integer
  txtWoordIngeven.SetFocus
  If Len(txtWoordIngeve) <> 5 Then
    MsgBox "U moet een woord ingeven van 5 letters"
    Exit Sub
  End If
   for Cnt = ptr to ptr + 5
      Text1(Cnt-1) = Mid(txtWoord,Cnt,1)
   Next Cnt
   ptr = ptr + 5
   if ptr >14 then ptr = 1   ' Indien 3 rijen zijn ingevuld , keer terug
naar rij 1
End Sub

Zie , heb het niet getest , maar ben er zeker van dat het zou moeten werken
voor 5 * 3 array.


"Whoopi" <m.swinnen@skynet.be> schreef in bericht
news:3cda7775$0$6940$ba620e4c@news.skynet.be...
> Hoe voeg ik in 3 rijen textboxen 3 verschillende woorden in?
> Dus 1 woord per rij.
>
> Ik plaats voor de eerste rij 5 textvakken (geen controlarry), 5 voor de
> tweede en 5 voor de derde rij.
> Daaronder plaats ik een textbox waar ik het woord invoer. Dat woord plaats
> ik dan in de eerst rij textvakken, 1 letter per vak.
> Voor de eerste rij geen probleem, hij doet het perfect. Maar bij het
tweede
> woord, dat in de tweede rij moet komen, wordt het eerste overschreven
> en in de eerste rij geplaatst en dat mag niet.
> De code die ik uit mijn mouw geschud heb staat hieronder.
>
> mvg
> Marc
>
> Private Sub cmdEvalueer_Click()
> 'Het eerste woord ingeven.
>
> strwoord(1) = txtWoordIngeven
> txtWoordIngeven.SetFocus
>
> If Len(strwoord(1)) < 5 Then
> MsgBox "U moet een woord ingeven van 5 letters"
> End If
>
> txtPoginga = Left(strwoord(1), 1)
> Text1 = Mid$(strwoord(1), 2, 1)
> Text3 = Mid$(strwoord(1), 3, 1)
> Text4 = Mid$(strwoord(1), 4, 1)
> Text5 = Mid$(strwoord(1), 5, 1)
> strwoord(1) = ""
> txtWoordIngeven = ""
> txtWoordIngeven.SetFocus
> Om de een of andere reden stopt hij hier en gaat hij terug naar boven.
>
> 'Het tweede woord ingeven.
>
> strwoord(2) = txtWoordIngeven
> Text2 = Left(strwoord(2), 1)
> Text6 = Mid$(strwoord(2), 1, 1)
> Text8 = Mid$(strwoord(2), 2, 1)
> Text9 = Mid$(strwoord(2), 3, 1)
> Text10 = Mid$(strwoord(2), 5, 1)
> txtWoordIngeven = ""
> txtWoordIngeven.SetFocus
>
>
> End Sub
>
>