Setting tab stops in RTF control

Hi all

I have an rtf control on my form. The control is populated with text from an
string array created as the application runs. The code to populate the rtf
control is as follows

For l = 0 To arrayList.GetUpperBound(0)
If arrayList(l, 0) Is Nothing Then
'do nothing
Else
output &= arrayList(l, 0) & vbTab & vbTab _
& arrayList(l, 1) & vbTab _
& arrayList(l, 2) & vbTab _
& arrayList(l, 3) & vbCrLf
End If
Next

RichTextBoxList.Text = output


My problem is that the 4 columns do not line up neatly in this method as the
strings in any element of the array may be longer (or shorter) than that in
the next element of the array. In some case the first index of the array
element will be longer than where the first tab would normally go in the
control and the next will be shorter. So the two columns are not lined up. I
need to be able to adjust, programatically, the gap between the tab stops in
the rtf control.

Is that possible or is there another solution

Thanks and regards

Michael Bond

re: Setting tab stops in RTF control

"mabond" <mabond@discussions.microsoft.com> schrieb:[color=blue]
> My problem is that the 4 columns do not line up neatly in this method as
> the
> strings in any element of the array may be longer (or shorter) than that
> in
> the next element of the array. In some case the first index of the array
> element will be longer than where the first tab would normally go in the
> control and the next will be shorter. So the two columns are not lined up.
> I
> need to be able to adjust, programatically, the gap between the tab stops
> in
> the rtf control.[/color]

\\\
Private Sub Form1_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles MyBase.Load
Me.RichTextBox1.Text = _
"Hallo" & ControlChars.Tab & _
"Welt" & ControlChars.Tab & _
"Bla"
End Sub

Private Sub Button1_Click( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles Button1.Click
Me.RichTextBox1.SelectAll()
Me.RichTextBox1.SelectionTabs() = _
New Integer() {100, 200, 300}
End Sub
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

re: Setting tab stops in RTF control

Herfried

Much obliged. Perfect solution

Thanks

Michael Bond

"Herfried K. Wagner [MVP]" wrote:
[color=blue]
> "mabond" <mabond@discussions.microsoft.com> schrieb:[color=green]
> > My problem is that the 4 columns do not line up neatly in this method as
> > the
> > strings in any element of the array may be longer (or shorter) than that
> > in
> > the next element of the array. In some case the first index of the array
> > element will be longer than where the first tab would normally go in the
> > control and the next will be shorter. So the two columns are not lined up.
> > I
> > need to be able to adjust, programatically, the gap between the tab stops
> > in
> > the rtf control.[/color]
>
> \\\
> Private Sub Form1_Load( _
> ByVal sender As Object, _
> ByVal e As EventArgs _
> ) Handles MyBase.Load
> Me.RichTextBox1.Text = _
> "Hallo" & ControlChars.Tab & _
> "Welt" & ControlChars.Tab & _
> "Bla"
> End Sub
>
> Private Sub Button1_Click( _
> ByVal sender As Object, _
> ByVal e As EventArgs _
> ) Handles Button1.Click
> Me.RichTextBox1.SelectAll()
> Me.RichTextBox1.SelectionTabs() = _
> New Integer() {100, 200, 300}
> End Sub
> ///
>
> --
> M S Herfried K. Wagner
> M V P <URL:http://dotnet.mvps.org/>
> V B <URL:http://classicvb.org/petition/>
>
>[/color]

re: Setting tab stops in RTF control

"mabond" <mabond@discussions.microsoft.com> wrote in message
news:4F8D5445-22E6-4B55-963F-2515F9066E85@microsoft.com...[color=blue]
> Hi all
>
> I have an rtf control on my form. The control is populated with text from
> an
> string array created as the application runs. The code to populate the rtf
> control is as follows
>
> For l = 0 To arrayList.GetUpperBound(0)
> If arrayList(l, 0) Is Nothing Then
> 'do nothing
> Else
> output &= arrayList(l, 0) & vbTab & vbTab _
> & arrayList(l, 1) & vbTab _
> & arrayList(l, 2) & vbTab _
> & arrayList(l, 3) & vbCrLf
> End If
> Next
>
> RichTextBoxList.Text = output
>
>
> My problem is that the 4 columns do not line up neatly in this method as
> the
> strings in any element of the array may be longer (or shorter) than that
> in
> the next element of the array. In some case the first index of the array
> element will be longer than where the first tab would normally go in the
> control and the next will be shorter. So the two columns are not lined up.
> I
> need to be able to adjust, programatically, the gap between the tab stops
> in
> the rtf control.
>
> Is that possible or is there another solution
>
> Thanks and regards
>
> Michael Bond
>[/color]

I've dealt with that problem in the past by using a fixed-fount, such as
"Courier".

When I was dealing with it, the problem was that some fonts are designed
with
different widths for each character to make them more pleasing to the eye.

Ross