Richtextbox problem about SelBold
Posted on 2006-03-20
Hi, the resulting text supposed to be
Text is <b>Highlighted</b> No Highlighted
(<b>..</b> is the portion that bold)
But the result appeared to be nothing is bold, what is the problem?
Followed is the code: (rtf is the name of richtextbox)
Private Sub Command1_Click()
Dim iStart As Integer
rtf.Text = "Text is "
iStart = Len(rtf.Text)
rtf.Text = rtf.Text & "Highlighted"
rtf.SelStart = iStart
rtf.SelLength = Len(rtf.Text) - iStart
rtf.SelBold = True
rtf.Text = rtf.Text & " No Highlighted"