Подсчитать количество символов в 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 & " символов."
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д