Закрасить определенное слово в тексте другим цветом

@Jason · Регистрация: 25.12.2011

Студворк — интернет-сервис помощи студентам

Можно ли изменить цвет определенного в txt или rich боксах?

@SergKr · 22.04.2012, 13:29

В TextBox только весь можно, а в RichTextBox можно поменять цвет любого отдельного куска.

@Jason · 22.04.2012, 14:54 **[ТС]**

Вот как ртб поменять "цвет любого отдельного куска"?

@SuPeR XaKer · 22.04.2012, 15:09

Если не ошибаюсь то так:

VB.NET

1
2
3

RichTextBox1.SelectionStart = 5
RichTextBox1.SelectionLength = 2
RichTextBox1.SelectionColor = Color.DarkBlue

@SergKr · 22.04.2012, 17:40

Через кнопку и Colorialog -

VB.NET

 ColorDlg.Color = txtBox.SelectionColor
        ColorDlg.FullOpen = True
        ColorDlg.ShowDialog()
        txtBox.SelectionColor = ColorDlg.Color

@Jason · 22.04.2012, 18:57 **[ТС]**

А можно ли сделать так, если в РТБ есть определенное слово то он бы его автоматически выделял.

@SergKr · 22.04.2012, 21:36

Hennasy, почему нет? или через таймер или пи вводе символа проверять на наличие слова и если такое слово есть - выделить его цветом.

@ZuMiks · 22.04.2012, 21:45

VB.NET

Dim Se As Long
        Se = RichTextBox1.Find("Текст")
        If Se >= 0 Then
            RichTextBox1.SelectionStart = Se
            RichTextBox1.SelectionColor = Color.Blue
        End If

@Akiva · 22.04.2012, 23:50

Привет, 'Hennasy'
Создайте Sub Form_Load ' Впишите код
txt1.HideSelection = false ' чтобы намеченное в txt1
не исчезло
..... и код в...

VB.NET

FontDialog1.ShowColor = True
              FontDialog1.ShowDialog()        'установите DialogFont и DialogColor!
              txt1.SelectionFont = FontDialog1.Font
              txt1.SelectionColor = FontDialog1.Color

С уважением, Akiva

@ZuMiks · 23.04.2012, 00:18

Сообщение от ZuMiks

VB.NET

Dim Se As Long
        Se = RichTextBox1.Find("Текст")
        If Se >= 0 Then
            RichTextBox1.SelectionStart = Se
            RichTextBox1.SelectionColor = Color.Blue
        End If

А лучше вот так:

VB.NET

        RichTextBox1.HideSelection = False
        Dim Se As Long
        Se = RichTextBox1.Find("Текст")
        If Se >= 0 Then
            RichTextBox1.SelectionStart = Se
        End If

@Akiva · 23.04.2012, 00:27

.....но, всякие выборочные украшения в тексте
как: подчеркивание,шрифт,цвет - только после того
как Вы полностью напишете набранный текст.
У меня - так.

@Jason 525 / 487 / 98 Регистрация: 25.12.2011 Сообщений: 1,176
		1
	Закрасить определенное слово в тексте другим цветом 21.04.2012, 22:35. Показов 2503. Ответов 10 Метки нет (Все метки) Можно ли изменить цвет определенного в txt или rich боксах? 0

@SergKr 67 / 41 / 3 Регистрация: 07.12.2010 Сообщений: 328
	22.04.2012, 13:29	2
	В TextBox только весь можно, а в RichTextBox можно поменять цвет любого отдельного куска. 0

@Jason 525 / 487 / 98 Регистрация: 25.12.2011 Сообщений: 1,176
	22.04.2012, 14:54 [ТС]	3
	Вот как ртб поменять "цвет любого отдельного куска"? 0

@Jason 525 / 487 / 98 Регистрация: 25.12.2011 Сообщений: 1,176
	22.04.2012, 18:57 [ТС]	6
	А можно ли сделать так, если в РТБ есть определенное слово то он бы его автоматически выделял. 0

@SergKr 67 / 41 / 3 Регистрация: 07.12.2010 Сообщений: 328
	22.04.2012, 21:36	7
	Hennasy, почему нет? или через таймер или пи вводе символа проверять на наличие слова и если такое слово есть - выделить его цветом. 0

@Akiva 20 / 20 / 0 Регистрация: 05.07.2011 Сообщений: 134
	23.04.2012, 00:27	11
	.....но, всякие выборочные украшения в тексте как: подчеркивание,шрифт,цвет - только после того как Вы полностью напишете набранный текст. У меня - так. 0

Опции темы