Подсчитать количество символов в 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
Похожие ответы