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

Новые блоги и статьи Все статьи Все блоги /
Эксперимент с картинкой-обложкой на CodinGame Adler 10.07.2026 Решил на днях провести эксперимент. У меня есть аккаунт на CodinGame, ТОП-3 по РФ среди 2200 участников (в разделе соревнования по программированию ИИ-ботов). Там есть обложка, куда можно влепить. . .	После бана на Пикабу не работает авторизация аккаунта с Яндекса. Hrethgir 09.07.2026 В частности https:/ / auto. ru/ logbook/ zapret-na-vozhdenie-posle-65-let_1cf28789-07b4-4c75-a2f7-4cd4edf9deeb тут хотел оставить комментарий такой Зрите в корень - монополизация на разработку программ. . .	GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude MaGz GoLd 08.07.2026 Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .	Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker) anaschu 07.07.2026 Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе kumehtar 06.07.2026 Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.	Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii. dcc0 05.07.2026 Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .	Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .

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

Опции темы