Public Class Frmedit
Dim flag As Boolean
Dim risposta As Integer
Private Sub ApriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApriToolStripMenuItem.Click
Dim f As Integer
f = FreeFile()
With Open
.Filter = "Rtf|*.rtf"
.FileName = ""
.Title = "Apri RTF"
.ShowDialog()
End With
If Open.FileName <> "" Then
rtxt.LoadFile(Open.FileName, RichTextBoxStreamType.RichText)
End If
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
risposta = MsgBox("Sei sicuro di voler uscire?", MsgBoxStyle.YesNoCancel, "Esci?")
If risposta = vbYes Then
End
Else
Exit Sub
End If
End Sub
Private Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
With Save
.Title = "Salva RTF"
.FileName = "Nomefile"
.Filter = "RTF|*.rtf"
.ShowDialog()
rtxt.SaveFile(Save.FileName, RichTextBoxStreamType.RichText)
flag = True
End With
End Sub
Private Sub CarattereToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CarattereToolStripMenuItem1.Click
With fd
.ShowColor = True
.ShowDialog()
End With
rtxt.SelectionFont = fd.Font
End Sub
Private Sub ColoreToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColoreToolStripMenuItem1.Click
cd.ShowDialog()
rtxt.SelectionColor = cd.Color
rtxt.ForeColor = Color.Black
End Sub
Private Sub CancellaTuttoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancellaTuttoToolStripMenuItem.Click
rtxt.Text = ""
End Sub
Private Sub CancellaSelezioneToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancellaSelezioneToolStripMenuItem.Click
rtxt.SelectedText = ""
End Sub
Private Sub Frmedit_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Not flag Then
risposta = MsgBox("Vuoi salvare prima di uscire?", MsgBoxStyle.YesNoCancel, "Salva?")
If risposta = vbYes Then
With Save
.Title = "Salva RTF"
.FileName = "Nomefile"
.Filter = "RTF|*.rtf"
.ShowDialog()
rtxt.SaveFile(Save.FileName, RichTextBoxStreamType.RichText)
flag = True
End With
End
Else
End
End If
End If
End Sub
Private Sub Frmedit_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
flag = False
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
Frmabout.Show()
End Sub
End Class