1 было другим цветом
Помогите...
Пример:
Private Sub Command1_Click()
text1.text=text1.text+"1"
как сделать так чтобы 1 было другим цветом ну на пример синим.
Пример:
Private Sub Command1_Click()
text1.text=text1.text+"1"
как сделать так чтобы 1 было другим цветом ну на пример синим.
Помоему можно так:
5 - это синий цвет
Код:
Selection.Font.ColorIndex = 5
5 - это синий цвет
если хочешь текст разного цвета, то textbox'ом этого не добьёшься. используй Mocrosoft Rich TextBox. вот это действительно вещь!
[QUOTE=ace lighting]если хочешь текст разного цвета, то textbox'ом этого не добьёшься. используй Mocrosoft Rich TextBox. вот это действительно вещь![/QUOTE]
Сделать как...:(
Сделать как...:(
А мошет api есть
[QUOTE=ВуД™]Помогите...
Пример:
Private Sub Command1_Click()
text1.text=text1.text+"1"
как сделать так чтобы 1 было другим цветом ну на пример синим.[/QUOTE]
ace lighting прав.
Пример:
Private Sub Command1_Click()
text1.text=text1.text+"1"
как сделать так чтобы 1 было другим цветом ну на пример синим.[/QUOTE]
ace lighting прав.
[QUOTE=Bard]ace lighting прав.[/QUOTE]
Это не тот исходник:mad:
Мне надо чтобы принажатии на кнопку чтобы 1 было синим цветом
Это не тот исходник:mad:
Мне надо чтобы принажатии на кнопку чтобы 1 было синим цветом
а чем тебе он не нравится то!
[QUOTE=ace lighting]а чем тебе он не нравится то![/QUOTE]
Еще раз обесняю мне нужно нажать на кнопку и чтобы в тексте 1 было не черным цветом а синим:confused:
Еще раз обесняю мне нужно нажать на кнопку и чтобы в тексте 1 было не черным цветом а синим:confused:
Код:
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '← синий цвет
RichTextBox1.SelText = "1" '← один, други цветом
End Sub
RichTextBox1.SelColor = RGB(19, 50, 255) '← синий цвет
RichTextBox1.SelText = "1" '← один, други цветом
End Sub
стоит только немножечко вдуматься и всё получиться:)
[QUOTE=Bard]
[/QUOTE]
Все равно не то, когда я нажимаю кнопку 1 синим и когда начинаю печатать то и текст начинается пеать синим
Код:
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '← синий цвет
RichTextBox1.SelText = "1" '← один, други цветом
End Sub
RichTextBox1.SelColor = RGB(19, 50, 255) '← синий цвет
RichTextBox1.SelText = "1" '← один, други цветом
End Sub
Все равно не то, когда я нажимаю кнопку 1 синим и когда начинаю печатать то и текст начинается пеать синим
я на тебя удивляюсь!
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '< синий цвет
RichTextBox1.SelText = "1" '< один, други цветом
RichTextBox1.SelColor = RGB(19, 50, 100) ' < возвращает цвет обратно
End Sub
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '< синий цвет
RichTextBox1.SelText = "1" '< один, други цветом
RichTextBox1.SelColor = RGB(19, 50, 100) ' < возвращает цвет обратно
End Sub
[QUOTE=ace lighting]я на тебя удивляюсь!
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '< синий цвет
RichTextBox1.SelText = "1" '< один, други цветом
RichTextBox1.SelColor = RGB(19, 50, 100) ' < возвращает цвет обратно
End Sub[/QUOTE]
Это я уже сделал, а вот как сделать когда печатаешь или копируешь 1 выделялось синим цветом
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(19, 50, 255) '< синий цвет
RichTextBox1.SelText = "1" '< один, други цветом
RichTextBox1.SelColor = RGB(19, 50, 100) ' < возвращает цвет обратно
End Sub[/QUOTE]
Это я уже сделал, а вот как сделать когда печатаешь или копируешь 1 выделялось синим цветом
Написать собственный Edit!