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