richtextbox

Question

帮帮忙
我想实现更改richtextbox光标所在行的字体属性
如何实现

Answer 1

Private Sub Command1_Click()
    Debug.Print RichTextBox1.SelFontName
    Debug.Print RichTextBox1.SelFontSize
    Debug.Print RichTextBox1.SelColor
    Debug.Print RichTextBox1.SelAlignment
    Debug.Print RichTextBox1.SelBold
    '........
End Sub

Answer 2

我想实现 更改 richtextbox光标所在行的字体属性
比如光标在第二行,此时按command按钮,richtextbox文本框中第二行文字的字体变为粗体.
帮帮忙.谢谢.

Answer 3

我也有关于richtextbox得问题多行文本 自动换行后第二行自动缩进显示 
我得帖子http://community.csdn.net/Expert/topic/5075/5075503.xml?temp=.5513727开心海 进呀 谢谢

Answer 4

Private Sub Command1_Click()
    Dim n1 As Long, n2 As Long
    n1 = InStrRev(RichTextBox1.Text, vbCrLf, RichTextBox1.SelStart)
    n2 = InStr(RichTextBox1.SelStart, RichTextBox1.Text, vbCrLf)
    RichTextBox1.SelStart = n1 + 1
    RichTextBox1.SelLength = n2 - n1
    RichTextBox1.SelBold = True
End Sub这可能是一个比较笨的方法，你试试行不行