Сохранить значения CheckBox

@Rayrat89 · Регистрация: 14.06.2012

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

Имеется куча CheckBox'ов 38 шт
Как можно сохранить и загрузить их значения например из текстового файла?
ток осваиваю vb, кучу тем перерыл но пока решения не нашел..

Добавлено через 21 минуту
попытался сделать способом который подвергнется страшной критике с вашей стороны) но всеже хочу спросить почему не работает?
я нашел пример как сохранять значения ListBox'а в текстовый файл, и реши попробовать сохранить в него состояния чеков и сохранить.
попробовал загрузить из ListBox значения но все состаяния ставит Истина что не так?

VB.NET

 Dim x As Object
        Dim r As Integer
        For Each x In Me.Controls
            If TypeName(x) = "CheckBox" Then
                x.checked = ListBox1.Items.Item(index:=r + 1)
            End If
        Next x

Добавлено через 24 минуты
сделал вот так:

VB.NET

  Dim x As Object
        Dim r As Integer
        r = 37
        For Each x In Me.Controls
 
            If TypeName(x) = "CheckBox" Then
 
                x.checked = ListBox1.Items.Item(index:=r)
                r = r - 1
            End If
        Next x

заработало)
теперь надо придумать как загрузить в ListBox состояния чеков

Добавлено через 15 минут
вот так сделал)

VB.NET

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim x As Object
        Dim r As Integer
        r = 37
        For Each x In Me.Controls
 
            If TypeName(x) = "CheckBox" Then
 
                x.checked = ListBox1.Items.Item(index:=r)
                r = r - 1
            End If
        Next x
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Object
        Dim r As Integer
        r = 37
        For Each x In Me.Controls
 
            If TypeName(x) = "CheckBox" Then
                If x.checked = True Then
                    ListBox1.Items.Item(index:=r) = "True"
                Else
                    ListBox1.Items.Item(index:=r) = "False"
 
                End If
                r = r - 1
            End If
        Next x
 
    End Sub

	20.02.2013, 14:45