powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод лога в RichTextBox
5 сообщений из 5, страница 1 из 1
Вывод лога в RichTextBox
    #36112797
tudimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброе время суток.
Помогите, плз, разобраться.
На форме проги добавил RichTextBox, в который хочу выводить результаты выполнения операций программы.
Например, строка с успешным выполнением должна быть зеленого цвета, с ошибками красного...

написал процедуру добавления строки в LogBox:
[src vba]
Public Sub AddMsg(ByVal str As String, ByVal color As System.Drawing.Color)

Dim str1 As String = str & vbNewLine ' сформируем новую строку
Me.LogBox.SelectionStart = Me.LogBox.Text.Length
Me.LogBox.Text = Me.LogBox.Text & str1
Me.LogBox.SelectionLength = str1.Length
Me.LogBox.SelectionColor = color

' Прокрутим техт-бох
Me.LogBox.SelectionStart = Me.LogBox.Text.Length
Me.LogBox.ScrollToCaret()
End Sub
[/src vba]

однако, текст меняет свой цвет "непонятно как" - часть текста менят цвет на заданный в прошлый раз, часть на текущий
...
Рейтинг: 0 / 0
Вывод лога в RichTextBox
    #36112805
tudimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub AddMsg(ByVal str As String, ByVal color As System.Drawing.Color)

Dim str1 As String = str & vbNewLine ' сформируем новую строку
Me.LogBox.SelectionStart = Me.LogBox.Text.Length
Me.LogBox.Text = Me.LogBox.Text & str1
Me.LogBox.SelectionLength = str1.Length
Me.LogBox.SelectionColor = color

' Прокрутим техт-бох
Me.LogBox.SelectionStart = Me.LogBox.Text.Length
Me.LogBox.ScrollToCaret()
End Sub
вот так лучше :[
...
Рейтинг: 0 / 0
Вывод лога в RichTextBox
    #36112812
tudimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Забыл указать – пишу на .NET Framework 2.0

тяжелое утро
...
Рейтинг: 0 / 0
Вывод лога в RichTextBox
    #36114151
Ivan TB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Public Sub AddMsg(ByVal str As String, ByVal color As System.Drawing.Color)
        Dim str1 As String = str & vbNewLine ' сформируем новую строку
        Me.LogBox.AppendText(str1)
        Me.LogBox.SelectionStart = Me.LogBox.Text.Length - str1.Length +  1 
        Me.LogBox.SelectionLength = str1.Length
        Me.LogBox.SelectionColor = color

        ' Прокрутим техт-бох
        Me.LogBox.SelectionStart = Me.LogBox.Text.Length
        Me.LogBox.ScrollToCaret()
    End Sub
...
Рейтинг: 0 / 0
Вывод лога в RichTextBox
    #36114398
tudimon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ivan TB, спасибо - это то что надо :)
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод лога в RichTextBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]