Option Explicit
Private Sub cmdcancelirene_Click()
Dim numero4 As Integer
Dim r2 As Integer, i As Integer
If Frmtaborirene.Listtabirene.ListIndex <> -1 And Frmtaborirene.Listtabirene.ListCount <> 0 Then
r2 = MsgBox("Sei sicuro di voler eliminare l'elemento selezionato?", vbQuestion + vbYesNo, "Elimina file")
If r2 = vbYes Then
Frmtaborirene.Listtabirene.RemoveItem Frmtaborirene.Listtabirene.ListIndex
numero4 = FreeFile
Open "orariirene.dat" For Output As #numero4
For i = 0 To (Frmtaborirene.Listtabirene.ListCount - 1)
Print #numero4, Frmtaborirene.Listtabirene.List(i)
Next i
Close #numero4
End If
End If
End Sub
Private Sub cmdcanctutto_Click()
Dim risp2 As Integer
Dim n2 As Integer
n2 = FreeFile
If Frmtaborirene.Listtabirene.ListCount <> 0 Then
risp2 = MsgBox("Sei sicuro di voler eliminare tutti i tuoi dati?(se digiti SI tutti i tuoi dati andranno persi!)", vbExclamation + vbYesNoCancel, "Avviso")
If risp2 = vbYes Then
Listtabirene.Clear
cmdcanctutto.Enabled = False
Open "orariirene.dat" For Output As #n2
While Not EOF(n2)
Print #n2, ""
Wend
Close #n2
End If
Else
MsgBox "Il database è vuoto!!", vbInformation, "Info"
End If
End Sub