Как сохранить значения элементов формы во внешнем файле

@Valery_L · Регистрация: 30.09.2010

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

Господа, просьба не бить ногами, но вынужден обратиться за помощью, поскольку уже голову сломал.
Есть некая форма с несколькими элементами и внешний текстовый файл для хранения значений из этих элементов.
При закрытии формы должно происходить сохранение введенных/измененных данных этих элементов, а при открытии, соответственно, считывание.
С текстовыми полями проблем нет, а вот с чекбоксом ну никак не могу решить. Вот отрывок кода. Пожалуйста, покажите решение для чекбокса.

Кликните здесь для просмотра всего текста

Open "c:\settings.cfg" for Input As #2
Line Input #2, sv1
TbSv1.Text = sv1
Close #2

Open "c:\settings.cfg" For Output As #2
Print #2, CDbl(TbSv1.Text)
Close #2

@Казанский · 09.12.2015, 09:46

Valery_L,

Visual Basic

' записать
Open "c:\settings.cfg" For Output As #2
Print #2, CheckBox1
Close #2
 
'считать
Dim sv1
Open "c:\settings.cfg" For Input As #2
Line Input #2, sv1
CheckBox1 = sv1
Close #2

В файле будет текст "True" или "False".

@~~Апострофф~~ · 09.12.2015, 09:47

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

покажите решение для чекбокса.

А в чём трудности?

Visual Basic

Option Explicit
 
Private Sub CommandButton1_Click()
Open "d:\settings.cfg" For Output As #2
'Print #2, CDbl(TbSv1.Text)
Print #2, TextBox1.Text
Print #2, CheckBox1.Value
Close #2
End Sub
 
Private Sub CommandButton2_Click()
Dim sv1$
Open "d:\settings.cfg" For Input As #2
Line Input #2, sv1
TextBox1.Text = sv1
Line Input #2, sv1
CheckBox1.Value = sv1
Close #2
End Sub
 
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Save"
CommandButton2.Caption = "Read"
End Sub

@Valery_L · 09.12.2015, 17:25 **[ТС]**

Спасибо, работает, только одно но. Суть сохранения в файл состоит в том, чтобы при последующем открытии формы в нужных полях были последние введенные значения и не только в данном сеансе работы. Все как бы работает, однако, при открытии формы чекбокс имеет неопределенное значение (серая галочка). При открытии формы и считывании установок чек бокс должен получать соответствующее состояние. А это и не получается.

@Казанский · 09.12.2015, 19:06

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

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

Вызовите соотв. процедуру при открытии формы. На основе кода Апострофф

Visual Basic

1
2
3

Private Sub UserForm_Initialize()
  CommandButton2_Click
End Sub

Добавлено через 3 минуты
Вообще, если речь о VBA, то значение чекбокса лучше хранить в документе: в ячейке скрытого листа Excel, в переменной Variables в Word, в CustomDocumentProperties в документе любого формата.

@Valery_L · 10.12.2015, 11:37 **[ТС]**

Переменная и считывается и записывается в файл (нужно именно так!). А вот как видно из скрина чекбокс не получает получает значение. Почему???

@Valery_L · 10.12.2015, 12:16 **[ТС]**

Решение нашлось. Реально работает.

Кликните здесь для просмотра всего текста

Line Input #2, Orient
If Orient = False Then
CheckBox1 = False
End If
If Orient = True Then
CheckBox1 = True
End If

@Valery_L 29 / 17 / 1 Регистрация: 30.09.2010 Сообщений: 119
		1
	Как сохранить значения элементов формы во внешнем файле 09.12.2015, 04:08. Показов 1425. Ответов 6 Метки нет (Все метки) Господа, просьба не бить ногами, но вынужден обратиться за помощью, поскольку уже голову сломал. Есть некая форма с несколькими элементами и внешний текстовый файл для хранения значений из этих элементов. При закрытии формы должно происходить сохранение введенных/измененных данных этих элементов, а при открытии, соответственно, считывание. С текстовыми полями проблем нет, а вот с чекбоксом ну никак не могу решить. Вот отрывок кода. Пожалуйста, покажите решение для чекбокса. Кликните здесь для просмотра всего текста Open "c:\settings.cfg" for Input As #2 Line Input #2, sv1 TbSv1.Text = sv1 Close #2 Open "c:\settings.cfg" For Output As #2 Print #2, CDbl(TbSv1.Text) Close #2 0

@Valery_L 29 / 17 / 1 Регистрация: 30.09.2010 Сообщений: 119
	09.12.2015, 17:25 [ТС]	4
	Спасибо, работает, только одно но. Суть сохранения в файл состоит в том, чтобы при последующем открытии формы в нужных полях были последние введенные значения и не только в данном сеансе работы. Все как бы работает, однако, при открытии формы чекбокс имеет неопределенное значение (серая галочка). При открытии формы и считывании установок чек бокс должен получать соответствующее состояние. А это и не получается. 0

@Valery_L 29 / 17 / 1 Регистрация: 30.09.2010 Сообщений: 119
	10.12.2015, 11:37 [ТС]	6
	Переменная и считывается и записывается в файл (нужно именно так!). А вот как видно из скрина чекбокс не получает получает значение. Почему??? Миниатюры 0

@Valery_L 29 / 17 / 1 Регистрация: 30.09.2010 Сообщений: 119
	10.12.2015, 12:16 [ТС]	7
	Решение нашлось. Реально работает. Кликните здесь для просмотра всего текста Line Input #2, Orient If Orient = False Then CheckBox1 = False End If If Orient = True Then CheckBox1 = True End If 0