Option Explicit
Private Sub Cmddeldatabase_Click()
Dim risp2 As Integer
Dim n2 As Integer
n2 = FreeFile
If Frmtabdatibimbi.Listbimbi.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
Listbimbi.Clear
Cmddeldatabase.Enabled = False
Open "datibimbi.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 numero3 As Integer
Dim r As Integer, j As Integer
If Frmtabdatibimbi.Listbimbi.ListIndex <> -1 And Frmtabdatibimbi.Listbimbi.ListCount <> 0 Then
r = MsgBox("Sei sicuro di voler eliminare l'elemento selezionato?", vbQuestion + vbYesNo, "Elimina file")
If r = vbYes Then
Frmtabdatibimbi.Listbimbi.RemoveItem Frmtabdatibimbi.Listbimbi.ListIndex
numero3 = FreeFile
Open "datibimbi.dat" For Output As #numero3
For j = 0 To (Frmtabdatibimbi.Listbimbi.ListCount - 1)
Print #numero3, Frmtabdatibimbi.Listbimbi.List(j)
Next j
Close #numero3
End If
End If
End Sub