Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
GN WebStudio - Opzioni.vb

Opzioni.vb

Caricato da: GN
Scarica il programma completo

  1. Imports System.Windows.Forms
  2.  
  3. Public Class Opzioni
  4.  
  5.     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
  6.         My.Settings.EditorTestoColoreTags = ColoreTags.BackColor
  7.         My.Settings.EditorTestoColoreAttributi = ColoreAttributi.BackColor
  8.         My.Settings.EditorTestoColoreValori = ColoreValori.BackColor
  9.         My.Settings.EditortestoColoreCommenti = ColoreCommenti.BackColor
  10.         My.Settings.EditorTestoColoreQuadre = ColoreQuadre.BackColor
  11.         My.Settings.FontEditorTesto = FontCodice.Font
  12.         Me.DialogResult = System.Windows.Forms.DialogResult.OK
  13.         Me.Close()
  14.     End Sub
  15.  
  16.     Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
  17.         Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
  18.         Me.Close()
  19.     End Sub
  20.  
  21.     Private Sub Opzioni_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  22.         ColoreTags.BackColor = My.Settings.EditorTestoColoreTags
  23.         ColoreAttributi.BackColor = My.Settings.EditorTestoColoreAttributi
  24.         ColoreValori.BackColor = My.Settings.EditorTestoColoreValori
  25.         ColoreCommenti.BackColor = My.Settings.EditortestoColoreCommenti
  26.         ColoreQuadre.BackColor = My.Settings.EditorTestoColoreQuadre
  27.         FontCodice.Font = My.Settings.FontEditorTesto
  28.     End Sub
  29.  
  30.     Private Sub btnCambiaColoreTags_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaColoreTags.Click
  31.         SelettoreColori.Color = ColoreTags.BackColor
  32.         If SelettoreColori.ShowDialog = Windows.Forms.DialogResult.OK Then
  33.             ColoreTags.BackColor = SelettoreColori.Color
  34.         End If
  35.     End Sub
  36.  
  37.     Private Sub btnCambiaColoreAttributi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaColoreAttributi.Click
  38.         SelettoreColori.Color = ColoreAttributi.BackColor
  39.         If SelettoreColori.ShowDialog = Windows.Forms.DialogResult.OK Then
  40.             ColoreAttributi.BackColor = SelettoreColori.Color
  41.         End If
  42.     End Sub
  43.  
  44.     Private Sub btnCambiaColoreValori_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaColoreValori.Click
  45.         SelettoreColori.Color = ColoreValori.BackColor
  46.         If SelettoreColori.ShowDialog = Windows.Forms.DialogResult.OK Then
  47.             ColoreValori.BackColor = SelettoreColori.Color
  48.         End If
  49.     End Sub
  50.  
  51.     Private Sub btnCambiaColoreCommenti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaColoreCommenti.Click
  52.         SelettoreColori.Color = ColoreCommenti.BackColor
  53.         If SelettoreColori.ShowDialog = Windows.Forms.DialogResult.OK Then
  54.             ColoreCommenti.BackColor = SelettoreColori.Color
  55.         End If
  56.     End Sub
  57.  
  58.     Private Sub btnCambiaColoreQuadre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaColoreQuadre.Click
  59.         SelettoreColori.Color = ColoreQuadre.BackColor
  60.         If SelettoreColori.ShowDialog = Windows.Forms.DialogResult.OK Then
  61.             ColoreQuadre.BackColor = SelettoreColori.Color
  62.         End If
  63.     End Sub
  64.  
  65.     Private Sub btnCambiaFontCodice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCambiaFontCodice.Click
  66.         SelettoreFont.Font = FontCodice.Font
  67.         If SelettoreFont.ShowDialog = Windows.Forms.DialogResult.OK Then
  68.             FontCodice.Font = SelettoreFont.Font
  69.         End If
  70.     End Sub
  71.  
  72.     Private Sub btnSvuotaSitiRecenti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSvuotaSitiRecenti.Click
  73.         If MsgBox("Cancellare la cronologia dei siti recenti?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
  74.             My.Settings.SitiRecenti = Nothing
  75.         End If
  76.     End Sub
  77.  
  78.     Private Sub btnPredefiniti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPredefiniti.Click
  79.         If MsgBox("Riportare le impostazioni ai valori predefiniti?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
  80.             My.Settings.Reset()
  81.             Me.Opzioni_Load(Nothing, Nothing)
  82.         End If
  83.     End Sub
  84. End Class