Изменить цвет 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

Новые блоги и статьи Все статьи Все блоги /
сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .	сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .
10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .	сукцессия 9. Математика подлости: как растения предали грибных друзей anaschu 27.06.2026 Статья 2. Глобальная фосфорная война: эволюционно-экономические механизмы распределения биомов Земли Введение: Экологический рынок как игра с нулевой суммой Традиционная экология долгое время. . .	сукцессия 8. Как я спорил с ИИ, которые - агенты растений и ненавистники грибов! anaschu 27.06.2026 Статья 1. Хроники грибного восстания: как Сократов диалог разрушил академические догмы ИИ Введение: Синдром «цифрового учебника» Современные большие языковые модели (LLM) обладают колоссальным. . .	Главный вопрос моделирования сукцессии anaschu 27.06.2026 главный вопрос. Если эктомикориза лучше добывает недоступный фосфор. И ее масса максимальна из всех. А широколиственный лес тоже имеет самую крутую биомассу. То почему не возникло их симбиоза? Это. . .

@The trick Модератор 10060 / 3905 / 885 Регистрация: 22.02.2013 Сообщений: 5,854 Записей в блоге: 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