Как через Select Case выставить условия для Checked RadioButton()

@Sersevik · Регистрация: 30.03.2015

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

Всем привет!
начал осваивать Visual Studio 2010 с языком Basic, начал писать свою первую программу, и столкнулся с рядом задач которые не могу решить самостоятельно, и вот решил спросить у знающих людей, надеясь на помощь:
в форме имеется GroupBox() в нем находится 7 RadioButton при наступлении события Checked для одной из RadioButton присваиваются определенные значения переменным, я смог это реализовать через IF, но выглядит как то коряво, думаю через Select Case будет выглядеть изящнее, вот как я это сделал:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
If RadioButton1.Checked = True Then
            b = a(1, 5)
            c = a(1, 6)
        End If
        If RadioButton2.Checked = True Then
            b = a(2, 5)
            c = a(2, 6)
        End If
        If RadioButton3.Checked = True Then
            b = a(3, 5)
            c = a(3, 6)
        End If
        If RadioButton4.Checked = True Then
            b = a(4, 5)
            c = a(4, 6)
        End If
        If RadioButton5.Checked = True Then
            b = a(5, 5)
            c = a(5, 6)
        End If
        If RadioButton7.Checked = True Then
            b = a(7, 5)
            c = a(7, 6)
        End If
        If RadioButton6.Checked = True Then
            b = a(6, 5)
            c = a(6, 6)
        End If
 
        If y < 600 Or y > 630 Then
            z = x * y / 1000000 * c
        Else : z = x / 1000 * b
        End If
 
        If RadioButton1.Checked = False And
           RadioButton2.Checked = False And
          RadioButton3.Checked = False And
         RadioButton4.Checked = False And
        RadioButton5.Checked = False And
       RadioButton6.Checked = False And
      RadioButton7.Checked = False Then
            MsgBox("выберите категорию камня")
        Else : Form5.Show()
        End If

, подскажите как это реализовать через Select Case, заранее спасибо

@Замабувараев · 30.03.2015, 17:25

Как‐то так. Нет?

VB.NET
1
2
3
4
5
6
7
8
Select Case True
    Case RadioButton1.Checked
        ' Что-то сделать
    Case RadioButton2.Checked
        ' Сделать что-то другое
    Case RadioButton3.Checked
        ' Сделать ещё что
End Select

И ещё: не проверяй что‐то на истину, сравнивая с истиной

VB.NET
1
If RadioButton6.Checked = True Then

Делай вот так:

VB.NET
1
If RadioButton6.Checked Then

Памирыч · 30.03.2015, 17:28

Сообщение от Замабувараев

не проверяй что‐то на истину, сравнивая с истиной

С чем это связано?

@Замабувараев · 30.03.2015, 17:33

Памирыч, код становится лаконичнее, без нагромождения конструкций «= True».

Памирыч · 30.03.2015, 17:43

Лаконичнее <> правильнее.
Лаконичность закончится, когда сравнение пойдет с булевой переменной, а не конкретно с True

@Sersevik · 30.03.2015, 17:55 **[ТС]**

Огромное спасибо, вставил Ваш код, работает отлично, но в указанном мною куске кода есть такая процедура:

VB.NET
1
2
3
4
5
6
7
8
9
10
If RadioButton1.Checked = False And
           RadioButton2.Checked = False And
          RadioButton3.Checked = False And
         RadioButton4.Checked = False And
        RadioButton5.Checked = False And
       RadioButton6.Checked = False And
      RadioButton7.Checked = False Then
            MsgBox("выберите категорию камня")
        Else : Form5.Show()
        End If

она делает важный момент, проверяет что пока хотя бы одна из RadioButton().Checked не TRUE, она не откроет форму 5 и выводит сообщение "выберите категорию камня". Я думал что через Select Case смогу совместить эти 2 процедуры, я сделал следующим образом:

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
Select Case True
            Case RadioButton1.Checked
                b = a(1, 5)
                c = a(1, 6)
            Case RadioButton2.Checked
                b = a(2, 5)
                c = a(2, 6)
            Case RadioButton3.Checked
                b = a(3, 5)
                c = a(3, 6)
            Case RadioButton4.Checked
                b = a(4, 5)
                c = a(4, 6)
            Case RadioButton5.Checked
                b = a(5, 5)
                c = a(5, 6)
            Case RadioButton6.Checked
                b = a(6, 5)
                c = a(6, 6)
            Case RadioButton7.Checked
                b = a(7, 5)
                c = a(7, 6)
            Case Else
                MsgBox("выберите категорию камня")
        End Select

но она показывает 1 раз сообщение "выберите категорию камня" и программа открывает форму 5, или мне нужно в каждом условии делать так:

VB.NET
1
2
3
4
Case RadioButton6.Checked
                b = a(6, 5)
                c = a(6, 6)
Form5.Show()

но тогда это тоже не совсем красиво получается, подскажите где я ошибся в написании процедуры

@Замабувараев · 30.03.2015, 18:41

Памирыч, так ведь свойство Checked у класса RadioButton — это булевое свойство. Оно может принимать либо True, либо False. Булевые свойства и переменные не обязательно проверять на равенство с True или False, можно написать короче: If Переменная Then или If Not Переменная Then.
Sersevik, если используется конструкция Select Case True, то в таком блоке оператора Else быть не должно, так как он в любом случае выполнится. В этом случае Else нужно удалить.
Чтобы укоротить код

