I Color Dialog
Mettiamo che volessi fare un modo che l’ utente tramite un Color Dialog possa scegliere il colore dello sfondo del programma tramite un Dialogo per scegliere i colori utilizzo il seguente codice:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim color As New ColorDialog If color.ShowDialog = Windows.Forms.DialogResult.OK Then Me.BackColor = color.Color End If End Sub End Class
Come vedere prima dichiarato una variabile ed ho detto che deve essere un nuovo Color Dialog.
Poi ho usato un if che se la finestra del Dialogo risulta cliccata su ok il colore dello sfondo del form sarà del colore selezionato dall’ utente.
I Font Dialog
I font dialog sono fondamentali se stiamo creando un programma per inviare mail o qualunque altro editor di testi, se voglio fare in modo che il carattere del testo di una RichTextBox sia scelto dall’ utente inserirò:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim font As New FontDialog If font.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.Font = font.Font End If End Sub End Class
Il procedimento è lo stesso di quello di sopra, cambia solo da text a font e cambia anche il tipo della variabile dichiarata (Da Color Dialog a Font Dialog).
Gli Open File Dialog
Un Open File Dialog serve per selezionare dei file, se voglio che una mia RichTextBox contenga il percorso di un file selezionato metterò:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim open As New OpenFileDialog If open.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.Text = open.FileName End If End Sub End Class
Come vedete è sempre la stessa cosa, cambia solo qualcosina...
I Save File Dialog
stessa cosa degli openfiledialog, cambia solo che metteremo save invece di open:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim save As New SaveFileDialog If save.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.Text = save.FileName End If End Sub End Class
I Folder Browser Dialog
I Folder Browser Dialog sono sono delle finestre di dialogo che permettono (come gli Open File Dialog e Save File Dialog) di selezionare delle cartelle e non dei file. Se voglio fare in modo che una Text Box abbia il percorso di una cartella scelta dall’ utente inserirò il seguente codice:
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim folder As New FolderBrowserDialog If folder.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox1.Text = folder.SelectedPath End If End Sub End Class
Non vi spaventate! Se avete capito il codice di prima questo sarà facilissimo da capire ;).
Aggiungi un commento