Jag undrar om det finns något sätt att sätt in en Horisontell linje i en richtextbox-kontroll... Dvs i runtime. Det skall alltså vara en linje som täcker hela bredden av textrutan, oavsett hur bred den är... Finns det något bra sätt? Textrutan skall nämligen ändra bredd lite då och då... Jättesnällt om nån ville hjälpa mig!

En vertikal linje som täcker hela bredden (!). Rätta mig om jag har fel, men en vertikal linje går väl uppifrån och ned. Horisontell menar du kanske?

Ajdå, exakt så!! Horisontell linje ja! Någon som vet??

Hej
Skicka en flock _ som är lika bred som RichBoxen.

Dim dummy As String
dummy = String$(80,"_")

Skicka dummy till RichBoxen

mvh
Sven

Eh.. Men då ändrar den ju inte storlek efter textrutans bredd ju. Jag vill kunna göra något som liknar <hr> -taggen i HTML... Förstår ni??

Jag skall använda mig av detta för att visa radbrytningar i en richtextbox, och eftersom den skall kunna ändra bredd hela tiden så funkar det ju inte att bara sätta in en mass "_"-tecken... Någon som kan lösa gåtan??

Hej
Roade mig med att skriva en rutin som kanske löser problemmet.
RichTextBoxen har jag döpt till Rich

Option Explicit
Private Sub Command1_Click()
Call RichHLine
End Sub

Private Sub RichHLine() 'Dra en horisontellinje i RichTextBox
Dim RW As Long, TW As Long
Dim number As Long, Mefs As Long, Mefname As String
Mefs = Me.Font.Size
Mefname = Me.FontName
Me.FontName = Rich.Font.Name
Me.FontSize = Rich.Font.Size
RW = Rich.Width
TW = Me.TextWidth("_")
number = RW \ TW - 2
Rich.Text = Rich.Text & vbCrLf & String$(number, "_")
Me.FontName = Mefname 'återställ
Me.Font.Size = Mefs 'återställ
End Sub

mvh
Sven