| Вопрос: Сохранение text в textbox | Добавлено: 26.01.07 16:26 |
Автор вопроса:  Эндрю
|
| Задался на днях вопросом:Как сделать,чтобы программа после закрытия запоминала текст в тексбоксе,да и вообще значение переменных? |
| Ответы | Всего ответов: 18 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 26.01.07 18:40 |
|
Как сделать,чтобы программа после закрытия запоминала текст в тексбоксе,да и вообще значение переменных?
Никак.
Есть только мне известный вариант это сохранение в файл например Log.TXT c последующим чтением энного. А в форм Load вспомить что тебе нужно. |
||
|
Номер ответа: 2 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #2 | Добавлено: 26.01.07 19:00 |
|
был гдето такой пример там по закрытию проги процедура сама перебирает все компоненты их свойства и сохраняет в файл.
Но можеш так SaveSetting appname, section, key, setting - Записывает настройку в реестр. Напомню, что функция DeleteSetting удаляет настройку, а функция GetSetting загружает. Я почему-то не нашёл в документации путь, куда сохраняются настройки. Пришлось определять самому. Оказалось, что настройки записываются по адресу: HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings В этом ключе создаётся ещё один ключ с названием appname. Пример: ' Сохраняем положение левой координаты формы в реестр SaveSetting "MyApp", "Startup", "Left", Form1.Left |
||
|
Номер ответа: 3 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #3 | Добавлено: 26.01.07 19:09 |
| И текст туда тоже засунет?Велик реестр, но неастолько. | ||
|
Номер ответа: 4 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #4 | Добавлено: 26.01.07 19:16 |
|
Можно текст в ресурс сохранять.
ЗЫ мне Хакер объяснял как это сделать но я не понял... |
||
|
Номер ответа: 5 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #5 | Добавлено: 26.01.07 19:36 |
Боцман а ты думаешь что настройки весить будут 50mb чтоли? А в реестр ща много прог сохраняют свои настройки, а кстати благодаря Djon вот я и вспомнил про ресурс вот этот пример гдето я и видел!!! 
|
||
|
Номер ответа: 6 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #6 | Добавлено: 26.01.07 19:39 |
| А при помощи SaveSetting мне кажется в самый раз если там несколько переменных нужно сохранить! А реестр это тот же файл на диске так что он может принимать любой размер! | ||
|
Номер ответа: 7 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #7 | Добавлено: 26.01.07 20:02 |
|
он может принимать любой размер!
Разве? |
||
|
Номер ответа: 8 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #8 | Добавлено: 26.01.07 20:30 |
| Ну сам подумай раз он файл на жёстком диске то я думаю сто пудово там предусмотрено при не хватке места расширение его тоесть его размера! | ||
|
Номер ответа: 9 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #9 | Добавлено: 26.01.07 20:33 |
|
Я что-то не допонял реестр это что, сохранениие настроек, например размера окна, ключи всякие или мы туда и MDB ACES засунем. Пусть знает наших.
Чем плох Log.TXT? Без проблем выводим и читаем. dim peremennay as long
peremennay=LstNastroxki.List(4) А при удалении программы юзером, ВЫ рестр тоже почистите, от сделаннаго ей мусора? Живите проще как завещал великий Ленин. |
||
|
Номер ответа: 10 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #10 | Добавлено: 26.01.07 20:33 |
| Вот другое дело, что загрузка пк, из за закиданности реестра (Если конечно ещё постараться)будет происходить медленнее так как винда покуда там всё расшарит пройдёт "Н" ное количество времени | ||
|
Номер ответа: 11 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #11 | Добавлено: 26.01.07 20:37 |
|
Млин Боцман а если мне надо сохранить 2 переменные ну там имя и пароль к примеру! Проще же всего написать 2 строчки а тут:
файл открывать, сохранять, закрывать |
||
|
Номер ответа: 12 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #12 | Добавлено: 26.01.07 20:43 |
|
две переменные это другой вопрос я оталкиваюсь
от заголовка чтобы программа после закрытия запоминала текст в тексбоксе,
|
||
|
Номер ответа: 13 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #13 | Добавлено: 26.01.07 23:42 |
|
Option Explicit
Dim F As Byte Dim MyText As String Private Sub Command1_Click() F = FreeFile Open App.Path & "\Save.txt" For Output As #F Print #F, Text1.Text Close #F End Sub Private Sub Command2_Click() F = FreeFile Open App.Path & "\Save.txt" For Input As #F Do Until EOF(F) Line Input #F, MyText Text1.Text = MyText Loop Close #F End Sub Private Sub Form_Load() Text1.Text = "" End Sub |
||
|
Номер ответа: 14 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #14 | Добавлено: 27.01.07 01:34 |
|
Ну сам подумай раз он файл на жёстком диске то я думаю сто пудово там предусмотрено при не хватке места расширение его тоесть его размера!
Думать вредно. Лучше пробуйте... если память мне не изменяет то всего можно 64 кб сохранить в одном значении реестра... Впрочем даже если больше, говорить о любом размере всёравно нестоит, бо в FAT32 например больше 4 ГБ файл не создаш
|
||
|
Номер ответа: 15 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #15 | Добавлено: 27.01.07 11:26 |
|
Do Until EOF(F)
Line Input #F, MyText Text1.Text = MyText Loop - наверно Александр имел в виду Do Until EOF(F)
Line Input #F, MyText Text1.Text = Text1.Text + MyText Loop , а можно ещё проще: f = FreeFile
Open "c:\1.txt" For Input As f Text1.Text = Input(LOF(f), f) Close f |
||