Подсчитать количество символов в RichTextBox - VB

Формулировка задачи:

Всем доброго дня! Подскажите, пожалуйста, есть задача. На форме: RichTextBox1, Command1 и Command2. В RichTextBox1 вводятся несколько строк текста. Курсор мышкой ставится в произвольное место любой строки. Как при нажатии Command1 определить количество символов от начала строки до курсора, а при нажатии Command2 от начала всего текста до курсора? Спасибо.

Решение задачи: «Подсчитать количество символов в RichTextBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim sText$, i&
sText = Left$(RichTextBox1.Text, RichTextBox1.SelStart)
i = InStrRev(sText, vbCrLf)
If i>0 Then
    i = Len(sText) - i - 1
Else
    i = Len(sText)
End If
MsgBox "До начала текста " & Len(sText) & " символов." & vbCrLf & _
       "До начала строки " & i & " символов."

Оцени полезность:

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы