Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" _
(ByVal lpAppName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, ByVal lpFileName As String) As Long
' Создаём ini файл, а в нём секцию Parameters
WritePrivateProfileSection "Parameters","","my.ini"
сохранить параметры
Как сохранить параметры Vb6, например Checkbox стоит галочка, я уберу галочку и выключаю программу, как сделать, чтобы при включение программы этой галочки не было.
Непосредственно.
В процедуре Unload сохраняешь все, что хочешь, хоть в файл, хоть в реестр, а в процедуре Load читаешь параметры и присваиваешь сохраненные значения переменным или Proprties.
В процедуре Unload сохраняешь все, что хочешь, хоть в файл, хоть в реестр, а в процедуре Load читаешь параметры и присваиваешь сохраненные значения переменным или Proprties.
Это я знаю только как прописать всё это
Ручками.
Какие проблемы ? Открываешь файл и пишешь туда CheckBox.Value. А когда читаешь файл, присваиваешь это значение CheckBox.
Какие проблемы ? Открываешь файл и пишешь туда CheckBox.Value. А когда читаешь файл, присваиваешь это значение CheckBox.
Цитата:
Originally posted by ВуД
Это я знаю только как прописать всё это
Это я знаю только как прописать всё это
Попробуй писать в ini файлы:
Структура INI файла:
[Секция]
Ключ=Значение
Теперь код:
Код:
Пусть нужно сохранить значение параметра Checked, которое равно 1
Код:
WritePrivateProfileString "Parameters","Checked", "1","my.ini"
OK, параметр сохранён в виде
[Parameters]
Checked=1
Теперь считываем:
Код:
Dim str as String * 255
GetPrivateProfileString "Parameters", "Checked", "1",lpReturnedString, 255, "my.ini"
Dim n as Integer
n = CInt(str)
GetPrivateProfileString "Parameters", "Checked", "1",lpReturnedString, 255, "my.ini"
Dim n as Integer
n = CInt(str)
Всё. Теперь в n хранится нужное нам значение. Вообще, для считывания целочисленных параметров существует GetPrivateProfileInt, для структур - GetPrivateProfileStruct и т. д. В третьем параметре GetPrivateProfileString указывается значение по умолчанию (т. е. если файл/секция/ключ не был найден)
Хотя, замуты это всё... Если нужно один-два рараметра сохранить, проще в обычный текстовый файл их скинуть. Или в реестр...
HarryAxe а можеш ты сделать форму мне для примера
Цитата:
Originally posted by ВуД
HarryAxe а можеш ты сделать форму мне для примера
HarryAxe а можеш ты сделать форму мне для примера
Ладно, specialy for you написал сэмпл для работы с реестром (VB6). Наслаждайся!