VB.NET
1
2
3
4
5
6
7
f RadioButton1.Checked = False And
           RadioButton2.Checked = False And
          RadioButton3.Checked = False And
         RadioButton4.Checked = False And
        RadioButton5.Checked = False And
       RadioButton6.Checked = False And
      RadioButton7.Checked = False Then

можно использовать Linq.

VB.NET
1
2
3
4
Dim CheckCount As Integer = (From c As Control In Me.Controls Where TypeOf c Is RadioButton AndAlso CType(c, RadioButton).Checked).Count
        If CheckCount = 0 Then
            ' Ни одна радиокнопка не установлена
        End If

Этот трюк перечисляет все элементы управления на форме, и возвращает количество установленных радиокнопок. Также не забываем импортировать System.Linq, если он ещё не импортирован.

Памирыч · 30.03.2015, 18:42

Замабувараев, Вы меня не поняли.
Я говорил про сравнение с какой-то булевой переменной, которая где-то живет в проекте и заранее не известно, чему она будет равна.
Я клоню к тому, что в ряде случаев дописывать условие по полной все же придется, и лаконичность в данном случае - "экономия на спичках", и никак не оправдывает слегка категоричное

не проверяй что‐то на истину, сравнивая с истиной

@Замабувараев · 30.03.2015, 18:49

Памирыч, Памирыч, замечу, что во всяких си, сипласплас и додиезах никогда не проверяется что‐то на равенство с true или false, а всегда используется код if (variable); или if (!variable);.

Памирыч · 30.03.2015, 18:55

Я Вам уже говорил про категоричность.
Давайте никого не будем вводить в заблуждение и разводить холивары. Я не для того сделал уточнение, чтобы превратить тему в бардак

@Sersevik · 30.03.2015, 19:04 **[ТС]**

Замабувараев, а можно по подробнее по поводу о писаной процедуры Linq, я вставил ваш код в программу но ни чего не изменилось, так же выходит сообщение 1 раз и открывается форма5, я не совсем понял что значит

Сообщение от Замабувараев

Также не забываем импортировать System.Linq, если он ещё не импортирован.

, просто я осваиваю программирование всего неделю и не все еще понял что и как

@Замабувараев · 30.03.2015, 20:55

Sersevik, в очень грубом приближении, Linq — это такая штука, которая позволяет делать выборку из коллекций. Итак.

VB.NET
1
(From c As Control In Me.Controls Where TypeOf c Is RadioButton AndAlso CType(c, RadioButton).Checked).Count

Здесь я обхожу с момощью c As Control всю коллекцию элементов управления формы Me.Controls. Но мне нужны не просто все элементы управления, а радиокнопки, поэтому ставим дополнительное условие Where TypeOf c Is RadioButton. А ещё нужно получить не просто радиокнопки, а только те, что установлены. Значит, нужно добавить в предыдущее условие AndAlso CType(c, RadioButton).Checked. Запрос готов, осталось получить количество. Значит, заключаю запрос в скобки и вызываю метод Count, который записывается в переменную CheckCount.

Какое у тебя значение возвращает этот запрос? Всегда ноль? Или что‐то другое?

@Petr_S · 31.03.2015, 08:09

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

VB.NET
1
2
3
4
5
6
7
8
9
10
Select True
            Case RadioButton1.Checked
                b = a(1, 5)
                c = a(1, 6)
            Case RadioButton2.Checked
                b = a(2, 5)
                c = a(2, 6)
            Case RadioButton3.Checked
                b = a(3, 5)
                c = a(3, 6)

Может быть в данной ситуации лучше использовать ComboBox?

VB.NET
1
2
3
4
5
6
7
8
9
10
        Dim i As Integer = ComboBox1.SelectedIndex + 1
        If i > 0 Then
            b = a(i, 5)
            c = a(i, 6)
            Form5.Show()
 
        Else
            MsgBox("выберите категорию камня")
 
        End If

@Yury Komar · 31.03.2015, 10:40

Сообщение от Замабувараев

.Count

а как однострочником по твоему типу получить имена этих контролов, чтобы в дальнейшем применять к ним какие-либо свойства или проводить какие либо операции обращаясь к ним по имени, типа Me.Controls("RadioButton" & i).Checked = False

@Замабувараев · 31.03.2015, 16:41

Yury Komar, получение имён установленных радиокнопок на форме. Вот однострочник на бейсике:

VB.NET
1
Dim f = From c In frmMain.Controls Where TypeOf c Is RadioButton AndAlso CType(c, RadioButton).Checked Select CType(c, RadioButton).Name

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	30.03.2015, 17:33
	Памирыч, код становится лаконичнее, без нагромождения конструкций «= True». 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	30.03.2015, 17:43
	Лаконичнее <> правильнее. Лаконичность закончится, когда сравнение пойдет с булевой переменной, а не конкретно с True 0

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	30.03.2015, 18:49
	Памирыч, Памирыч, замечу, что во всяких си, сипласплас и додиезах никогда не проверяется что‐то на равенство с true или false, а всегда используется код if (variable); или if (!variable);. 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	30.03.2015, 18:55
	Я Вам уже говорил про категоричность. Давайте никого не будем вводить в заблуждение и разводить холивары. Я не для того сделал уточнение, чтобы превратить тему в бардак 1

Как через Select Case выставить условия для Checked RadioButton()

Решение