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