Страница: 1 | 2 |
Вопрос: Сохранение 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? Без проблем выводим и читаем.
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
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
Line Input #F, MyText
Text1.Text = MyText
Loop
- наверно Александр имел в виду
Line Input #F, MyText
Text1.Text = Text1.Text + MyText
Loop
, а можно ещё проще:
Open "c:\1.txt" For Input As f
Text1.Text = Input(LOF(f), f)
Close f