Работа с цветами

@mega2411 · Регистрация: 26.05.2012

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

доброго времени суток. столкнулся с проблемой. создал объект. для каждого Checkbox'а прописал код со своим цветом

VB.NET
1
2
3
4
5
6
7
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If sender.Checked = True Then
            Label1.BackColor = Color.DarkOrange
        Else
            Label1.BackColor = BackColor
        End If
    End Sub

если включены два из трех, label подсвечен цветом последнего включенного. если убрать одну галочку, то label становится серым. как сделать так что бы оставался цвет последнего checkbox'a.

@LMM · 12.05.2013, 23:27

mega2411, А почему нельзя использовать RadioButton? Ведь по идее, если отмечены 2 CheckBox (скажем красный и синий), то должен получиться зеленый, но не как ни красный или синий (какой последний отмечен).
А вообще, у тебя же в коде написано, что если галку снять, то вернуть Лейблу цвет BackColor.
А что бы такого не происходило...ммм... я хз, придется прописать все варианты чекнутых и не чекнутых боксов, что бы все получилось и привязать их к одной процедуре. Ну или еще как сделать, я правда хз как.

@mega2411 · 13.05.2013, 08:47 **[ТС]**

вот именно снимаю галку и лейбл становится серым в цвет фона

@Nachrichter · 13.05.2013, 11:38

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

...снимаю галку и лейбл становится серым в цвет фона

mega2411, так Вам же ответили по этому вопросу:

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

А вообще, у тебя же в коде написано, что если галку снять, то вернуть Лейблу цвет BackColor.

Проверяйте, не чекнут ли другой CheckBox.

@LMM · 13.05.2013, 18:44

mega2411, Я честно хз как такое реализовать с CheckBox-ами, с RadioButton все просто, функция будет выглядеть так.

VB.NET
1
2
3
4
5
6
7
8
9
 Private Sub Change_Color() Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged
        If RadioButton1.Checked = True Then
            Label1.ForeColor = Color.Green
        ElseIf RadioButton2.Checked = True Then
            Label1.ForeColor = Color.Red
        ElseIf RadioButton3.Checked = True Then
            Label1.ForeColor = Color.Yellow
        End If
    End Sub

А что бы с ChekBox-ами такое провернуть, тебе придется писать геморное условие и проверять ChekBox-ы... хотя честно я сомневаюсь что такое получится. Разве что проверить всю форму на controls среди них найти CheckBox, потом проверить сколько из них имеют статус check, потом, выяснив что чекнуты скажем 1 и 3 сравнить их 1 < 3 значит выставить цвет 3-го Checkbox3. Но оно тебе так сильно надо?

@mega2411 · 13.05.2013, 19:18 **[ТС]**

спасибо, разобрался уже, сделал.

надо, очень

@LMM · 13.05.2013, 20:46

mega2411, Ммм а как разобрался, что сделал, глюки есть?

@mega2411 · 13.05.2013, 20:55 **[ТС]**

сделал так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If sender.Checked = True Then
            Label1.BackColor = Color.DarkOrange
        Else
            Label1.BackColor = BackColor
        End If
    End Sub
 
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If sender.Checked = True And CheckBox1.Checked = True And CheckBox3.Checked = True Then
            Label1.BackColor = Color.Green
        ElseIf sender.Checked = True And CheckBox1.Checked = True Then
            Label1.BackColor = Color.Yellow
        ElseIf CheckBox3.Checked = False Then
            Label1.BackColor = Color.DarkOrange
        ElseIf sender.Checked = False And CheckBox3.Checked = True Then
            Label1.BackColor = Color.Red
        End If
    End Sub
 
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
        If sender.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then
            Label1.BackColor = Color.Green
        ElseIf sender.Checked = True And CheckBox1.Checked = True Then
            Label1.BackColor = Color.Red
        ElseIf CheckBox2.Checked = False Then
            Label1.BackColor = Color.DarkOrange
        ElseIf sender.Checked = False And CheckBox2.Checked = True Then
            Label1.BackColor = Color.Yellow
        End If
    End Sub

по крайней мере как мне нужно было для программы

@LMM · 15.05.2013, 21:22

mega2411, У меня так и не получилось более элегантного решения Вашей проблемы, кроме той, что Вы уже сделали. Единственное, что я могу Вам еще посоветовать это сократить код (мб на будущее пригодится). А сократить Ваш код можно вот так:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
Private Sub color_change(sender As Jbject, e As EbentArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged
        If sender.Checked = True And CheckBox1.Checked = True And CheckBox2.Checked = True Then
            Label1.BackColor = Color.Green
        ElseIf sender.Checked = True And CheckBox1.Checked = True Then
            Label1.BackColor = Color.Red
        ElseIf CheckBox2.Checked = False Then
            Label1.BackColor = Color.DarkOrange
        ElseIf sender.Checked = False And CheckBox2.Checked = True Then
            Label1.BackColor = Color.Yellow
        End If
End Sub

Т.е. все 3 CheckBox обращаются к 1 процедуре color_change.

Большим я к сожалению Вам помочь не могу, надеюсь совет был полезен, удачи.

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@LMM 56 / 56 / 2 Регистрация: 17.02.2011 Сообщений: 234 Записей в блоге: 10
	12.05.2013, 23:27
	mega2411, А почему нельзя использовать RadioButton? Ведь по идее, если отмечены 2 CheckBox (скажем красный и синий), то должен получиться зеленый, но не как ни красный или синий (какой последний отмечен). А вообще, у тебя же в коде написано, что если галку снять, то вернуть Лейблу цвет BackColor. А что бы такого не происходило...ммм... я хз, придется прописать все варианты чекнутых и не чекнутых боксов, что бы все получилось и привязать их к одной процедуре. Ну или еще как сделать, я правда хз как. 0

@mega2411 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 237
	13.05.2013, 08:47 [ТС]
	вот именно снимаю галку и лейбл становится серым в цвет фона 0

@mega2411 0 / 0 / 0 Регистрация: 26.05.2012 Сообщений: 237
	13.05.2013, 19:18 [ТС]
	спасибо, разобрался уже, сделал. надо, очень 0

@LMM 56 / 56 / 2 Регистрация: 17.02.2011 Сообщений: 234 Записей в блоге: 10
	13.05.2013, 20:46
	mega2411, Ммм а как разобрался, что сделал, глюки есть? 0