Override keydown

vil du ikke prøve at skære det lidt mere ud?

Jo, det er egentligt lidt svært at læse nu hvor jeg selv ser på det :). Mit tekstfelts keydown event ser således ud:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
        Text1.SelLength = 1
        Text1.SelText = "  "
    End If
End Sub

Det gør at hver gang jeg trykker tab bliver der tilføjet to mellemrum, men herefter bliver der også indsat tab i feltet, jeg vil kun have mine to mellemrum.

Er det nemmere at forstå? Ellers så sig til :).

ja hvis det er fordig når du trykker på tab kommer der 2 mellemrum (iorden) men den sprænger samtidig videre til næste "objekt" (iuorden)

jeg har selv lige prøvet.... ser mystisk ud, prøver om ikke andet så i morgen :)

prøv at kigge på keypreview...

Det er ikke fordi den springer videre til næste objekt, jeg har slået tab stop (tror jeg nok den hedder), det er fordi den indsætter tab i tekstboksen (altså noget der svarer til omkring 10 mellemrum). Hvordan kan jeg sørge for at den kun indsætter min tekst, og så bare glemmer at brugeren trykkede på tab?

Hvis du har tabstop=False på alle kontroller på formen (incl. textboxen), så indsætter den kun de to mellemrum. (i hvert fald hos mig). Men ellers prøv:
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 9 Then
        Text1.SelLength = 1
        Text1.SelText = "  "
        KeyCode = 0
    End If
End Sub

/tjacob

Hej, jeg har tabstop på alle kontroller, hvilket forhindrer at den skifter kontrol når der bliver trykket på tab. I stedet bliver tab nu indsat i tekstfeltet, altså ligesom når man trykker på tab i word, det er det jeg vil undgå. KeyCode = 0 hjælper desværre ikke.

Mvh Mark

Det forstår jeg ikke! Koden virker fint hos mig med eller uden KeyCode=0, og også med eller uden KeyPreview. -Forudsat alle kontroller har TabStop=False. ?????????
Hvis jeg helt fjerner al kode, og sætter alle TabStop=False, så har Tab overhovedet ingen effekt!

Jeg opdager nu at problemet opstår, når MultiLine = True!
Hvis du kører uden multiline, så virker det, ellers ikke.
Desværre kan denne property ikke ændres i runtime, så du må nok leve med det.

Hvis du kan bruge KeyPress eventet i stedet for, virker følgende:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 9 Then
        Text1.SelLength = 1
        Text1.SelText = "  "
        KeyAscii = 0
    End If
End Sub

/tjacob