How can I write left and right in the same line of a richtextbox?

Question

I want to write, in the same line, text with a right aligment and other with left aligment. How can I do it?
thanks

Answer 1

I want to write, in the same line, text with a right aligment and other with left aligment. How can I do it?
thanks
As
Viorel_ says "Perhaps there are other much easier solutions. For example, create two
RichTextBoxes with no borders (if you only need two columns of text)" but the real issue would be saving the info in the RichTextBox's (RTB's) RTF or Text to two different RTF or TextFiles. Although I suppose if it was just going to
a TextFile then you could somehow use a delimited text file so each same line number of each RTB is appended to the same line and delimited. That way you could probably load a split array with each line from the text file splitting on the delimeter per line
and providing RTB1 with index 0 of the split array and RTB2 with index 1 of the split array. I'm not going to try that.
This is some leftover code from a long time ago. It has three RTB's. RTB1 is there I suppose because the thread asking for this code wanted it. RTB2 is borderless as well as RTB3. The Aqua control in the top image below is the Panel used to cover RTB2's
scrollbar. So RTB3's scrollbar is used to scroll both controls.
I forgot to test if I typed past the scroll position in RTB2 if both would scroll as maybe RTB3 would not since it would not have anything to scroll to I suppose.
Maybe this code can help or maybe not. The bottom two images are the app running and displaying nothing scrolled in RTB2 and RTB3 then the scroll used in the bottom image.
Disregard the commented out code in the code below. It was there so I left it there. I suppose you should delete it. Also I didn't set the RTB's so one was left aligned and the other right aligned. I believe the Panel becomes a control in RTB2's controls
when it is moved to cover RTB2's vertical scrollbar but don't remember although that seems the case since both RTB2 and RTB3 are brought to front so if the Panel was not one of RTB2's controls I would think it would be behind RTB2 and RTB2's vertical scrollbar
would display but don't remember now. In fact I don't really remember how that part works. :)
Option Strict On
Public Class Form1
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByRef lParam As Point) As Integer
Const WM_USER As Integer = &H400
Const EM_GETSCROLLPOS As Integer = WM_USER + 221
Const EM_SETSCROLLPOS As Integer = WM_USER + 222
Dim FixTheProblem As New List(Of String)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Panel1.BackColor = Color.White
Panel1.BorderStyle = BorderStyle.Fixed3D
RichTextBox2.BorderStyle = BorderStyle.None
RichTextBox2.ScrollBars = RichTextBoxScrollBars.Vertical
RichTextBox3.BorderStyle = BorderStyle.None
RichTextBox3.ScrollBars = RichTextBoxScrollBars.Vertical
RichTextBox3.Size = RichTextBox2.Size
RichTextBox3.Top = RichTextBox2.Top
RichTextBox3.Left = RichTextBox2.Right - 20
Panel1.Size = New Size(RichTextBox2.Width * 2 - 16, RichTextBox2.Height + 4)
Panel1.Left = RichTextBox2.Left - 2
Panel1.Top = RichTextBox2.Top - 2
RichTextBox2.BringToFront()
RichTextBox3.BringToFront()
FixTheProblem.Add("Curry: £6.50")
FixTheProblem.Add("Mineral Water: £4.50")
FixTheProblem.Add("Crisp Packet: £3.60")
FixTheProblem.Add("Sweat Tea: £2.23")
FixTheProblem.Add("Motor Oil: £12.50")
FixTheProblem.Add("Coca Cola: £.75")
FixTheProblem.Add("Petrol Liter: £3.75")
FixTheProblem.Add("Shaved Ice: £.50")
FixTheProblem.Add("Marlboro: £2.20")
FixTheProblem.Add("Newspaper: £.25")
FixTheProblem.Add("Spice Pack: £.75")
FixTheProblem.Add("Salt: £.50")
FixTheProblem.Add("Pepper: £.30")
For Each Item In FixTheProblem
RichTextBox1.AppendText(Item & vbCrLf)
Next
RichTextBox1.SelectionStart = 0
RichTextBox1.ScrollToCaret()
Dim Fix As String = ""
For Each Item In FixTheProblem
Fix += Item.Replace(":", "^:") & vbCrLf
Next
Fix = Fix.Replace(vbCrLf, "^>")
Dim FixSplit() As String = Fix.Split("^"c)
For i = 0 To FixSplit.Count - 1
If CBool(i Mod 2 = 0) = True Then
RichTextBox2.AppendText(FixSplit(i).Replace(">"c, "") & vbCrLf)
ElseIf CBool(i Mod 2 = 0) = False Then
RichTextBox3.AppendText(FixSplit(i) & vbCrLf)
End If
Next
End Sub
Dim RTB2ScrollPoint As Point
Private Sub RichTextBox2_Vscroll(sender As Object, e As EventArgs) Handles RichTextBox2.VScroll
Dim RTB2ScrollPoint As Point
SendMessage(RichTextBox2.Handle, EM_GETSCROLLPOS, 0, RTB2ScrollPoint)
SendMessage(RichTextBox3.Handle, EM_SETSCROLLPOS, 0, New Point(RTB2ScrollPoint.X, RTB2ScrollPoint.Y))
'Me.Text = RTB2ScrollPoint.X.ToString & " .. " & RTB2ScrollPoint.Y.ToString
End Sub
Private Sub RichTextBox3_Vscroll(sender As Object, e As EventArgs) Handles RichTextBox3.VScroll
Dim RTB3ScrollPoint As Point
SendMessage(RichTextBox3.Handle, EM_GETSCROLLPOS, 0, RTB3ScrollPoint)
SendMessage(RichTextBox2.Handle, EM_SETSCROLLPOS, 0, New Point(RTB3ScrollPoint.X, RTB3ScrollPoint.Y))
'SendMessage(RichTextBox2.Handle, EM_SETSCROLLPOS, 0, New Point(0, 10))
End Sub
End Class
La vida loca