Option Explicit
Public GiornoMeseAnno As String
Public XCorso1 As String
Public XCorso2 As String
Public XCorso3 As String
Public Salvato As Boolean
Private Sub Salva(Dove As String)
Dim FileNumber As Integer
FileNumber = FreeFile
Open Dove For Output As #FileNumber
Print #FileNumber, txtNote.Text
Close #FileNumber
Salvato = True
End Sub
Private Sub Apri(Dove As String)
On Error GoTo Esci
Dim FileNumber As Integer
Dim LineA As String
FileNumber = FreeFile
Open Dove For Input As FileNumber
Do
Input #FileNumber, LineA
txtNote.Text = txtNote.Text & LineA & vbCrLf
Loop Until EOF(1) = True
Close #FileNumber
Exit Sub
Esci:
End Sub
Private Sub accDiffrenza_Click()
SecondarioAccessori.Show
End Sub
Private Sub accGiorno_Click()
Dim DataGiorno As String
DataGiorno = InputBox("Inserisci la data per sapere il nome del giorno" & String(3, vbCrLf) & "Formato data:" & String(4, vbTab) & "gg\mm\aaaa", , Date)
If IsDate(DataGiorno) = False Then GoTo NOData
MsgBox Format(DataGiorno, "dddd dd mmmm-mm yyyy")
Exit Sub
NOData:
MsgBox "Errore, dati inseirti non corretti" & vbCrLf & vbCrLf & "Inserisci la data in formato: gg\mm\aaaa", vbOKOnly + vbCritical
End Sub
Private Sub Accessori_Click()
SecondarioAccessori.Show
End Sub
Private Sub Calendar_Click()
On Error Resume Next
GiornoMeseAnno = Format(Calendar, "dddd dd mmmm yyyy") & ".txt"
XCorso1 = "C:\Calendario"
XCorso2 = "C:\Calendario\" & Format(Calendar, "mmmm")
XCorso3 = "C:\Calendario\" & Format(Calendar, "mmmm") & "\" & Format(Calendar, "dddd dd")
Apri (XCorso3 & "\" & GiornoMeseAnno)
txtNote.SetFocus
End Sub
Private Sub flEnd_Click()
Form_Unload (0)
End Sub
Private Sub flSave_Click()
On Error Resume Next
MkDir (XCorso1)
MkDir (XCorso2)
MkDir (XCorso3)
Salva (XCorso3 & "\" & GiornoMeseAnno)
End Sub
Private Sub Form_Load()
Calendar.Today
Calendar_Click
CDialog.Flags = cdlCCFullOpen
Salvato = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Uscita As VbMsgBoxResult
If Salvato = False Then
Uscita = MsgBox("Il testo del file è stato cambiato" & vbCrLf & "Salvare le modifiche apportate al documento e poi uscire?", vbExclamation + vbYesNoCancel)
If Uscita = vbYes Then Salva (XCorso3 & "\" & GiornoMeseAnno)
If Uscita = vbCancel Then Cancel = 1
If Uscita = vbNo Or Uscita = vbYes Then Unload SecondarioAccessori
Else: End
End If
End Sub
Private Sub GoToday_Click()
Calendar.Today
End Sub
Private Sub insData_Click()
txtNote.Text = txtNote.Text & Date
txtNote.SelStart = Len(txtNote)
End Sub
Private Sub insDataOra_Click()
txtNote.Text = txtNote.Text & Now
txtNote.SelStart = Len(txtNote)
End Sub
Private Sub insOra_Click()
txtNote.Text = txtNote.Text & Time
txtNote.SelStart = Len(txtNote)
End Sub
Private Sub modChar_Click()
With CDialog
.FontName = txtNote.Font.Name
.FontSize = txtNote.Font.Size
.FontBold = txtNote.Font.Bold
.FontItalic = txtNote.Font.Italic
.FontStrikethru = txtNote.Font.Strikethrough
.FontUnderline = txtNote.Font.Underline
End With
CDialog.ShowFont
With txtNote
.Font.Name = CDialog.FontName
.Font.Size = CDialog.FontSize
.Font.Bold = CDialog.FontBold
.Font.Italic = CDialog.FontItalic
.Font.Strikethrough = CDialog.FontStrikethru
.Font.Underline = CDialog.FontUnderline
End With
End Sub
Private Sub txtNote_Change()
Salvato = False
End Sub
