[VB6]Variabelen opslaan

Pagina: 1
Acties:

  • damouzer
  • Registratie: Oktober 2000
  • Laatst online: 09:50
Ik ben met Visual Basic begonnen om effe wat te coden.

Maar nu zit ik met een probleem. Ik hab al wat boeken doorgelezen en wat site bekeken, maar kon het niet vinden (search... jah die werkt lekker ;) )

Hier mijn vraag/probleem.

denk je in... :z

Ik heb een formulier gemaakt met allemaal aanvink vakjes.

Nu krijg ik van ieder vakje mooi de waarde 2 als ie wordt aangevinkt (default).

Nu wil ik mijn applicatie afsluiten en deze var's opslaan en als ik het proggie dan weer opnieuw start, dan moeten de aangevinkte vakjes weer aangevinkt worden (volg je me nog :) )

Ik denk dat ik dit met een extern bestand moet oplossen, maar ik weet het even niet meer....

Kan iemand mij helpen?

Alvast bedankt!!!

  • damouzer
  • Registratie: Oktober 2000
  • Laatst online: 09:50
Heb ik hier het juiste stukkie code te pakken???


Public Function ReadINI(strsection As String, strkey As String, strfullpath As String) As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'read ini '
'x = readini("Example INI", "Example", "C:\Example.ini")'
'MsgBox X '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strbuffer As String
Let strbuffer$ = String$(750, Chr$(0&))
Let readini$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function

Public Sub WriteINI(strsection As String, strkey As String, strkeyvalue As String, strfullpath As String)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'write ini '
'Call writeini("Example INI", "Example", "Yes", "C:\Example.ini")'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Call WritePrivateProfileString(strsection$, UCase$(strkey$), strkeyvalue$, strfullpath$)
End Sub

Verwijderd

Beter is misschien om t is t register op te slaan (SaveSetting).

  • whoami
  • Registratie: December 2000
  • Laatst online: 23:04
Of je het juiste stuk code te pakken hangt kan je uittesten.
En het opslaan in het register is misschien iets netter (zoals dev zegt).

GoT biedt ook geen 'ondersteuning' voor scriptjes/stukjes code die je hebt afgehaald van een of andere site zoals hotscripts.

https://fgheysels.github.io/