Построчное выравнивание текста в RichTextBox

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Построчное выравнивание текста в RichTextBox

Сообщение VERITAS » 16.06.2005 (Чт) 10:21

subj
No comments ...

VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Сообщение VERITAS » 16.06.2005 (Чт) 10:49

Единственно что я смог найти, токо я с этим не могу разобраться???
    Control.Text - свойство
    Возвращает или задает текст, связанный с данным элементом управления.

    [Visual Basic]
    Public Overridable Property Text As String

    Значение свойства
    Текст, связанный с данным элементом управления.

    Примечания
    Свойство Text элемента управления по-разному используется каждым производным классом. Например, свойство Text формы Form выводится в заголовке вверху формы, содержит небольшое количество знаков и, как правило, отображает имя приложения или документа. Однако свойство Text текстового поля RichTextBox может быть большим и включать в себя многочисленные невидимые знаки, применяемые для форматирования текста. Например, отображаемый в RichTextBox текст можно отформатировать, настроив свойства Font либо добавив пробелы или знаки табуляции для выравнивания текста.

    Примечания для наследующих объектов: При переопределении свойства Text в производном классе для расширения основной реализации используется свойство базового класса Text. В противном случае необходимо разработать всю реализацию. Не требуется переопределять оба средства доступа — get и set — для свойства Text; при необходимости можно переопределить только одно средство.

    Пример
    [Visual Basic] В следующем примере создается GroupBox и устанавливаются некоторые его основные свойства. В примере создается TextBox и его Location задается внутри области группы. Затем задается свойство Text области группы, область группы прикрепляется к верху формы. После этого он область группы отключается путем установки для свойства Enabled значения false, что приводит к отключению всех элементов управления, содержащихся в области группы.

    [Visual Basic]

    ' Add a GroupBox to a form and set some of its common properties.
    Private Sub AddMyGroupBox()
    ' Create a GroupBox and add a TextBox to it.
    Dim groupBox1 As New GroupBox()
    Dim textBox1 As New TextBox()
    textBox1.Location = New Point(15, 15)
    groupBox1.Controls.Add(textBox1)

    ' Set the Text and Dock properties of the GroupBox.
    groupBox1.Text = "MyGroupBox"
    groupBox1.Dock = DockStyle.Top

    ' Disable the GroupBox (which disables all its child controls)
    groupBox1.Enabled = False

    ' Add the Groupbox to the form.
    Me.Controls.Add(groupBox1)
    End Sub

No comments ...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 16.06.2005 (Чт) 16:58

и какая связь вопроса с тем что ты надыбал?
Весь мир матрица, а мы в нем потоки байтов!

Александр80
Bonachón
Bonachón
 
Сообщения: 659
Зарегистрирован: 20.03.2004 (Сб) 23:50
Откуда: г.Москва

Сообщение Александр80 » 16.06.2005 (Чт) 22:58

:roll:

VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Сообщение VERITAS » 17.06.2005 (Пт) 10:28

НУ типа этот пример показывает как привязать новые свойства текстовому полю RichTextBox

Возможно я ошибаюсь - Rndex искал :roll:
No comments ...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 17.06.2005 (Пт) 17:06

я так понимаю, что надо неким образом выравнять текст в RichTextBox?

или что?
Весь мир матрица, а мы в нем потоки байтов!

VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Сообщение VERITAS » 17.06.2005 (Пт) 18:05

да именно это и надо, остальное научился делать
No comments ...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 17.06.2005 (Пт) 18:36

если выровнять по центру, по левому краю или по правому, то есть свойство Alignment

а если по ширине окна, то это ручками - изменять ширину пробелов и так далее. в MSDN что то подобное есть - искать надо
Весь мир матрица, а мы в нем потоки байтов!

VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Сообщение VERITAS » 17.06.2005 (Пт) 20:43

!Viper! прости меня, но я не "тупой". Меня интересует именно построчное выравнивание текста. Например как в Worde

Токо без обид, немного сложноватый вопрос для меня :wink:
No comments ...

cg_ck
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 118
Зарегистрирован: 11.06.2003 (Ср) 12:02
Откуда: Riga(Latvia)

Сообщение cg_ck » 18.06.2005 (Сб) 2:26

Здравствуй. Тебе нужно выровнять отдельно каждую строку независимо?(тоесть каждую строку, в которой находится указатель) или Абзац, в котором этот указатель расположен?

А вообще сделай проще:
File=> New Project => VBAplication Wizard => next=> next=>next=>next=>Finish=>Ok

А там найдёшь ответы на все свои вопросы.
Ходит по лесу хомяк, хищный маленький дурак...

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Сообщение Ruslan Demidow » 18.06.2005 (Сб) 9:23

VERITAS , может быть тебе это нужно?
Код: Выделить всё

'обработка нажатий кнопок на тулбаре
'..... некоторый код
Case "LeftAlign" 'выровнять по левому краю
            With RTBedit
                    .SelAlignment = 0
            End With
        Case "CenterAlign" 'выровнять по центру
            With RTBedit
                    .SelAlignment = 2
            End With
        Case "RightAlign" 'выровнять по правому краю
            With RTBedit
                    .SelAlignment = 1
            End With
    End Select
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

VERITAS
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 212
Зарегистрирован: 12.12.2004 (Вс) 20:31

Сообщение VERITAS » 18.06.2005 (Сб) 12:17

cg_ck Удивлен, блин никогда бы не догадался :shock: :shock:

Big Thanks !!! :!: !!!
No comments ...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 23.06.2005 (Чт) 17:28

Это действительно сложно! К сожалению готовой функции или свойства нет.

Примерный алгоритм:

1. определяешь необходимую тебе ширину. допустим W0
2. далее проверяешь ширину сначала первого слова текста, потом первого+второго и так далее, пока их совместная ширина не становится большей величине или равной W0.
3. Если ширина больше, то последнее слово отбрасываешь, а в полученную строку добавляешь необходимое количество пробелов.

и так далее до конца текста
Весь мир матрица, а мы в нем потоки байтов!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 174

    TopList