Rich TextBox Alignment.

[tpfkanep]

Hi,

I have a form with a rich textbox control.

I am trying to align text in the rich textbox with:

Dim a As String * 50
Dim b As String * 10
Dim c As String * 5
 
a = "AAAA"
b = "BBB"
c = "%%%"
rtb.Text = a & vbTab & b & vbTab & c
 
a = "WWWW"
b = "XXX"
c = "F"
rtb.Text = rtb.Text & vbCr & a & vbTab & b & vbTab & c
 
a = "QQQQQQQQQQQQQQQQQQQQQQQQQ"
b = "TTTTTTTTTT"
c = "10101"
rtb.Text = rtb.Text & vbCr & a & vbTab & b & vbTab & c

The text is not displayed in column-like fashion.
I've tried to remove the * 50, *10, *5 from the Dim; changing fonts; but I just cannot seem to figure a way out.

Any ideas?

Thanx

[Merri]

Tabs come after certain periods. If text goes over, it jumps to the next. So only way would be to either set tabs into different places or then using a fixed length font (such as FixedSys or Courier New) and doing following:

Dim a As String * 50
Dim b As String * 10
Dim c As String * 5
 
rtb.Font.Name = "FixedSys"
rtb.Font.Size = 9
 
a = "AAAA"
b = "BBB"
c = "%%%"
rtb.Text = a & b & c
 
a = "WWWW"
b = "XXX"
c = "F"
rtb.Text = rtb.Text & vbCrLf & a & b & c
 
a = "QQQQQQQQQQQQQQQQQQQQQQQQQ"
b = "TTTTTTTTTT"
c = "10101"
rtb.Text = rtb.Text & vbCrLf & a & b & c

Hope this is of any help.

[tpfkanep]

Thank you!