Jag har ett formulär med en hel del textboxar och checkboxar som jag vill spara till en fil. Jag vill kunna hämta in information från den sparade filen så att allt hamnar på sin respektive plats.
Man ska alltså ha möjligheter att spara sitt formulär med en knapp och döpa filen till ***.trv . Efter att man har stängt formuläret och öppnar det vid ett senare tillfälle så ska man kunna leta upp ***.trv och allt ska falla på sin plats....

Tack på förhand /Thomas

Använd CommonDialogs för att visa öppna och stäng dialoger. Du använder CommonDialogs antingen genom API eller Kontrollen.

Sedan är det nog enklast att lagra det som en tab-separerad textfil.
Kan man ju redigera den i Notpad.
Avd Häst Vald
1 1 True
1 2 False
1 3 False
osv...
2 1 False
2 2 True
2 3 False
osv...


Filhanteringen för detta ser ut något sånt här:
<code>
Private Sub Command1_Click()
Dim FileNo As Long
Dim FileName As String
Dim avd As avdelning
FileNo = FreeFile()
FileName = "c:\Test.txt"
Open FileName For Output Access Write Shared As FileNo
For Each avd In Avdelningar
For Index = 1 To 15
Print #FileNo, avd.Index & vbTab & Index & vbTab & avd.chkHäst(Index).Value = vbChecked
Next
Next
Close FileNo
End Sub

Private Sub Command2_Click()
Dim FileNo As Long
Dim FileName As String
Dim avd As avdelning
Dim Index As Long
Dim sTemp As String
Dim sValues() As String
FileNo = FreeFile()
FileName = "c:\Test.txt"
Open FileName For Input Access Read Shared As FileNo
Do Until EOF(FileNo)
Line Input #FileNo, sTemp
sValues = Split(sTemp, vbTab)
If CLng(sValues(3)) Then
Avdelningar(CLng(sValues(0))).chkHäst(CLng(sValues(2))).Checked = vbChecked
Else
Avdelningar(CLng(sValues(0))).chkHäst(CLng(sValues(2))).Checked = vbUnchecked
End If
Close FileNo
End Sub
</code>

P.S.
Du får själv lista ut hur du "publicera" hästarna på Avdelnings kontrollen. ;O)
D.S.