Imports System.Windows.Forms
Public Class Opzioni
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
My.Settings.CaratterePredefinito = ImpostaCarattere.Font
My.Settings.ColoreCaratterePredefinito = ImpostaCarattere.Color
My.Settings.ColoreSfondoPredefinito = ColoreSfondo.ForeColor
My.Settings.SelezionaParole = SelezionaParole.Checked
MsgBox("Per applicare le impostazioni è necessario riavviare l'applicazione.")
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Carattere.Text = "Microsoft Sans Serif; 8,25pt"
ColoreSfondo.ForeColor = Color.White
Me.Close()
End Sub
Private Sub SelezionaCarattere_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelezionaCarattere.Click
ImpostaCarattere.ShowDialog()
Carattere.Text = ImpostaCarattere.Font.Name & ";" & ImpostaCarattere.Font.SizeInPoints
End Sub
Private Sub SelezionaSfondo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelezionaSfondo.Click
ImpostaColoreSfondo.ShowDialog()
ColoreSfondo.ForeColor = ImpostaColoreSfondo.Color
End Sub
Private Sub Opzioni_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Carattere.Text = My.Settings.CaratterePredefinito.Name & "; " & My.Settings.CaratterePredefinito.SizeInPoints
ColoreSfondo.ForeColor = My.Settings.ColoreSfondoPredefinito
End Sub
End Class