как сделать разноцветные символы выводимые на одном Label

27.04.2011, 00:05. **Показов** 2103. **Ответов** 1

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

вот программа:

Dim e, h As String
Dim e2, e3, e4, e5, e6, e7, e8, e9 As String
Dim m(10) As String
Dim a, b, g As Integer

Private Sub Command1_Click()
Label1 = ""

e1 = m(0)
e2 = m(1)
e3 = m(2)
e4 = m(3)
e5 = m(4)
e6 = m(5)
e7 = m(6)
e8 = m(7)
e9 = m(8)

Randomize Timer:
a = Int(Rnd * 4) + 1
e = Str(a)

Label1 = a ' counter
b = b + 1 ' counter
Label2 = b ' counter

m(0) = e
m(1) = e1
m(2) = e2
m(3) = e3
m(4) = e4
m(5) = e5
m(6) = e6
m(7) = e7
m(8) = e8
m(9) = e9

h = ""
For g = 0 To 10
h = h + m(g)
Next g
Label3 = h

End Sub

Private Sub Command2_Click()
Label2 = "0"
Label3 = ""
Label1 = ""
b = 0

For g = 0 To 10
m(g) = ""
Next g

End Sub

Private Sub Form_Load()
Label2 = "0"

End Sub

вот как сделать штоб в одном Label3 выводимый текст - цыфры были разноцветными.

можно с двухмерном масивом, штоб вводть каждому символу отдельное значение цвета, но как вывести в Label3 ?

@Virtuallab · 20.07.2011, 06:42

В одном Лэйбле это невозможно.
1. Либо массив Лэйблов под каждую букву с автосайзом и label3(i). left =label3(i-1).left+label3(i-1).width. На форме в конструкторе будет только Label3(0), т.е., его index=0, под первую букву. Остальные будешь в цикле подгружать: Load Label3(i): Label3(i).visible=True, задавать цвет и букву присваивать Кэпшину.
2. Либо писать в PictureBox, а не в Label.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

rolandas

	как сделать разноцветные символы выводимые на одном Label 27.04.2011, 00:05. Показов 2103. Ответов 1 Метки нет (Все метки) вот программа: Dim e, h As String Dim e2, e3, e4, e5, e6, e7, e8, e9 As String Dim m(10) As String Dim a, b, g As Integer Private Sub Command1_Click() Label1 = "" e1 = m(0) e2 = m(1) e3 = m(2) e4 = m(3) e5 = m(4) e6 = m(5) e7 = m(6) e8 = m(7) e9 = m(8) Randomize Timer: a = Int(Rnd * 4) + 1 e = Str(a) Label1 = a ' counter b = b + 1 ' counter Label2 = b ' counter m(0) = e m(1) = e1 m(2) = e2 m(3) = e3 m(4) = e4 m(5) = e5 m(6) = e6 m(7) = e7 m(8) = e8 m(9) = e9 h = "" For g = 0 To 10 h = h + m(g) Next g Label3 = h End Sub Private Sub Command2_Click() Label2 = "0" Label3 = "" Label1 = "" b = 0 For g = 0 To 10 m(g) = "" Next g End Sub Private Sub Form_Load() Label2 = "0" End Sub вот как сделать штоб в одном Label3 выводимый текст - цыфры были разноцветными. можно с двухмерном масивом, штоб вводть каждому символу отдельное значение цвета, но как вывести в Label3 ?

@Virtuallab 1 / 1 / 1 Регистрация: 19.07.2011 Сообщений: 24
	20.07.2011, 06:42
	В одном Лэйбле это невозможно. 1. Либо массив Лэйблов под каждую букву с автосайзом и label3(i). left =label3(i-1).left+label3(i-1).width. На форме в конструкторе будет только Label3(0), т.е., его index=0, под первую букву. Остальные будешь в цикле подгружать: Load Label3(i): Label3(i).visible=True, задавать цвет и букву присваивать Кэпшину. 2. Либо писать в PictureBox, а не в Label. 0

Опции темы