Public Class TextEditor
Private Sub InformazionisuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InformazionisuToolStripMenuItem.Click
AboutBox.ShowDialog()
End Sub
Private Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripMenuItem.Click
If Salva.FileName = "" Then
Salva.ShowDialog()
Else
RichTextBox1.SaveFile(Salva.FileName)
End If
End Sub
Private Sub Salva_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Salva.FileOk
RichTextBox1.SaveFile(Salva.FileName)
Me.Text = "GN Mini Text Editor - " + Me.Salva.FileName
End Sub
Private Sub SalvaToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripButton.Click
If Salva.FileName = "" Then
Salva.ShowDialog()
Else
RichTextBox1.SaveFile(Salva.FileName)
End If
End Sub
Private Sub ApriToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApriToolStripMenuItem.Click
Apri.ShowDialog()
End Sub
Private Sub Apri_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Apri.FileOk
RichTextBox1.LoadFile(Apri.FileName)
Me.Text = "GN Mini Text Editor - " + Me.Apri.FileName
End Sub
Private Sub ApriToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ApriToolStripButton.Click
Apri.ShowDialog()
End Sub
Private Sub NuovoToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuovoToolStripButton.Click
RichTextBox1.Text = ""
End Sub
Private Sub NuovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuovoToolStripMenuItem.Click
RichTextBox1.Text = ""
End Sub
Private Sub StampaToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StampaToolStripButton.Click
Stampa.Document = StampaDocumento
Dim result As DialogResult = Stampa.ShowDialog()
If (result = Windows.Forms.DialogResult.OK) Then
StampaDocumento.Print()
End If
End Sub
Private Sub StampaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StampaToolStripMenuItem.Click
Stampa.Document = StampaDocumento
Dim result As DialogResult = Stampa.ShowDialog()
If (result = Windows.Forms.DialogResult.OK) Then
StampaDocumento.Print()
End If
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles StampaDocumento.PrintPage
e.Graphics.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, 150, 125)
End Sub
Private Sub TagliaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagliaToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub
Private Sub TagliaToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagliaToolStripButton.Click
RichTextBox1.Cut()
IncollaToolStripButton.Enabled = True
IncollaToolStripMenuItem.Enabled = True
ToolStripMenuItem3.Enabled = True
End Sub
Private Sub CopiaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiaToolStripMenuItem.Click
RichTextBox1.Copy()
IncollaToolStripButton.Enabled = True
IncollaToolStripMenuItem.Enabled = True
ToolStripMenuItem3.Enabled = True
End Sub
Private Sub CopiaToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiaToolStripButton.Click
RichTextBox1.Copy()
End Sub
Private Sub IncollaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IncollaToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub
Private Sub IncollaToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IncollaToolStripButton.Click
RichTextBox1.Paste()
End Sub
Private Sub SelezionatuttoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelezionatuttoToolStripMenuItem.Click
RichTextBox1.SelectAll()
End Sub
Private Sub AnnullaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AnnullaToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub
Private Sub RipetiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RipetiToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub
Private Sub ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton.Click
AboutBox.ShowDialog()
End Sub
Private Sub TextEditor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Carattere.Text = My.Settings.CaratterePredefinito.Name & ","
DimensioneCarattere.Text = My.Settings.CaratterePredefinito.SizeInPoints
RichTextBox1.Font = My.Settings.CaratterePredefinito
RichTextBox1.ForeColor = My.Settings.ColoreCaratterePredefinito
RichTextBox1.AutoWordSelection = My.Settings.SelezionaParole
If My.Settings.ColoreSfondoPredefinito = Color.White Then
ColoreSfondo.SelectedItem = "Bianco"
End If
If My.Settings.ColoreSfondoPredefinito = Color.Black Then
ColoreSfondo.SelectedItem = "Nero"
RichTextBox1.BackColor = Color.Black
End If
If My.Settings.ColoreSfondoPredefinito = Color.Red Then
ColoreSfondo.SelectedItem = "Rosso"
RichTextBox1.BackColor = Color.Red
End If
If My.Settings.ColoreSfondoPredefinito = Color.Blue Then
ColoreSfondo.SelectedItem = "Blu"
RichTextBox1.BackColor = Color.Blue
End If
If My.Settings.ColoreSfondoPredefinito = Color.Green Then
ColoreSfondo.SelectedItem = "Verde"
RichTextBox1.BackColor = Color.Green
End If
If My.Settings.ColoreSfondoPredefinito = Color.Yellow Then
ColoreSfondo.SelectedItem = "Giallo"
RichTextBox1.BackColor = Color.Yellow
End If
If My.Settings.ColoreSfondoPredefinito = Color.Orange Then
ColoreSfondo.SelectedItem = "Arancio"
RichTextBox1.BackColor = Color.Orange
End If
If My.Settings.ColoreSfondoPredefinito = Color.Violet Then
ColoreSfondo.SelectedItem = "Viola"
RichTextBox1.BackColor = Color.Violet
End If
If My.Settings.ColoreSfondoPredefinito <> Color.White And My.Settings.ColoreSfondoPredefinito <> Color.Black And My.Settings.ColoreSfondoPredefinito <> Color.Red And My.Settings.ColoreSfondoPredefinito <> Color.Blue And My.Settings.ColoreSfondoPredefinito <> Color.Green And My.Settings.ColoreSfondoPredefinito <> Color.Yellow And My.Settings.ColoreSfondoPredefinito <> Color.Orange And My.Settings.ColoreSfondoPredefinito <> Color.Violet Then
ColoreSfondo.Visible = False
RichTextBox1.BackColor = My.Settings.ColoreSfondoPredefinito
ColoreSfondo.SelectedItem = "Altri colori..."
End If
Dim MyFormat As DataFormats.Format = DataFormats.GetFormat(DataFormats.Text)
If RichTextBox1.CanPaste(MyFormat) = False Then
IncollaToolStripButton.Enabled = False
IncollaToolStripMenuItem.Enabled = False
ToolStripMenuItem3.Enabled = False
End If
End Sub
Private Sub ModificaCarattere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificaCarattere.Click
SelezioneCarattere.ShowDialog()
RichTextBox1.ForeColor = SelezioneCarattere.Color
RichTextBox1.Font = SelezioneCarattere.Font
Carattere.Text = RichTextBox1.Font.Name + ","
DimensioneCarattere.Text = RichTextBox1.Font.SizeInPoints
End Sub
Private Sub SelezioneCarattere_Apply(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelezioneCarattere.Apply
RichTextBox1.ForeColor = SelezioneCarattere.Color
RichTextBox1.Font = SelezioneCarattere.Font
Carattere.Text = RichTextBox1.Font.Name + ","
DimensioneCarattere.Text = RichTextBox1.Font.SizeInPoints
End Sub
Private Sub ColoreSfondo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColoreSfondo.SelectedIndexChanged
If ColoreSfondo.SelectedItem = "Altri colori..." Then
If ColoreSfondo.Visible = True Then
ScegliColoreSfondo.ShowDialog()
RichTextBox1.BackColor = ScegliColoreSfondo.Color
End If
Else
If ColoreSfondo.SelectedItem = "Bianco" Then
RichTextBox1.BackColor = Color.White
End If
If ColoreSfondo.SelectedItem = "Nero" Then
RichTextBox1.BackColor = Color.Black
End If
If ColoreSfondo.SelectedItem = "Rosso" Then
RichTextBox1.BackColor = Color.Red
End If
If ColoreSfondo.SelectedItem = "Blu" Then
RichTextBox1.BackColor = Color.Blue
End If
If ColoreSfondo.SelectedItem = "Verde" Then
RichTextBox1.BackColor = Color.Green
End If
If ColoreSfondo.SelectedItem = "Giallo" Then
RichTextBox1.BackColor = Color.Yellow
End If
If ColoreSfondo.SelectedItem = "Arancio" Then
RichTextBox1.BackColor = Color.Orange
End If
If ColoreSfondo.SelectedItem = "Viola" Then
RichTextBox1.BackColor = Color.Violet
End If
End If
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
NumCaratteri.Text = RichTextBox1.TextLength
If RichTextBox1.CanUndo = True Then
AnnullaToolStripMenuItem.Enabled = True
Else
AnnullaToolStripMenuItem.Enabled = False
End If
If RichTextBox1.CanRedo = True Then
RipetiToolStripMenuItem.Enabled = True
Else
RipetiToolStripMenuItem.Enabled = False
End If
End Sub
Private Sub DataBreveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBreveToolStripMenuItem.Click
RichTextBox1.AppendText(DateTime.Today.ToShortDateString)
End Sub
Private Sub DataEstesaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataEstesaToolStripMenuItem.Click
RichTextBox1.AppendText(DateTime.Today.ToLongDateString)
End Sub
Private Sub OraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OraToolStripMenuItem.Click
RichTextBox1.AppendText(My.Computer.Clock.LocalTime)
End Sub
Private Sub ModificaCarattereToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModificaCarattereToolStripMenuItem.Click
SelezioneCarattere.ShowDialog()
RichTextBox1.ForeColor = SelezioneCarattere.Color
RichTextBox1.Font = SelezioneCarattere.Font
Carattere.Text = RichTextBox1.Font.Name + ","
DimensioneCarattere.Text = RichTextBox1.Font.SizeInPoints
End Sub
Private Sub ColoreSfondoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColoreSfondoToolStripMenuItem.Click
ScegliColoreSfondo.ShowDialog()
RichTextBox1.BackColor = ScegliColoreSfondo.Color
End Sub
Private Sub RichTextBox1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
LunghezzaSelezione.Text = RichTextBox1.SelectedText.Length
If RichTextBox1.SelectedText <> "" Then
CopiaToolStripButton.Enabled = True
CopiaToolStripMenuItem.Enabled = True
ToolStripMenuItem1.Enabled = True
TagliaToolStripButton.Enabled = True
TagliaToolStripMenuItem.Enabled = True
ToolStripMenuItem2.Enabled = True
Else
CopiaToolStripButton.Enabled = False
CopiaToolStripMenuItem.Enabled = False
ToolStripMenuItem1.Enabled = False
TagliaToolStripButton.Enabled = False
TagliaToolStripMenuItem.Enabled = False
ToolStripMenuItem2.Enabled = False
End If
End Sub
Private Sub OpzToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpzToolStripMenuItem.Click
Opzioni.ShowDialog()
End Sub
Private Sub TextEditor_Layout(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LayoutEventArgs) Handles MyBase.Layout
ColoreSfondo.Visible = True
End Sub
Private Sub SalvaConNomeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaConNomeToolStripMenuItem.Click
Salva.ShowDialog()
End Sub
Private Sub AllineaASinistaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllineaASinistaToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
AllineaASinistaToolStripMenuItem.Checked = True
AllineaAlCentroToolStripMenuItem.Checked = False
AllineaADestraToolStripMenuItem.Checked = False
End Sub
Private Sub AllineaAlCentroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllineaAlCentroToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
AllineaASinistaToolStripMenuItem.Checked = False
AllineaAlCentroToolStripMenuItem.Checked = True
AllineaADestraToolStripMenuItem.Checked = False
End Sub
Private Sub AllineaADestraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AllineaADestraToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
AllineaASinistaToolStripMenuItem.Checked = False
AllineaAlCentroToolStripMenuItem.Checked = False
AllineaADestraToolStripMenuItem.Checked = True
End Sub
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
RichTextBox1.Cut()
End Sub
Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
RichTextBox1.Copy()
End Sub
Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
RichTextBox1.Paste()
End Sub
End Class