Option Explicit
Private Sub Cmdcancellatuttom_Click()
Dim risp2 As Integer
Dim n2 As Integer
n2 = FreeFile
If Frmtabormar.Listtabmar.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
Listtabmar.Clear
Cmdcancellatuttom.Enabled = False
Open "orarimar.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
Private Sub cmddelelem_Click()
Dim numero4 As Integer
Dim r2 As Integer, i As Integer
If Frmtabormar.Listtabmar.ListIndex <> -1 And Frmtabormar.Listtabmar.ListCount <> 0 Then
r2 = MsgBox("Sei sicuro di voler eliminare l'elemento selezionato?", vbQuestion + vbYesNo, "Elimina file")
If r2 = vbYes Then
Frmtabormar.Listtabmar.RemoveItem Frmtabormar.Listtabmar.ListIndex
numero4 = FreeFile
Open "orarimar.dat" For Output As #numero4
For i = 0 To (Frmtabormar.Listtabmar.ListCount - 1)
Print #numero4, Frmtabormar.Listtabmar.List(i)
Next i
Close #numero4
End If
End If
End Sub
Private Sub Listtabmar_Click()
Cmdcancellatuttom.Enabled = True
End Sub