Enter-tast bevæger cursor til næste felt

Nej det kan man ikke... men du kan gøre det på en af disse måder.


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    SendKeys "{TAB}"
  End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    SendKeys "{TAB}"
  End If
End Sub

eller

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Text2.SetFocus
  End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = 13 Then
    Text1.SetFocus
  End If
End Sub

For mit vedkommende bruger jeg keypress event

if keyascii=13 then
  sendkeys "{TAB}"
end if

for at dine kontroller modtager fokus i den rigtige rækkefølge skal du sætte tabindex i egenskabsarket for dine kontroller.

Den nemmeste måde at sætte dem i den rigtige rækkefølge er at starte med den sidste og give den tabindex 0. Så klikker du på den næstsidste og sætter tabindex til 0 og sådan forsætter du igennem dem bagfra og giver hele tiden den næste tabindex 0. VB ændrer selv rækkefølgen for de øvrige kontroller.

//vbcoder

Hvis du vil IGNORERER tastet på return og ERSTATTE det med TAB, skal du først sætte KeyCode = 0 (Annulerer Return). Men skal return fungerer som altid, og derefter  virke som TAB, brug fx. vbcoders svar. Altså:


I keypress eventen:

'Hvis Return skal ignoreres
if keyascii=13 then
  keyascii = 0 
  sendkeys "{TAB}"
end if

'Hvis return skal virke som altid, og derefter fungere som TAB
if keyascii=13 then
  sendkeys "{TAB}"
end if

Bare en lille kommentar :o)

Den finte havde jeg glemt. Tak fordi du mindede mig om det.

Keysacii skal sættes til 0 da man eller får et bip fra højttaleren.

//vbcoder

Jeg erkender at være HÅBLØS sen til at afprøve dette, men det er ikke fordi jeg ikke har brug for det. Jeg 'iler' med at dele point ud!

Hvis jeg - stadig efter laaang tid - forsigtigt må komme med et lille opklaringsspørgsmål: selv om jeg sætter keyascii=0 ind, så bipper/båtter den alligevel, når man trykker på return?

Du skal sætte keyascii=0 inden du sender tab da det keyascii værdien der trigger bippet fordi en enkeltlinje kontrol ikke acccepterer et enter tryk

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
      KeyAscii = 0
      SendKeys "{TAB}"
  End If
End Sub

Mange tak - virker!!