|
|
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
Здравствуйте! Подскажите пожалуйста, как сделать так, чтобы изменения внесённые в textbox-ы и label-ы сохранились после выключения программы. Заранее спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 29.03.2006, 23:56:46 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
только програмно записать все данные в файл на диске или можно использовать реестр ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 07:28:47 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
А как именно это можно сделать? Суть сохранения в файл мне уже предложили. Подскажите пожалуйсла, как дополнить программный код. Private Sub Form_Load() ???' загрузить значения из файла End Sub Private Sub ChangeButton_Click() Label1.Caption = Text1.Text 'изменить значение Label-а End Sub Private Sub SaveButton_Click() ???' сохранить изменения в Label и Text и выйти из программы End End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 09:13:01 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
см. SaveSettings, GetSettings ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 09:29:40 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
Файловая запись установок Const strFile = "c:\settings.txt" Private Sub SaveSettings_Click() Open strFile For Random As #1 Put #1, 10, Text1.Text Close #1 End Sub Private Sub loadSettings() Dim s As String Open strFile For Random As #1 Get #1, 10, s Close #1 Label1.Caption = s End Sub Private Sub Form_Load() loadSettings End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 09:53:17 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
А что должно быть написано в файле settings.txt? Вначале он пишет "Ошибка доступа пути или файла", когда я убираю строчки: Open strFile For Random As #1 Get #1, 10, s тогда я дохожу до кнопки сохранения. При нажатии на кнопку сохранения, он сохраняет в файл settings.txt какой-то бред (как правило часть текста и кода с какой-нибудь web-страницы) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 11:00:54 |
|
||
|
Сохранение изменений на форме.
|
|||
|---|---|---|---|
|
#18+
Private Sub Form_Load() On error resume next loadSettings End Sub этот бред после получения превращается в стриговую строку ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 30.03.2006, 11:07:46 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33633815&tid=2166142]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
427ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
1ms |
| others: | 220ms |
| total: | 709ms |
| 0 / 0 |
