VPF::Присоединение своей библиотеки к проекту

GOBLIN_TT

Дата 26.7.2007, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 6.6.2007

Репутация: нет
Всего: 2

Народ помогите решить следующую проблему.

Есть прога на VB 6, в ней куча переменных и их значения постоянно меняются, переменные хранятся в сомой проге то-есть в EXE, ну вот если прогу закрыть то все переменные обнулятся, а мне нужно чтобы значения переменных сохранялись.
Я подумывал над созданием библиотеки в которой эти переменные будут находится, соответственно при изменении и при последующем закрытии проги значения переменных останутся нетронутыми в файле.
И при последующем запуске программы значения этих переменных можно будет посмотреть, изменить проверить.

Как можно такое реализовать ?

--------------------

W4FhLF

Дата 26.7.2007, 18:25 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 3
Всего: 121

Надо только оформить всё красиво в фукцию. Но суть, я надеюсь, ясна.

Код


Dim var1 As Integer
Dim var2 As Long
Dim var3 As Double

Dim sName As String ' Имя файла, где хранить переменные
Dim nFile As Integer

Private Sub Command1_Click()
    var1 = 10000
    var2 = 1000000000
    var3 = 12345.3221
End Sub

Private Sub Form_Load()
    sName = "data.dat"
    If Dir$(sName) <> "" Then
        nFile = FreeFile
        Open sName For Binary As #nFile
            Get #nFile, Seek(nFile), var1 ' загружаем первую переменную
            Get #nFile, Seek(nFile), var2 
            Get #nFile, Seek(nFile), var3 
        Close #nFile
    End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
    nFile = FreeFile
    Open sName For Binary As #nFile
        Put #nFile, Seek(nFile), var1 ' сохраняем первую переменную
        Put #nFile, Seek(nFile), var2 
        Put #nFile, Seek(nFile), var3 
    Close #nFile
End Sub

Это сообщение отредактировал(а) W4FhLF - 26.7.2007, 18:27

--------------------

"Бог умер" © Ницше
"Ницше умер" © Бог

Akina

Дата 26.7.2007, 21:13 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Можно, как показал W4FhLF, хранить значения во внешнем файле. Удобство - файлы настроек, в т.ч. несколько, но могут возникнуть проблемы на системе с несколькими пользователями.
Можно хранить эти значения в реестре (GetSetting/SaveSetting). Удобство - можно делить на пользовательские (HKCU) и общие (HKLM), можно делать несколько профилей и пр., но сложнее, чем в случае файлов, управлять такими профилями извне.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »