Re: RTF Bullet problem! Please Help!!!

From: garryo (anonymous_at_discussions.microsoft.com)
Date: 05/04/04


Date: Mon, 3 May 2004 19:06:02 -0700

MikeD that solution does not work
Adhimas I am having similar problems, once I have Bullets in this control

Each time the TextRTF property gets assigned the extra characters get added
In this example of this wierd action add a rtfControl named rtfDisplay

On the form click set the TextRTF property = to itself, each click of the form adds extra characters

Got me stumped - anyone know a sloution ??
cheers in Advance
Garry

Private Sub Form_Load()
With rtfDisplay
.Text = ""
.SelText = "Loading bullets" & vbCrLf
.SelBullet = True
.SelText = "Test This" & vbCrLf
.SelText = "Test That" & vbCrLf
.SelText = "Test The Other" & vbCrLf
.SelBullet = False
.SelText = "Out of bullets" & vbCrLf
End With

End Sub

Private Sub Form_Click()
    rtfDisplay.TextRTF = rtfDisplay.TextRTF
End Sub