Запоминание программы

[ZipFeR]

Првиет всем !

Мне нужно сделать так чтобы допустим запустил прогу нажал на кнопку, и она стала Enabed=false, А ПОТОМ ЧТОБЫ ЗАНОВО ЗАПУСТИТЬ И ЧТОБЫ ОНА ТАК И ОСТАЛАСЬ FALSE ?? Как осуществить дайте пожалуйста кодик

[Ship]

запоминай состояние кнопки в реестре или в .ini-файле

[ZipFeR]

КАК ? пример есть ?

[Ship]

Сохранение состояния кнопки в реестре:
Запусти, нажми кнопку, закрой, опять запусти.

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

Option Explicit

Dim check As Boolean

Private Sub Command1_Click()

SaveSetting App.EXEName, "check", "check", 1
Command1.enabled = False

End Sub

Private Sub Form_Load()

check = GetSetting(App.EXEName, "check", "check", 0)

If check Then Command1.enabled = False

End Sub


[Dex]

Юзаем PropertyBag и храним все настройки в exe файле. И настройки изменить никто не может

[Cryonyx]

Ну-ка, ну-ка, поподробнее, por favor

[Андрей Васюта]

Я бы тоже рад был посмотреть примерчик ini и PropertyBag.

[KDima]

INI.bas:

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

Option Explicit



Public Declare Function GetPrivateProfileStringByKeyName& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Public Declare Function GetPrivateProfileStringKeys& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName$, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
Public Declare Function GetPrivateProfileStringSections& Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName&, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)
' This first line is the declaration from win32api.txt

Public Declare Function WritePrivateProfileStringByKeyName& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lplFileName As String)
Public Declare Function WritePrivateProfileStringToDeleteKey& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Long, ByVal lplFileName As String)
Public Declare Function WritePrivateProfileStringToDeleteSection& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Long, ByVal lpString As Long, ByVal lplFileName As String)
Public Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpfilename As String) As Long

Function VBGetPrivateProfileString(section$, key$, File$) As String
    Dim KeyValue$
    Dim characters As Long
   
   
    KeyValue$ = String$(128, 0)
    characters = GetPrivateProfileStringByKeyName(section$, key$, "", KeyValue$, 127, File$)

    If characters > 1 Then
        KeyValue$ = Left$(KeyValue$, characters)
    End If
   
    VBGetPrivateProfileString = KeyValue$

End Function


Public Function GetSectionNames(FileName As String, SectionNames As Variant) As Integer
    'GetSectionNames Return Number of Section in file
    'SectionNames return all section names
   
    Dim characters As Long
    Dim SectionList As String
    Dim ArrSection() As String
    Dim i As Integer
    Dim NullOffset%
   
    SectionList = String$(128, 0)

    ' Retrieve the list of keys in the section
    characters = GetPrivateProfileStringSections(0, 0, "", SectionList, 127, FileName)
   
    ' Load sections into Arrey
    i = 0
    Do
        NullOffset% = InStr(SectionList, Chr$(0))
        If NullOffset% > 1 Then
            ReDim Preserve ArrSection(i)
            ArrSection(i) = Mid$(SectionList, 1, NullOffset% - 1)
            SectionList$ = Mid$(SectionList, NullOffset% + 1)
            i = i + 1
        End If
    Loop While NullOffset% > 1
    GetSectionNames = i - 1
    SectionNames = ArrSection
   

End Function

Public Function GetKeyNames(SectionName As String, FileName As String, KeyNames As Variant) As Integer
    'GetKeyNames Return Number of key in section
    'KeyNames Return list of keyNames in section
   
    Dim characters As Long
    Dim KeyList As String
    Dim ArrKey() As String
    Dim i As Integer
   
    KeyList = String$(128, 0)
    ' Retrieve the list of keys in the section
   
    characters = GetPrivateProfileStringKeys(SectionName, 0, "", KeyList, 127, FileName)
   
    ' Load Keys into Arrey
    Dim NullOffset%
    i = 0
    Do
        NullOffset% = InStr(KeyList, Chr$(0))
        If NullOffset% > 1 Then
            ReDim Preserve ArrKey(i)
            ArrKey(i) = Mid$(KeyList, 1, NullOffset% - 1)
            KeyList$ = Mid$(KeyList, NullOffset% + 1)
            i = i + 1
        End If
    Loop While NullOffset% > 1
    GetKeyNames = i - 1
    KeyNames = ArrKey
