|
Option Explicit
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Frmagenda.Enabled = True
End Sub
Private Sub mnucanctutto_Click()
Dim m As Integer
m = FreeFile
If MsgBox("Sei sicuro di eliminare completamente la lista?" & vbCrLf _
& "[Se digiti SI tutti i dati andranno persi!!]" _
, vbQuestion + vbYesNoCancel, "Avviso") = vbYes Then
Open path For Output As #m
While Not EOF(m)
Print #m, ""
Wend
Close #m
End If
End Sub
Private Sub mnunumcont_Click()
Dim s As Integer, acc As Integer, strlinea As String
s = FreeFile
Open path For Input As #s
While Not EOF(s)
Line Input #s, strlinea
acc = acc + 1
Wend
Close #s
MsgBox "Il numero dei contatti è " & acc, vbInformation, "Contatti"
End Sub
|
|