2014-06-26 46 views

回答

2

設置在RichTextBox的文字...

RichTextBox1.Text = "I'm noob in Stackoverflow" 
    RichTextBox1.Select(5, 4) 
    RichTextBox1.SelectionFont = _ 
     New Font(RichTextBox1.SelectionFont.Name, _ 
     RichTextBox1.SelectionFont.Size, FontStyle.Strikeout) 

並測試其字體一些文字...

RichTextBox1.Select(5, 4) 
    Dim FNT As Font = RichTextBox1.SelectionFont 
    Dim IsStrikout As Boolean = FNT.Strikeout 
+0

謝謝...如果我需要在我的所有文本中都這樣做...我必須使用fors和ifs來分析我所有的句子,不要我 – user3780973

相關問題