End Function

Public Function DeleteKey(KeyName As String, SectionName As String, FileName As String) As Long
    'Return 0 if Deletion not sucsesful
       
    ' Delete the selected key
    DeleteKey = WritePrivateProfileStringToDeleteKey(SecName, lstKeys.Text, 0, FileName$)

   
End Function

Public Function WriteKey(SectionName As String, KeyName As String, KeyValue As String, FileName As String) As Long
    If Len(KeyValue) = 0 Then KeyValue = " "
    WriteKey = WritePrivateProfileStringByKeyName(SectionName, KeyName, KeyValue, FileName)
End Function

Public Function WriteSection(SectionName As String, FileName As String) As Long
    WriteSection = WritePrivateProfileSection(SectionName, "", FileName)
End Function
   
   
Public Function DeleteSection(SectionName, FileName) As Long
    DeleteSection = WritePrivateProfileStringToDeleteSection(SectionName, 0&, 0&, FileName)
End Function


[Dex]

Ща накатаю пример с PropertyBag

[KDima]

Ща накатаю пример с PropertyBag

Вот и всё разложим...
Кстати, а чё это такое

[Cryonyx]

Ща накатаю пример с PropertyBag

Вот и всё разложим...
Кстати, а чё это такое

PropertyBag-то
При помощи него ещё сохраняются установки в UserControl-ах

[HotKitten]

а если просто в отдельный файлик писать
запись - код из своей проги взял

If mnuOptionsShowLogo.Checked = False Then
Open "Logo.dat" For Output As #2
Print #2, "32"
Close #2
mnuOptionsShowLogo.Checked = True
Else
mnuOptionsShowLogo.Checked = False
Open "Logo.dat" For Output As #2
Print #2, "NoLogo"
Close #2
End If

чтетие - код из своей проги взял

Open "Logo.dat" For Input As #1
Input #1, Dblclk
Close #1
If Dblclk = 32 Then
frmLogo.Show
mnuOptionsShowLogo.Checked = True
Else
mnuOptionsShowLogo.Checked = False
End If

[Ship]

Ща накатаю пример с PropertyBag

Ну где же пример!?

[KDima]

а если просто в отдельный файлик писать
запись - код из своей проги взял

If mnuOptionsShowLogo.Checked = False Then
Open "Logo.dat" For Output As #2
Print #2, "32"
Close #2
mnuOptionsShowLogo.Checked = True
Else
mnuOptionsShowLogo.Checked = False
Open "Logo.dat" For Output As #2
Print #2, "NoLogo"
Close #2
End If

чтетие - код из своей проги взял

Open "Logo.dat" For Input As #1
Input #1, Dblclk
Close #1
If Dblclk = 32 Then
frmLogo.Show
mnuOptionsShowLogo.Checked = True
Else
mnuOptionsShowLogo.Checked = False
End If

Хм... ничего...
Я подозреваю, что такой код может написать каждый...

[HotKitten]

все гениальное просто!
заодно сократим размер проги, если не будем писать ini.bas

[KDima]

все гениальное просто!
заодно сократим размер проги, если не будем писать ini.bas

Зачем его писать?
Размер проги не слишком раздуется, а юзать INI.bas проще!
+ WinApi работает быстрее!

[GSerg]

Ага, только ini парсится каждый раз с начала, и его размер не может превышать 32 Кб...

[KDima]

Ага, только ini парсится каждый раз с начала, и его размер не может превышать 32 Кб...

А тебе мало?
У меня есть парсер не на Api!

[Cryonyx]

Народ, а чё такое INI.BAS

[Amed]

Имя модуля для работы с ini-файлами...

[Cryonyx]

Тьфу ты, точно, он же выше описан