Håller på att modefiera och då knackar ju problemen på dörren. Fel av mig.Register-problem
IForm_QueryUnload ser det bl a ut så här:
<code>
Sparat = GetSetting(App.Title, Beskrivning, Objekt, 0)
Beskrivning = "Spara webbplats"
URL = frMultiLanguage.StatusBar1.Panels(1).Text
Filnamn = frMultiLanguage.File1.FileName
If Sparat = 1 Then
Beskrivning = "Senast öppnade webbplats"
SaveSetting App.Title, Beskrivning, URL, Filnamn
End If
</code>
Går jag till registret så ser jag, snyggt och prydligt, en mapp med app.namnet,
en undermapp som heter Spara webbplats".
En nyckel med URL:en, REG_SZ och filnamnet.
Helt kanon.
Sen skall jag hämta detta i Activate.
<code>
Beskrivning = "Senast öppnade webbplats"
URL = GetSetting(App.Title, Beskrivning, URL, Filnamn)'<-- HÄR BLIR DET FEL
If Len(URL) > 0 Then
strURL = Split(URL, "\")
sURL = strURL(UBound(strURL))
mnuRecent.Visible = True
mnuSep1.Visible = True
mnuRecent.Caption = sURL
End If
</code>
Jag får ett error:
<code>
Err.Number "5 Invalid procedur call or argument"
</code>
Detta har ju fungerat innan, vad gör jag för fel?Sv: Register-problem
<code>
'för att spara
Beskrivning = "Spara webbplats"
Objekt = "Sparat"
Varde = frmInstallningar.Check1.Value
SaveSetting App.Title, Beskrivning, Objekt, CStr(frmInstallningar.Check1.Value)
'Hämta
Beskrivning = "Senast öppnade webbplats"
Objekt = "Webbplats"
Text1.Text = GetSetting(App.Title, Beskrivning, Objekt, URL)
</code>