Imports System.Windows.Forms
Public Class Form1
Dim flag As Boolean
Dim risposta As Integer
Private Sub Tsmi_SalvaNome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tsmi_SalvaNome.Click
'Viene visualizzata la finestra di dialogo
If Fsave.ShowDialog = Windows.Forms.DialogResult.OK Then
'Apriamo un file In scrittura, di cui ci assicuriamo che l'utente acconsenta
'alla sovrascrittura se già esistente mediante la proprietà OverwritePrompt
Dim W As New IO.StreamWriter(Fsave.FileName)
flag = True
'Scrive tutto il contenuto della textbox nel file
W.Write(Txt_testo.Text)
W.Close()
End If
End Sub
Private Sub Frmedit_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If flag = False Then
If Fsave.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End If
If flag = True Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End Sub
Private Sub Tsmi_Salva_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tsmi_Salva.Click
If flag = False Then
If Fsave.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End If
If flag = True Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End Sub
Private Sub Tsmi_ApriFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tsmi_ApriFile.Click
'La funzione ShowDialog visualizza la finestra di dialogo e restituisce quale pulsante è stato premuto
'Se il pulsante corrisponde con OK, procediamo
If Fopen.ShowDialog = Windows.Forms.DialogResult.OK Then
'Apriamo un file In lettura
'Usiamo la proprietà FileName di FOpen, che restituisce il nome del file selezionato: siamo sicuri
'che il file esista perchè l'utente ha premuto Ok e non ha chiuso la finestra di dialogo
Dim R As New IO.StreamReader(Fopen.FileName)
'Legge tutto il testo del file e lo deposita nella textbox
Txt_testo.Text = R.ReadToEnd
R.Close()
flag = True
End If
End Sub
Private Sub Tsmi_ApriNuovo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tsmi_ApriNuovo.Click
Txt_testo.Text = " "
flag = False
End Sub
Private Sub Tsmi_Esci_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tsmi_Esci.Click
If flag = False Then
If Fsave.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End If
If flag = True Then
Dim W As New IO.StreamWriter(Fsave.FileName)
W.Write(Txt_testo.Text)
W.Close()
End If
End Sub
Private Sub Tsmi_Apri_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tsmi_Apri.MouseHover
Tsmi_ApriFile.ShowDropDown()
End Sub
Private Sub Tsmi_Carattere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tsmi_Carattere.Click
If FontDialog1.ShowDialog() <> DialogResult.Cancel Then
Txt_testo.Font = FontDialog1.Font
End If
End Sub
End Class