Public cc As Integer

Dim striga As String

Dim stringa As String

Private Sub Cmdavanti_Click()

  If cc < numcontatti Then

     cc = cc + 1

     Call mostracontatto(cc)

  End If

End Sub

 

Private Sub cmdindietro_Click()

  If cc > 1 Then

     cc = cc - 1

     Call mostracontatto(cc)

  End If

End Sub

 

Private Sub mnuapri_Click()

 Dim strriga As String

  cd.Filter = "File database(.alb)|*.alb"

  cd.ShowOpen

         If cd.FileName <> "" Then

           Open cd.FileName For Input As #1

                numcontatti = 0

                 While Not EOF(1)

                    numcontatti = numcontatti + 1

                    Line Input #1, strriga

                    ReDim Preserve contatti(1 To numcontatti) As tcontatto

                    contatti(numcontatti).cognome = Mid(strriga, 1, 30)

                    contatti(numcontatti).nome = Mid(strriga, 31, 30)

                    contatti(numcontatti).indirizzo = Mid(strriga, 61, 30)

                    contatti(numcontatti).tel = Mid(strriga, 91, 15)

                    contatti(numcontatti).cell = Mid(strriga, 106, 15)

                    contatti(numcontatti).email = Mid(strriga, 121, 20)

                 Wend

           Close #1

         End If

             If numcontatti > 0 Then

                cc = 1

                Call mostracontatto(cc)

             Else

                cc = 0

             End If

End Sub

Private Sub mnudelcontatto_Click()

 txtcogn.Text = ""

 txtnome.Text = ""

 txtindirizzo.Text = ""

 txttel.Text = ""

 txtcell.Text = ""

 txtemail.Text = ""

   Open cd.FileName For Append As #1

        contatti(numcontatti).cognome = ""

        contatti(numcontatti).nome = ""

        contatti(numcontatti).indirizzo = ""

        contatti(numcontatti).tel = ""

        contatti(numcontatti).cell = ""

        contatti(numcontatti).email = ""

        stringa = contatti(numcontatti).cognome & contatti(numcontatti).nome & contatti(numcontatti).indirizzo & contatti(numcontatti).tel & contatti(numcontatti).cell & contatti(numcontatti).email

        Line Input #1, striga

          If strriga = "" Then

             Print #1, stringa

          End If

   Close #1

End Sub

 

Private Sub mnuesci_Click()

 Dim ris As Integer

  ris = MsgBox("Vuoi uscire dal programma?", vbQuestion + vbYesNo, "esci")

         If ris = vbYes Then

            End

         Else

            Cancel = True

         End If

End Sub

 

 

Private Sub mnuncontatto_Click()

 txtcogn.Text = ""

 txtnome.Text = ""

 txtindirizzo.Text = ""

 txttel.Text = ""

 txtcell.Text = ""

 txtemail.Text = ""

End Sub

 

Private Sub mnusalva_Click()

 numcontatti = numcontatti + 1

   ReDim Preserve contatti(1 To numcontatti) As tcontatto

     contatti(numcontatti).cognome = txtcogn.Text

     contatti(numcontatti).nome = txtnome.Text

     contatti(numcontatti).indirizzo = txtindirizzo.Text

     contatti(numcontatti).tel = txttel.Text

     contatti(numcontatti).cell = txtcell.Text

     contatti(numcontatti).email = txtemail.Text

     strriga = contatti(numcontatti).cognome & contatti(numcontatti).nome & contatti(numcontatti).indirizzo & contatti(numcontatti).tel & contatti(numcontatti).cell & contatti(numcontatti).email

     cd.FileName = ""

     cd.Filter = "File database(.alb)|*.alb"

     cd.ShowSave

        If cd.FileName <> "" Then

           Open cd.FileName For Append As #1

                Print #1, strriga

           Close #1

        End If

End Sub

 

Public Sub mostracontatto(numero As Integer)

txtcogn.Text = contatti(numero).cognome

txtnome.Text = contatti(numero).nome

txtindirizzo.Text = contatti(numero).indirizzo

txttel.Text = contatti(numero).tel

txtcell.Text = contatti(numero).cell

txtemail.Text = contatti(numero).email

End Sub