Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Agenda - Frmcontatti.frm

Frmcontatti.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Option Explicit
  2.  
  3. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  4. Frmagenda.Enabled = True
  5. End Sub
  6.  
  7. Private Sub mnucanctutto_Click()
  8.  Dim m As Integer
  9.    m = FreeFile
  10.    If MsgBox("Sei sicuro di eliminare completamente la lista?" & vbCrLf _
  11.              & "[Se digiti SI tutti i dati andranno persi!!]" _
  12.              , vbQuestion + vbYesNoCancel, "Avviso") = vbYes Then
  13.           Open path For Output As #m
  14.         While Not EOF(m)
  15.           Print #m, ""
  16.         Wend
  17.      Close #m
  18.      End If
  19. End Sub
  20.  
  21. Private Sub mnunumcont_Click()
  22.  Dim s As Integer, acc As Integer, strlinea As String
  23.    s = FreeFile
  24.      Open path For Input As #s
  25.         While Not EOF(s)
  26.           Line Input #s, strlinea
  27.           acc = acc + 1
  28.         Wend
  29.      Close #s
  30.      MsgBox "Il numero dei contatti è " & acc, vbInformation, "Contatti"
  31. End Sub