Как можно сохранять а потом загружать опции!

[DVV]

Есть Listbox,3 Command (1-я -новое,2-я удалить,3-я -редактировать).
При нажатии на 1-ю Command открывается форма с разными объектами.
Как можно сохранять настройки формы(таких настроек будет несколько),а потом загружать.
При этом добавляется в listbox имя при закрытии формы.
Примеры-ClockWize,ChameleonClock.(список будильников).
Буду благодарен!!

[ANDLL]

SaveSetting. GetSetting. Это нужно было?

[DVV]

Да,но как можно сохранять много настроек(т.к настройки формы сохраняем несколько раз).А потом как их загружать!?

[Ennor]

Ну так сказали же - GetSetting() . Или это все-таки не то?

[DVV]

Это я понял,но мне надо сохранить в опред-м порядке.
Как допустим в ClockWize'е.(см.моё первое сообщение).

[DVV]

Ну так что?!кто-нибудь знает?

[Zer]

Так блин и сохраняй в каком нужно порядке.
P.S. Ты бы лучше нормально объяснил, что тебе надо. А то по-моему никто не понял...

[DVV]

То что меня ни кто не понял -Это я понял.
У меня в Listbox будут добавляться названия(имена).
И при выборе в Listbox'е этих имён и нажатии на command (редактировать).У меня должна откр-ся форма с настройками.
Как открыть именно нужные настройки для формы.(а таких настроек может быть много).Но при загрузке главной формы эти настройки должны загр-ся в переменные.
Я делаю часы с будильником и мне нужно сохранять настройки(т.к.самих заданий(буд-к,нопомин-ка) может быть много!.

[tyomitch]

DVV, в чём проблема?
В каком порядке хочешь, в таком и сохраняй.

[DVV]

Допустим я сохраню.А потом как!
мне же нужно загружать настройки не "одной формы",а "нескольких"
Т.к. мы сохраняем настройки одной и той же формы несколько раз!!

[tyomitch]

У SaveSetting 3 параметра; меняя их, можно сохранять все настройки в разные места - не обязательно же всё писать в одно и то же место.

[-=TsA=-]

Попробуй следующий вариант:
Заводиш ini файл например Setting ini
с такой структуры

[ЭЛЕМЕНТ1]
Параметр1=XXXX
Параметр2=YYYY
...
ПараметрN=

[ЭЛЕМЕНТ2]
Параметр1=XXXX
Параметр2=YYYY
...
ПараметрN=

[ЭЛЕМЕНТ3]
Параметр1=XXXX
Параметр2=YYYY
...
ПараметрN=

и тд

а потом считываеш их

Код: Выделить всё

' Чтение ini файла
Private Declare Function GetPrivateProfileString& Lib _
    "kernel32" Alias "GetPrivateProfileStringA" (ByVal _
    lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, _
    ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, _
    ByVal lpszFile$)
' Запись ini файла

Private Declare Function WritePrivateProfileStringByKeyName% Lib _
    "kernel32" Alias "WritePrivateProfileStringA" (ByVal _
    lpApplicationName As String, ByVal lpKeyName As String, _
    ByVal lpString As String, ByVal lplFileName As String)


' Запись ключа
Public Function SetKeyIni(FileName As String, Key As String, _
    Parameter As String, Value As Variant)
    Call WritePrivateProfileStringByKeyName(Key, Parameter, Value, FileName)
End Function

' Чтение ключа
Public Function GetKeyIni(FileName As String, Key As String, _
    Parameter As String, Default As String)
    Dim Value As String
    Value = Space(256)
    Call GetPrivateProfileString(Key, Parameter, Default, Value, _
        Len(Value), FileName)
    Value = Trim$(Value)
    Value = Left$(Value, Len(Value) - 1)
    GetKeyIni = IIf(Len(Value) > 0, Value, Default)
End Function


[Sedge]

Может рассмотреть вариант использования базы данных?

[Zer]

Хм... Ну если для будильников и напоминаний...
Создай какой-нибудь файл, при появлении навой фигни кидай её туда. Каждые 5 минут производи считывание всех записей событий. Дальше проверяем их все и если времени до это события кидаем его в массив. Далее только выбирай нужное и...
P.S.Только как к этому могут относится настройки форм...

[DVV]

Хорошо,может кто-нибудь знает как работает это.
MySet = GetAllSettings ( VBKeyName, Section)
Что должно быть написани в MySet .

[ANDLL]

Мне тут посоветовали:
http://dt0.danasoft.ru/index2.html
Сам не читал, но полагаю это то, что тебе пригодится. Описание методики сохранение любых данных программы. В том числе и настроек.

[DVV]

Не,на этом сайте воообше другая информация!

[tyomitch]

Хорошо,может кто-нибудь знает как работает это.
MySet = GetAllSettings ( VBKeyName, Section)
Что должно быть написани в MySet .

GetAllSettings возвращает двумерный массив, в нулевом столбце названия параметров, в первом значения. Кусок хелпа что ли кинуть?
http://msdn.microsoft.com/library/en-us ... tingsx.asp

[ANDLL]

Гм. И правда. Это даже не статья. Щас узнаю...

[ANDLL]

Да....
Пожалуй, правильный линк такой:
http://danasoft.ru/__dt0/index2.html

[kazah_]

я всегда пользуюсь файлами.

Либо текстовыми либо двоичными.

private type SavOp

opt1 as string
opt2 as string

end type

command1_Click()
open ("C:\Txt.Txt") For random as #1
SavOp.Opt1="Dennis"
SavOp.opt2=Listbox1.Items(listbox1.listindex)
Put #1,1,SavOp
close#1
end

Command2_Click()
open("c:\Txt.Txt") for random as #1
Get #1,1,SavOp
Msgbox SaveOp.opt2
close #1
End

Вот и все!

[DVV]

Thank!