Различное выравнивание текста в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.2 из 5
Похожие ответы