/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Enter for at springe meller textboxe
Fra : Jan Damkjær Dahl


Dato : 13-01-01 18:56

hejsa

hvordan kan man bruge enter til at springe mellem textboxe.



 
 
Lindstrom (14-01-2001)
Kommentar
Fra : Lindstrom


Dato : 14-01-01 17:57

sub textbox1_KeyDown(KeyCode as Interger, Shift As Interger
Const Enter = 13
Const DownKey = 40
Select Case Keycode
Case DownKey
textbox2.Setfocus
Case Enter
textbox2.Setfocus
end select
end sub



"Jan Damkjær Dahl" <jpd@post12.tele.dk> skrev i en meddelelse
news:93q4t7$phu$1@news.inet.tele.dk...
> hejsa
>
> hvordan kan man bruge enter til at springe mellem textboxe.
>
>



allanmc@my-deja.com (14-01-2001)
Kommentar
Fra : allanmc@my-deja.com


Dato : 14-01-01 22:12

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/

Jan Damkjær Dahl (15-01-2001)
Kommentar
Fra : Jan Damkjær Dahl


Dato : 15-01-01 07:39

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/



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste