Изменить текст при выборе определенного значения в CheckedListBox

@Dimon0880 · Регистрация: 08.06.2011

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

Я новичек поэтому думаю вопрос не сложный,
Как сделать так чтобы при выборе какого либо пункта из чекбокслиста, значение например текста менялось.
Например в обычном чекбоксе так:

Visual Basic
1
2
        If CheckBox2.Checked Then
        Rez.Text = Rezult.Text + 4000

Тоесть если чекбокс нажат то к тексту результата добавится 4000, в чекбокслисте я не могу разобраться, наверное так же, но где взять имя?

@gitarillo · 20.07.2011, 14:56

Тема должна быть в VB.NET

VB.NET
1
2
3
4
5
6
7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For I As Integer = 0 To Me.CheckedListBox1.Items.Count - 1
            If Me.CheckedListBox1.CheckedIndices.Contains(I) Then
                MsgBox(Me.CheckedListBox1.Items(I))
            End If
        Next
    End Sub

Это пример получения отмеченных флажком позиций

@Dimon0880 · 20.07.2011, 16:04 **[ТС]**

спс, но можно с описанием подробным? например где я выбираю номер строки?

@gitarillo · 20.07.2011, 16:13

VB.NET
1
2
3
4
5
6
7
8
9
Dim flag As Boolean = False
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For I As Integer = 0 To Me.CheckedListBox1.Items.Count - 1
            If Me.CheckedListBox1.CheckedIndices.Contains(I) Then
                If I = 1 Then flag = True : Exit For
            End If
        Next
        If flag Then Rez.Text = Rezult.Text + 4000
    End Sub

Здесь пароверяем, выделена ли вторая позиция (i=1). И если да то флагу скармливаем истину и смываемся из цикла чтобы зря не гонять его. А потом по флагу смотрим и делаем что нужно.

@Dimon0880 · 20.07.2011, 16:18 **[ТС]**

А все разобрался.
Еще вопрос, вот код:

VB.NET
1
2
3
4
5
6
7
8
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckedListBox1.CheckedIndices.Contains(0) Then
            TextBox1.Text = TextBox2.Text + (4000)
        End If
        If CheckedListBox1.CheckedIndices.Contains(1) Then
            TextBox1.Text = TextBox2.Text + (8000)
        End If
    End Sub

При выборе одной из кнопок все норм в текстовом поле прбавляется или 4к или 8к, но при выборе обоих кнопок в поле появляется 8к, а мне надо 12.

@gitarillo · 20.07.2011, 16:26

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

При выборе одной из кнопок все норм в текстовом поле прбавляется или 4к или 8к, но при выборе обоих кнопок в поле появляется 8к, а мне надо 12.

Так в цикле и делай проверку на выбранные индексы.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

@Dimon0880 0 / 0 / 0 Регистрация: 08.06.2011 Сообщений: 6
	20.07.2011, 16:04 [ТС]
	спс, но можно с описанием подробным? например где я выбираю номер строки? 0