Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / RichTextBox почему снимает выделение другим цветом? / 4 сообщений из 4, страница 1 из 1
22.05.2013, 16:11
    #38268610
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RichTextBox почему снимает выделение другим цветом?
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Private Sub AddLog(Rich As Object, Tekst As String, Cvet As ColorConstants, NewStroka As Boolean)
Rich.SelStart = Len(Tekst)
Dim i As Integer
i = 0
i = Len(Rich.Text)

If NewStroka = True Then
    Rich.Text = Rich.Text & vbCrLf & Tekst
    Rich.SelStart = i + 1
Else
    Rich.Text = Rich.Text & Tekst
    Rich.SelStart = i
End If

Rich.SelLength = Len(Tekst)
Rich.SelColor = Cvet
Rich.SelLength = 0
End Sub



Если добавляю один раз (использую эту процедуру) то выделяет красным цветом, если добавляю второй раз и следующие то снимает выделение цветом то что было добавлено до этого. Подскажите в чем причина?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2013, 16:52
    #38268697
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RichTextBox почему снимает выделение другим цветом?
Так ты же его сам сбрасываешь:
Код: vbnet
1.
Rich.Text = Rich.Text
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2013, 16:54
    #38268708
Slash232
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RichTextBox почему снимает выделение другим цветом?
А как можно сделать чтобы не сбрасывал и добавлять при этом?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2013, 17:01
    #38268721
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RichTextBox почему снимает выделение другим цветом?
Читать хелп. Я вот не знал ответ на твой вопрос, однако нашел его в хелпе, ты мог сделать это сам
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub AddLog(Rich As Object, Tekst As String, Cvet As ColorConstants, NewStroka As Boolean)

Dim i As Integer
i = Len(Rich.Text)
Rich.SelStart = i
Rich.SelRTF = IIf(NewStroka, vbCrLf, "") & Tekst
Rich.SelStart = i
Rich.SelLength = Len(Rich.Text) - i
Rich.SelColor = Cvet
Rich.SelLength = 0

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / RichTextBox почему снимает выделение другим цветом? / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 140ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2156966]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 14ms
total:  140ms
x
x
Закрыть


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