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

27.04.2011, 00:05. **Показов** 2101. **Ответов** 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): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

rolandas

	как сделать разноцветные символы выводимые на одном Label 27.04.2011, 00:05. Показов 2101. Ответов 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