Hvordan legge inn return i en RichTextBox

Det burde være sådan per default. Har du MultiLine = True ?

Ja MultiLine = true Men det hjelper ikke

Du må kun oprette et spm en gang. Luk det andet ;-)

Indsætter du teksten fra en variabel? For hvis jeg skriver i min RTF, så kan jeg sagtens trykke enter.

Hvis det er en strengvariabel du indlæser tekst fra så indsættes linieskift sådan:

Str= "blablablablablablablablablablablablablablablablablabla" & VBCrLf & _
"blablablablablablablablablablablablablablablablablablablabla" & VBCrLf & _
"blablablablablablablabla" osv

VBCrLf (Control + LineFeed) indsætter et linieskift.

CrLf = Carriage Return + LineFeed

Det jeg har funnet ut at jeg må gjøre er og putte inne en Carriage Return + LineFeed for hver 20 tegn jeg skriver inn i RichTextBox. (det tilsavarer ca bredden på feltet)
Og for hver 20 tegn skal det legges inn en Carriage Return + LineFeed.

Jeg har prøvd utallige varianter bla annet VBCrLf . Jeg klarer og finne antall tegn og ved en if settning så setter jeg inn Carriage Return + LineFeed.

Men det havner bare på samme linje.

Legger ved koden jeg har skrevet.
Private Sub txtMerknader_KeyPress(KeyAscii As Integer)
    Dim intAnt As Integer
    Dim strText As String
   
    strText = txtMerknader.Text
    intAnt = Len(strText)

    If intAnt >= 10 Then
        txtMerknader = txtMerknader & vbCrLf
    End If
End Sub

(Jeg vet at dette kun gjelder for de første 10 tegn.)

Prøv denne:

Private Sub txtMerknader_KeyPress(KeyAscii As Integer)
    Dim intAnt As Integer
    Dim strText As String

    strText = txtMerknader.Text
    intAnt = Len(strText)

    If intAnt > 19 And (intAnt Mod 20 = 0) Then strText = strText & vbCrLf

    txtMerknader.Text = strText
    txtMerknader.SelStart = intAnt
 
End Sub

Der er ganske vist et lille problem med at den første linie bliver 2 karakterer længere end de andre linier (vbCrLf er 2 karakterer), men prøv at lege lidt med det.

Hey Tjacob takk skal du ha. Det fungerete kjempe bra. Poengene er dine.

Vennlig hilsen FlyMeToTheMoon :)