Изменить цвет Label на выбранный в ComboBox

@rasenk · Регистрация: 14.10.2012

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

Добрый вечер!
Подскажите пожалуйста, что я делаю неправильно? Задача: при выборе итема с названием цвета окрашивать лейбл "color" - в красный цвет? Можно использовать не лейбл, а любое другое окошко.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
Combobox.AddItem "Red", 0
Combobox.AddItem "Blue", 1
Combobox.AddItem "White", 2
Combobox.AddItem "Yellow", 3
Combobox.AddItem "Green", 4
 
Select Case Combobox.Text
  Case "Red"
    Color.BackColor = System.Drawing.Color.Red
  Case "Blue"
    Color.BackColor = System.Drawing.Color.Blue
    Case "White"
    Color.BackColor = System.Drawing.Color.White
    Case "Yellow"
    Color.BackColor = System.Drawing.Color.Yellow
Case "Green"
   Color.BackColor = System.Drawing.Color.Green
End Select
   End Sub

@The trick · 14.01.2014, 01:54

Там в функции DrawItem все что угодно можно рисовать, не только "квадратики", теже иконки можно.

Не по теме:

Кстати про кривой пример, про который я тебе говорил, я этот имел ввиду с ComboBoxEx. Для твоей задачи он не пойдет, т.к. оперирует с картинками, а тебе надо с цветами

@Антихакер32 · 14.01.2014, 02:00

Посмотрел, молодец, спасибо, и в блоге меня упомянул )

твой проект то что надо для создания цветов, я очень рад

Добавлено через 3 минуты
Теперь закопаюсь на неделю в програмирование, есть с чем поработать...

@Антихакер32 · 14.01.2014, 20:47

The Trick, Подскажи что за символы вылазиют

после слов Red / Yellow ... и тд
можно ли избавиться

ниже проект ColCombo

@Антихакер32 · 14.01.2014, 20:50

Не по теме:

При малейшей попытке чтото приостановить и отследить, среда вылетает

@The trick · 14.01.2014, 21:32

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

после слов Red / Yellow ... и тд
можно ли избавиться

Visual Basic
1
2
3
4
5
6
        If l Then
            s = Space(l + 1)
            l = SendMessage(drw.hwndItem, CB_GETLBTEXT, drw.itemID, ByVal s)
            s = Left(s, l)
            drw.rcItem.Left = drw.rcItem.Left + 78
        End If

Новые блоги и статьи Все статьи Все блоги /
Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .

@The trick Модератор 10069 / 3914 / 886 Регистрация: 22.02.2013 Сообщений: 5,863 Записей в блоге: 79
	14.01.2014, 01:54
	Там в функции DrawItem все что угодно можно рисовать, не только "квадратики", теже иконки можно. Не по теме: Кстати про кривой пример, про который я тебе говорил, я этот имел ввиду с ComboBoxEx. Для твоей задачи он не пойдет, т.к. оперирует с картинками, а тебе надо с цветами 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	14.01.2014, 02:00
	Посмотрел, молодец, спасибо, и в блоге меня упомянул ) твой проект то что надо для создания цветов, я очень рад Добавлено через 3 минуты Теперь закопаюсь на неделю в програмирование, есть с чем поработать... 1

@Антихакер32
	14.01.2014, 20:50
	Не по теме: При малейшей попытке чтото приостановить и отследить, среда вылетает 0