Преобразование символов в RichTextBox - VB
Формулировка задачи:
Доброго здоровья, люди!
Помогите, пожалуйста. Как при нажатии на кнопку преобразовать часть текста в RichTextBox в заглавные буквы, а потом вернуть обратно (аналог UCase и LCase для TextBox)?
Спасибо.
Решение задачи: «Преобразование символов в RichTextBox»
textual
Листинг программы
- If RichTextBox1.SelLength Then ' если что-то выделено
- RichTextBox1.Text = Left$(RichTextBox1.Text, RichTextBox1.SelStart) & _
- UCase$(Mid$(RichTextBox1.Text, RichTextBox1.SelStart+1, RichTextBox1.SelLength)) & _
- Mid$(RichTextBox1.Text, RichTextBox1.SelStart+RichTextBox1.SelLength+1)
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
