🚀 go-pugleaf

Bedankt p,

Uw code werkt inderdaad, op een paar kleinigheden na, zoals het tweede en
derde woord, die niet worden weergegeven in de rijen  2 en 3.
Ze worden er wel in geplaatst maar niet zichtbaar gemaakt. Ik zal dat wel
proberen op te lossen.
Enfin, ik kan nu wel weer verder werken, en heb nu een duidelijker beeld
over dat ding.
Nogmaals, bedankt.

Mvg,
Marc




"peterv" <petervu@skynet.Be> wrote in message
news:3cdeebb0$0$6971$ba620e4c@news.skynet.be...
> 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...