Как записать значение checkbox в файл - VB

Формулировка задачи:

Подскажите как записать значение checkbox в файл. что бы когда жму на кнопку следующая запись то значения выбранные в checkbox сохранялись и при перезапуске программы считывало из файла и были выбраны те значения которые я выбирал ранее.

Решение задачи: «Как записать значение checkbox в файл»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
    On Error Resume Next
    Open App.Path & "\settings.ini" For Input As #1
    Do Until EOF(1)
        Input #1, s
        Me.Controls(CStr(Split(s, "=")(0))).Value = CInt(Split(s, "=")(1))
    Loop
    Close
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Open App.Path & "\settings.ini" For Output As #1
    For Each Control In Me.Controls
        If TypeOf Control Is CheckBox Then
            Print #1, Control.Caption & "=" & Control.Value
        End If
    Next
    Close
End Sub

Оцени полезность:

5 голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы