Jens skrev:
> Tomas du skriver og skriver men der kommer ingen løsning på problemet fra
> dig....
Jamen, jeg synes da at det var en udmærket løsning, blot ville jeg måske
lige flytte rundt på et par småting og foretage et par små-ændringer.
Personligt ville jeg nok benytte mig af Ove Steen Hansens løsning, idet den
performer langt bedre, men hvis man gerne vil se listen-boksen "rulle"
samtidig med at indholdet gemmes på disk, er noget i stil med dit forslag
helt anvendeligt.
Her er en lidt mere "forkromet" udgave af dit forslag:
Option Explicit
Private Const INTER_FEJL As Long = 20000
Sub GemFil(ByVal oListBox As ListBox, _
ByVal sFilNavn As String)
Dim iFil As Integer
Dim lGlIndex As Long
On Error GoTo Fejl
IgenIgenIgen:
iFil = FreeFile
Open sFilNavn For Output As #iFil
lGlIndex = oListBox.ListIndex
oListBox.ListIndex = -1
Do While oListBox.ListIndex + 1 < oListBox.ListCount
oListBox.ListIndex = oListBox.ListIndex + 1
Print #iFil, oListBox.Text
Loop
oListBox.ListIndex = lGlIndex
Close #iFil
Exit Sub
Fejl:
If iFil <> 0 Then Close #iFil
If MsgBox("Der opstod en fejl (" & Err.Number & ": " &
Err.Description & _
") ved skrivning til filen """ & sFilNavn & """!" & vbCr & vbCr
& _
"Vil du prøve at gemme filen igen?", vbRetryCancel Or
vbDefaultButton1 _
Or vbCritical, "Kan ikke gemme fil") = vbRetry Then
Resume IgenIgenIgen
Else
Err.Raise INTER_FEJL, "Sub GemFil", "Fejl " & Err.Number & _
": " & Err.Description & " ved skrivning til filen """ & _
sFilNavn & """"
End If
End Sub
Private Sub Command1_Click()
GemFil List1, "d:\work\listbox1.txt"
End Sub
Private Sub Command2_Click()
GemFil List2, "d:\work\listbox2.txt"
End Sub
> Den lidt fornærmet Jens
Det har på intet tidspunkt været min mening at fornærme dig, men når man
skriver noget kode i et forum, hvor mange nybegyndere må forventes at læse
og benytte koden i indlæggene, er det uheldig, hvis der er kode, som vil
give problemer. Hvis du har haft mulighed for at følge indlæg gennem længere
tid, har du også set at jeg har begået "mindre heldige" ting og er blevet
korrekset - og har dermed tilmed LÆRT noget
-------
Tomas