OK tak for det
<allanmc@my-deja.com> skrev i en meddelelse
news:93t4mk$ves$1@nnrp1.deja.com...
> Tja du kunne lægge denne kode ind i de påældende tekstbokses keydown
> sub :
>
> If KeyCode = 13 Then SendKeys ("{TAB}")
>
> Men den er nok ikke så smart hvis du også har f.eks knapper på din
> form ...
>
> Den her vil så kun virke med teksbokse, men den tager dem altså i lidt
> omvendt rækkefølge ....
> Den tager først den nyeste tekstbokste, så de næst nyeste, indtil den
> havner
> ved den ældste - så starter den forfra.
> Du skal lægge den her sub ind:
> ------------------------
> Sub LoopTB()
> TNow = 1
> For Each xCtl In Me.Controls
> If TypeOf xCtl Is TextBox Then
> If TNow - 1 = CurrentT Then
> xCtl.SetFocus
> CurrentT = CurrentT + 1
> If CurrentT > TBIalt - 1 Then CurrentT = 0
> GoTo StopLoop
> End If
> TNow = TNow + 1
> End If
> Next xCtl
> StopLoop:
> End Sub
> -------------------------
>
> Tileføje de her variabler øverst i din form kode (i "General"):
> ----------------
> Dim CurrentT As Integer
> Dim TNow As Integer
> Dim xCtl As Control
> Const TBIalt = 6
> ----------------
>
> Og så skrive "LoopTB" i alle tekstboksenes KeyPress sub'er
>
>
> Håber det kan hjælpe dig !
>
> /AllanMC
>
> In article <93q4t7$phu$1@news.inet.tele.dk>,
> "Jan Damkjær Dahl" <jpd@post12.tele.dk> wrote:
> > hejsa
> >
> > hvordan kan man bruge enter til at springe mellem textboxe.
> >
> >
>
>
> Sent via Deja.com
>
http://www.deja.com/