KeyCode

Hej der...
Kan du ikke bare sætte multiline efter behov?

Du kan lave et tjek på, om de sidst indtastede 2 karakterer er vbCrLf (carriage return og line feed). Hvis det er tilfældet, svarer det til at brugeren har trykket Enter.

F.eks.:

If vb.Right(TextBox1.Text, 2) = vbCrLf Then
    TextBox1.Text = vb.Left(TextBox1.Text, Len(TextBox1.Text) - 2)
    TextBox1.Select(Len(TextBox1.Text), 0)
End If

PS: Hvis du bruger VB .NET skal du have et
Imports vb = Microsoft.VisualBasic i toppen af din form, hvis du bruger VB 6 skal du fjerne vb prefixet på Left og Right, for at koden virker.

jrl0469 >> Hvis du sætter Multiline = false, hopper al teksten som er i tekstboksen op på én linie.

Hej driis
Ja det er da rigtigt nok. Kan man ikke bruge Text1_keyPress eller lignende?

I fortsættelse af jrl0469's gode forslag:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
    SendKeys "{BACKSPACE}"   
End If

End Sub

I er meget gode alle sammen, men i overser en vigtig detalje - det kan lade sig gøre at annullere et keypress:


Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
    KeyAscii = 0
End If

End Sub

eller (ved keypress): Text1.Text = Replace(Text1.Text),vbCrLf,"")

det fjerner alle linjeskift's :)

Jeg takker indtil videre, men vender først tilbage på mandag.

Compilos