Различное выравнивание текста в RichTextBox - VB
Формулировка задачи:
Доброго времени суток, знатоки!
Помогите, пожалуйста, решить следующую задачку.
Есть RichTextBox, в котором находятся 4 строки текста, разделенного пустыми строками. Т.е. всего строк 7. Все строки выровнены по левому краю. Содержание строк, как и их длина, могут быть произвольными и заранее не известны.
Есть кнопка, при нажатии на которую первая строка текста должна выровняться по центру, вторая - по правому краю, треть - по центру и четвертая - по правому краю.
Как это можно сделать? (У меня при использовании RichTextBox.SelAlignment = rtfCenter или RichTextBox.SelAlignment = rtfRight все выравнивается или по центру или по правому краю.)
Спасибо.
Решение задачи: «Различное выравнивание текста в RichTextBox»
textual
Листинг программы
Private Sub Command1_Click() Dim myArr() As String myArr = Split(RichTextBox1.Text, vbCrLf) If UBound(myArr) < 6 Then MsgBox "Недостаточно строк для выполнения задания!", vbCritical, "": Exit Sub alignment myArr(0), rtfCenter alignment myArr(2), rtfRight alignment myArr(4), rtfCenter alignment myArr(6), rtfRight End Sub Private Sub alignment(myStr As String, myConst As String) RichTextBox1.SelStart = InStr(RichTextBox1.Text, myStr) RichTextBox1.SelLength = Len(myStr) RichTextBox1.SelAlignment = myConst End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д