Option Explicit
Dim strriga As String
Dim flag As Boolean
Dim flag2 As Boolean
Dim flag3 As Boolean
Dim stringa1 As String
Dim stringa2 As String
Dim data As String
Dim ora As String
Private Sub Form_Load()
stringa1 = ""
stringa2 = ""
flag3 = True
flag2 = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim ris As Integer
Dim ris2 As Integer
If flag3 Then
If Text1.Text <> "" Then
ris2 = MsgBox("Vuoi salvare nuovo documento?", vbExclamation + vbYesNoCancel, "Salva")
If ris2 = vbYes Then
cd.ShowSave
End If
If cd.FileName <> "" Then
Open cd.FileName For Output As #2
Print #2, Text1.Text
Close #2
End If
End If
If ris2 = vbNo Then
End
End If
If ris2 = vbCancel Then
Cancel = True
End If
If flag Then
If stringa1 <> stringa2 Then
ris = MsgBox("Il file è stato cambiato vuoi salvare i cambiamenti?", vbExclamation + vbYesNoCancel, "Salva con nome")
If cd.FileName <> "" Then
If ris = vbYes Then
Open cd.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
If ris = vbNo Then
End
End If
If ris = vbCancel Then
Cancel = True
End If
End If
End If
End If
End If
End Sub
Private Sub Form_Resize()
Text1.Width = Me.Width - 150
Text1.Height = Me.Height - 900
End Sub
Private Sub mnu10_Click()
If mnu10.Checked = False Then
mnu10.Checked = True
Text1.FontSize = 10
mnu14.Checked = False
mnu8.Checked = False
mnu12.Checked = False
Else
mnu10.Checked = False
mnu8.Checked = True
Text1.FontSize = 8
End If
End Sub
Private Sub mnu12_Click()
If mnu12.Checked = False Then
mnu12.Checked = True
Text1.FontSize = 12
mnu14.Checked = False
mnu8.Checked = False
mnu10.Checked = False
Else
mnu12.Checked = False
mnu8.Checked = True
Text1.FontSize = 8
End If
End Sub
Private Sub mnu14_Click()
Text1.FontSize = 14
End Sub
Private Sub mnuapri_Click()
cd.FileName = ""
cd.Filter = "File di testo|*.txt"
cd.ShowOpen
If cd.FileName <> "" Then
Open cd.FileName For Input As #1
While Not EOF(1)
Line Input #1, strriga
Text1.Text = Text1.Text & strriga & vbCrLf
stringa1 = Text1.Text
flag = True
Wend
Close #1
End If
End Sub
Private Sub mnubarrato_Click()
If mnubarrato.Checked = False Then
mnubarrato.Checked = True
Text1.FontStrikethru = True
Else
mnubarrato.Checked = False
Text1.FontStrikethru = False
End If
End Sub
Private Sub mnucanc_Click()
Text1.Text = ""
End Sub
Private Sub mnucorsivo_Click()
If mnucorsivo.Checked = False Then
mnucorsivo.Checked = True
mnunormale.Checked = False
mnugrassetto.Checked = False
mnugrassettocorsivo.Checked = False
Text1.FontItalic = True
Text1.FontBold = False
Else
mnucorsivo.Checked = False
Text1.FontItalic = False
Text1.FontBold = False
Text1.Font = True
mnunormale.Checked = True
End If
End Sub
Private Sub mnudataora_Click()
data = Date
ora = Time()
Text1.Text = Text1.Text & ora & " " & data
End Sub
Private Sub mnuesci_Click()
Dim ris As Integer
ris = MsgBox("Sei sicuro di voler uscire?", vbExclamation + vbYesNoCancel, "esci")
If ris = vbYes Then
End
End If
If ris = vbNo Then
Exit Sub
End If
End Sub
Private Sub mnugrassetto_Click()
If mnugrassetto.Checked = False Then
mnucorsivo.Checked = False
mnunormale.Checked = False
mnugrassetto.Checked = True
mnugrassettocorsivo.Checked = False
Text1.FontBold = True
Text1.FontItalic = False
Text1.Font = False
Else
mnugrassetto.Checked = False
Text1.FontBold = False
Text1.FontItalic = False
Text1.Font = True
mnunormale.Checked = True
End If
End Sub
Private Sub mnugrassettocorsivo_Click()
If mnugrassettocorsivo.Checked = False Then
mnucorsivo.Checked = False
mnunormale.Checked = False
mnugrassetto.Checked = False
mnugrassettocorsivo.Checked = True
Text1.FontItalic = True
Text1.FontBold = True
Else
mnugrassettocorsivo.Checked = False
Text1.FontBold = False
Text1.FontItalic = False
Text1.Font = True
mnunormale.Checked = True
End If
End Sub
Private Sub mnusalva_Click()
If flag2 Then
Call mnusalvaconnome_Click
Else
If cd.FileName <> "" Then
If Text1.Text <> "" Then
flag3 = False
Open cd.FileName For Output As #1
Print #1, Text1.Text
Close #1
End If
End If
End If
End Sub
Private Sub mnusalvaconnome_Click()
cd.FileName = ""
cd.Filter = "File di testo|*.txt"
cd.DialogTitle = "Salva con nome"
cd.ShowSave
If cd.FileName <> "" Then
flag2 = False
Open cd.FileName For Append As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Private Sub mnusottolineato_Click()
If mnusottolineato.Checked = False Then
mnusottolineato.Checked = True
Text1.FontUnderline = True
Else
mnusottolineato.Checked = False
Text1.FontUnderline = False
End If
End Sub
Private Sub Text1_Change()
stringa2 = Text1.Text
End Sub