Добавить текст в строку в CheckedListBox, если он установлен?

Question

Я работаю над простой программой «Список дел», пользователь может ввести что-либо в текстовое поле, нажать кнопку и добавить текст в качестве элемента в CheckedListBox. Теперь я хочу добавить текст «Готово» перед каждым элементом, если он установлен, а затем удалить текст, если пользователь отменил его.

Код:

Private Sub MyCbList_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles MyCbList.ItemCheck 
    If MyCbList.Items.Item(MyCbList.SelectedIndex) = True Then 
     MyCbList.Items.Item(MyCbList.SelectedIndex) = "Done: " + MyCbList.Items.Item(MyCbList.SelectedIndex) 
    Else 
     MyCbList.Items.Item(MyCbList.SelectedIndex) = MyCbList.Items.Item(MyCbList.SelectedIndex).Replace("Done: ", "") 
    End If 
End Sub 

Я не могу заставить его работать. Раньше я никогда не занимался CheckedListBox.

Answer 1

Очень близко! На данный момент ваш код ищет, отображается ли выделенный текст (не проверен) в тексте = «Истина».

Вместо этого нам нужно исследовать параметр ItemCheckedEventArgs, который передается в метод:

Private Sub MyCbList_ItemCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles MyCbList.ItemCheck 
    If e.NewValue = CheckState.Checked Then 
     MyCbList.Items.Item(e.Index) = "Done: " + MyCbList.Items.Item(MyCbList.SelectedIndex) 
    Else 
     MyCbList.Items.Item(e.Index) = MyCbList.Items.Item(MyCbList.SelectedIndex).Replace("Done: ", "") 
    End If 
End Sub