Windowliste i SDI-formulär

Det är väl bara att spara vilka filer man senast har öppnat? Eller hur menar du?

Jo jag menar att jag i menyn ville ha de filer som jag har öppnat senast. Det går ju enkelt i ett MDI-formulär, men i ett SDI?

Det är väl bara att göra på samma sätt som du gjorde i MDI?

Nix, det fungerar inte.

det är bara att spara dom filnamn i ett text doc eller liknande och göra en loop.
att ladda menyer med index.

förstår du eller ska jag göra ett exempel.

Gör så att gå in i meny editor.

Gör en meny typ
Arkiv

sen en under meny typ ett stäck
- kalla den för mnu sätt index=0

skriv in detta i Form_Load

Dim i
i = 1
For i = 1 To 5
Load mnu
mnu(i).Tag = GetSetting("AppName", "Senaste", "Sök_Väg", "")
mnu(i).Caption = GetSetting("AppName", "Senaste", "Filnamnet", "")Next i

Sen under mnu_Click()

Skriv in att öppna mnu(index).tag

sen får du väl ändra om så den passar dig.
om du sparat filnamnen i registret eller i en fil

denna laddar in dom från registret

och i Form_unload
skriv i n Följande

Dim i
i = 1
For i = 1 To 5
Load mnu
SaveSetting "AppName", "Senaste", "Sök_väg", senaste(i).text
    SaveSetting "AppName", "Senaste", "Filnamnet", senaste(i).text 
Next i

om det är så du menar att du vill göra.

Hej PsyDonia
Har bara som hastigast kollat din kod, men DET ÄR JU DET JAG VILLE HA.

Här kommer ett fång rosor till dig...

Så bra...

Tack för Rosorna.
hehe

Jag får problem med:
Load mnu (error: Can't load or unload this object)
Här känner jag mig osäker: Skriv in att öppna mnu(index).tag
Är detta fel:
Private Sub mnu_Click(Index As Integer)
mnu(Index).Tag
End Sub

Jag skulle vara tacksam för en "översättning" av detta:

SaveSetting "AppName", "Senaste", "Sök_väg", senaste(i).text 
SaveSetting "AppName", "Senaste", "Filnamnet", senaste(i).text

Appname där plockar den väll fram vad jag kallar min applikation?
Senaste ??
Sök_väg där förstår vi nog varandra.
senaste(i).text ??
Filnamnet det kan väll bara vara ett...

Appname kan du skriva in vad ditt program heter.
Senaste är som en underkatalog till appname i registret
sök_väg precis va det är. själva det som sparas.
Jag tog bara som exempel Senaste(i).text kan t.ex.
senaste är själva The Value som ska sparas til registret..

Private Sub mnu_Click(Index As Integer)
mnu(Index).Tag
End Sub

det är precis rätt.

men om det är ett text doc som ska öppnas
så kör typ.

Private Sub mnu_Click(Index As Integer)
öppna en fil i binärläge
filnamnet är mnu(Index).Tag
End Sub