LISTATO 2 L'applicazione di esempio
Private Type DatiURL Indirizzo As String * 100 Descrizione As String * 100 End Type Dim Posizione As Long Dim LunghezzaRecord As Long Sub LeggiRecord() Dim Dato As DatiURL Get #1, Posizione, Dato txtURL.Text = Dato.Indirizzo txtDescrizione.Text = Dato.Descrizione End Sub Sub ScriviRecord() Dim Dato As DatiURL Dato.Indirizzo = txtURL.Text Dato.Descrizione = txtDescrizione.Text Put #1, Posizione, Dato End Sub Function ContaRecord() As Long ContaRecord = (LOF(1) / LunghezzaRecord) End Function Private Sub Form_Load() Dim Dato As DatiURL LunghezzaRecord = Len(Dato) Open "archivio.dat" For Random As #1 Len = LunghezzaRecord Posizione = 1 LeggiRecord End Sub Private Sub btnNuovo_Click() txtURL.Text = "" txtDescrizione.Text = "" Posizione = 1 + ContaRecord() ScriviRecord End Sub Private Sub BtnSalva_Click() ScriviRecord End Sub Private Sub btnPrecedente_Click() If Posizione > 1 Then Posizione = Posizione - 1 LeggiRecord Else Beep End If End Sub Private Sub btnSuccessivo_Click() If Posizione < ContaRecord() Then Posizione = Posizione + 1 LeggiRecord Else Beep End If End Sub Private Sub Form_Unload(Cancel As Integer) Close #1 End Sub