Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Сохранение text в textbox Добавлено: 26.01.07 16:26  

Автор вопроса:  Эндрю
Задался на днях вопросом:Как сделать,чтобы программа после закрытия запоминала текст в тексбоксе,да и вообще значение переменных?

Ответить

  Ответы Всего ответов: 18  

Номер ответа: 1
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #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-сайт: Rus-Skipper.narod.ru
 Профиль | | #3
Добавлено: 26.01.07 19:09
И текст туда тоже засунет?Велик реестр, но неастолько.

Ответить

Номер ответа: 4
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #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-сайт: www.vk-book.ru
 Профиль | | #7
Добавлено: 26.01.07 20:02
он может принимать любой размер!

Разве?

Ответить

Номер ответа: 8
Автор ответа:
 Stars



Вопросов: 41
Ответов: 239
 Профиль | | #8 Добавлено: 26.01.07 20:30
Ну сам подумай раз он файл на жёстком диске то я думаю сто пудово там предусмотрено при не хватке места расширение его тоесть его размера!

Ответить

Номер ответа: 9
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
 Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #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-сайт: Rus-Skipper.narod.ru
 Профиль | | #12
Добавлено: 26.01.07 20:43
две переменные это другой вопрос я оталкиваюсь
от заголовка
чтобы программа после закрытия запоминала текст в тексбоксе,

Ответить

Номер ответа: 13
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
 Web-сайт: sham.clan.su
 Профиль | | #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-сайт: houselab.narod.ru
 Профиль | | #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

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам