listbox gem

brug funktionerne SaveSettings og getSettings de henholdsvis skriver og læser værdierne fra registry.

Det kan vel også gøres med en lille textfil?

- Mikker

Hej Kragsborg.

Som Mikker skriver - uden at angive hvordan.

Dim linie as string, a as Integer

Open app.path & \"\\dinfil.txt\" for output as #1
  for a= 0 to list1.listcount -1
    list1.listindex = a
    print #1, list1.text
  next a
Close #1

Indlæsning:

list1.clear
Open app.path & \"\\dinfil.txt\" for Input as #1
  Do while EOF(1) = False
    LineInput #1, linie
    list1.additem linie
  Loop
Close #1

Hvis jeg har glemt noget er det en tanketorsk.  Filen behøver selvfølgelig ikke ligge i app.path, den kan ligge hvorsomhelst, bare skriv stien.  \"D:\\diverse\\projekt7\\listdata.txt\"  f.eks.
M.v.h.  Jørn

Jeg takker for svarene Jørn og Kedde65 Jørn\'s
svar virkede fremragende. Jeg kunne godt tænke mig et eksempel på hvordan jeg kan bruge SaveSettings og getSettings.
Hvordan fordeler man pointene når man kan bruge flere af svarene? Jeg vil jo gerne være flink så der er nogle der gider hjælpe mig igen, kan man tildele flere point end man har udestående? hvordan?

kragsborg >>Det er ikke nogle god ide at gemme data fra en listbox i registerdatabasen

SaveSettings, GetSettings og DeleteSetting

Private Sub Delete_Click()

    DeleteSetting Me.Caption, \"Position\" \'Delete Position
    DeleteSetting Me.Caption            \'Delete All

End Sub

Private Sub Form_Load()

    Me.Top = Val(GetSetting(Me.Caption, \"Position\", \"Top\", \"180\"))        \'Get Top
    Me.Left = Val(GetSetting(Me.Caption, \"Position\", \"Left\", \"180\"))      \'Get Left
    Me.Width = Val(GetSetting(Me.Caption, \"Position\", \"Width\", \"4700\"))  \'Get Width
    Me.Height = Val(GetSetting(Me.Caption, \"Position\", \"Height\", \"3200\")) \'Get Height
    Me.WindowState = Val(GetSetting(Me.Caption, \"Position\", \"Window\"))    \'Get WindowState

End Sub
Private Sub Form_Unload(Cancel As Integer)

    If Me.WindowState = vbNormal Then
    SaveSetting Me.Caption, \"Position\", \"Top\", Str$(Me.Top)                  \'Set Top
    SaveSetting Me.Caption, \"Position\", \"Left\", Str$(Me.Left)                \'Set Left
    SaveSetting Me.Caption, \"Position\", \"Height\", Str$(Me.Height)            \'Set Height
    SaveSetting Me.Caption, \"Position\", \"Width\", Str$(Me.Width)              \'Set Width
    End If

    SaveSetting Me.Caption, \"Position\", \"Window\", LTrim$(Str$(Me.WindowState)) \'Set WindowState
End Sub

Det blev Jørns løsning der blev anvendt håber point fordelingen er ok ellers skriv jeg ved ikke om der er en anden politik for fordeling af point

Ok for mig, når bare man kan hjælpe. :-)