Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicitÓ e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
DesktopNotes - OptionForm.vb

OptionForm.vb

Caricato da: Ale96
Scarica il programma completo

  1. ´╗┐Imports System.Windows.Forms
  2.  
  3. Public Class OptionForm
  4.  
  5.     Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
  6.         Me.DialogResult = System.Windows.Forms.DialogResult.OK
  7.         Me.Close()
  8.         'viene chiusa solo la finestra
  9.         With MainFormDesktopNotes
  10.             .Size = New System.Drawing.Size(Me.NudWidth.Value, Me.NudHeight.Value)
  11.             .Location = New System.Drawing.Point(Me.NudX.Value, Me.NudY.Value)
  12.             .BackColor = Me.PbxBackColorPrewiev.BackColor
  13.             .TopMost = Me.CbxTopMost.Checked
  14.             With .TbxText
  15.                 .ForeColor = Me.LblTextPrewiev.ForeColor
  16.                 .Font = Me.LblTextPrewiev.Font
  17.                 .BackColor = Me.PbxBackColorPrewiev.BackColor
  18.             End With
  19.         End With
  20.         'vengono cambiate le impostazioni relative all'aspetto grafico
  21.     End Sub
  22.  
  23.     Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
  24.         Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
  25.         Me.Close()
  26.         'viene chiusa la dinestra senza modificare alcuna impostazione
  27.     End Sub
  28.  
  29.     Private Sub OptionForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  30.  
  31.         PbxColorPrewiev.BackColor = MainFormDesktopNotes.TbxText.ForeColor
  32.         LblTextPrewiev.Font = MainFormDesktopNotes.TbxText.Font
  33.         LblTextPrewiev.ForeColor = MainFormDesktopNotes.TbxText.ForeColor
  34.         PbxBackColorPrewiev.BackColor = MainFormDesktopNotes.BackColor
  35.         NudWidth.Value = MainFormDesktopNotes.Size.Width
  36.         NudHeight.Value = MainFormDesktopNotes.Size.Height
  37.         NudX.Value = MainFormDesktopNotes.Location.X
  38.         NudY.Value = MainFormDesktopNotes.Location.Y
  39.         CbxTopMost.Checked = MainFormDesktopNotes.TopMost
  40.         LblTextPrewiev.BackColor = MainFormDesktopNotes.BackColor
  41.         'appena viene mostrata la finestra vengono modificate alcune propriet├á
  42.         'per permettere all'utente di vedere le impostazioni di quel momento
  43.         'e modificarle.
  44.         Me.TopMost = MainFormDesktopNotes.TopMost
  45.         'questo ├Ę per comodit├á: se la main form sono in primo piano la finestra delle
  46.         'opzioni apparira dietro le note, se la finestra delle opzioni ├Ę in primo piano
  47.         'darebbe fastidio all'utente se usa altri programmi contemporaneamente.
  48.         'andando in alto la prima che non ├Ę un commento permette di impostare la propriet├á
  49.         'TopMost uguale nelle due finestre rendendo pi├╣ comoda la vita all'utente
  50.  
  51.     End Sub
  52.  
  53.     Private Sub BtnChangeFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChangeFont.Click
  54.  
  55.         Dim font As New FontDialog
  56.         'viene aperta una fontdialog (usando il metodo ShowDialog che restituisce anche
  57.         'il pulsante premuto)che permette all'utente di scegliere il carattere
  58.         If font.ShowDialog = Windows.Forms.DialogResult.OK Then
  59.             'una volta scelto e data conferma si imposta il carattere selezionato
  60.             'sul testo di prova
  61.             LblTextPrewiev.Font = font.Font
  62.         End If
  63.  
  64.     End Sub
  65.  
  66.     Private Sub BtnChangeForeColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  67.     Handles BtnChangeForeColor.Click, PbxColorPrewiev.Click
  68.         'questa sub viene eseguita se si clica su BtnChangeForeColor o su PbxColorPrewiev.
  69.         'se volessi capire se ├Ę stato fatto click su uno o sull'altro posso usufruire
  70.         'della variabile sender che contiene l'oggetto che ha generato l'evento
  71.  
  72.         Dim color As New ColorDialog
  73.         'viene creata una colordialog e mostrata all'utente
  74.         If color.ShowDialog = Windows.Forms.DialogResult.OK Then
  75.             'una volta selezionato il colore e cliccato OK
  76.             'viene impostato il colore sul testo di prova
  77.             PbxColorPrewiev.BackColor = color.Color
  78.             LblTextPrewiev.ForeColor = color.Color
  79.         End If
  80.  
  81.     End Sub
  82.  
  83.     Private Sub ChangeBackColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  84.     Handles ChangeBackColor.Click, PbxBackColorPrewiev.Click
  85.         'anche qu├Č come sopra la sub viene eseguita se si clicca su ChangeBackColor o su PbxBackColorPrewiev
  86.         Dim color As New ColorDialog
  87.         'viene creata una colordialog e mostrata all'utente
  88.         If color.ShowDialog = Windows.Forms.DialogResult.OK Then
  89.             'scelto il colore si imposta lo sfondo del testo di prova
  90.             'in questo modo l'utente ha una migliore visione di ci├▓ che avverr├á
  91.             PbxBackColorPrewiev.BackColor = color.Color
  92.             LblTextPrewiev.BackColor = color.Color
  93.         End If
  94.     End Sub
  95.  
  96.     Private Sub TbxTextOfLblTextPrewiev_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbxTextOfLblTextPrewiev.TextChanged
  97.  
  98.         LblTextPrewiev.Text = TbxTextOfLblTextPrewiev.Text
  99.         'la text box sotto il testo di prova serve a modificare il testo di prova
  100.         'in questo modo l'utente pu├▓ vedere con i propri occhi come sarebbe il testo che scrive
  101.         'per fare ci├▓ ogni volta che cambia il testo nella textbox si cambia anche quello della label
  102.  
  103.     End Sub
  104.  
  105. End Class