Förinställda variabler och inställningar

Spara värdena i registret. Kolla funktioner som GetSetting och SaveSetting tex.

ini fil?

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

Private DatorNamn As String

Public Sub Form_Load()
    Dim dnamn As Long
    Dim sKeyValue As String
    Dim fsIniPath

    
    fsIniPath = App.Path & "\wsm.ini"
    sKeyValue = Space(255)

    
    dnamn = GetPrivateProfileString("Sektion", "variabelnamn", "", sKeyValue, Len(sKeyValue), fsIniPath)
    minVariabel = Replace(RTrim(sKeyValue), Chr(0), "")

End Sub

Är inte säker men jag tror att Public Declare Funktionen ska ligga i en modul

För att skriva:

Public Declare Function WritePrivateProfileString Lib "kernel32" _
        Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _
        As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
        ByVal lpFileName As String) As Long

Private Sub cmdOK_Click()
Dim fsIniPath
Dim strDatn As String

strDatn = Trim(txtNamn.Text)

Call WritePrivateProfileString("Sektion", "variabelnamn", strDatn , fsIniPath)

    Unload Me
End Sub

Om man absolut vill inkludera externa funktioner, kan man lika gärna använda diverse Reg*-funktioner, som RegQueryValueEx, RegSetValueEx, RegCreateKeyEx, RegOpenKeyEx, etc. Alla finns i hjälpdokumentationen. De ger ytterliggare möjligheter att komma åt registret.

Tack för hjälpen, ska testa med en gång :birp