rtb = New RichTextBox rtb.Rtf = My.Computer.Clipboard.GetText(TextDataFormat.Rtf) Dim linesCount As Integer = rtb.Lines.Count For i = 0 To linesCount - 1 Dim start As Integer = rtb.GetFirstCharIndexFromLine(i) Dim currLine As Integer = rtb.GetLineFromCharIndex(start) Dim currLineText As String = rtb.Lines(currLine) Dim length As Integer = currLineText.Length rtb.Select(start, length) Debug.Print(rtb.SelectedText) Next
Form11.RichTextBox1.Rtf = My.Computer.Clipboard.GetText(TextDataFormat.Rtf) Dim linesCount As Integer = Form11.RichTextBox1.Lines.Count For i = 0 To linesCount - 1 Dim start As Integer = Form11.RichTextBox1.GetFirstCharIndexFromLine(i) Dim currLine As Integer = Form11.RichTextBox1.GetLineFromCharIndex(start) Dim currLineText As String = Form11.RichTextBox1.Lines(currLine) Dim length As Integer = currLineText.Length Form11.RichTextBox1.Select(start, length) Debug.Print(Form11.RichTextBox1.SelectedText) Next
rtb.Width
RichTextBox1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)