VB Corso pg 2
Sommario
La finestra dei Messaggi - La finestra  di Input - Le finestre Apri e Salva - Le finestre dei Caratteri dei Colori della Stampante - I Moduli - Scegliere con Option e CheckBox  -   Scegliere da una ListBox e ComboBox 
La finestra dei messaggi

La finestra  dei  messaggi è una dialog box che contiene da uno a tre pulsanti e viene  generata  dalla  funzione MsgBox( ).Questa funzione restituisce un n. intero che individua il pulsante premuto dall'operatore in risposta alla domanda posta La finestra più semplice ha un solo pulsante e un messaggio ossia è una comunicazione di servizio se così si può dire.

Es. inserite questo codice nella Private Sub Command1_click( )
MsgBox "Domani è un'altro giorno",vbCritical,"Premere Ok senza alternative"
Analizzando il codice si vede che dopo la parola chiave MsgBox vi sono 3 argomenti . Il primo è il
messaggio, il secondo è un valore intero che stabilisce il numero, iltipo di pulsanti e l'icona che viene visualizzata e il terzo è il contenuto della barra del titolo.
Il codice che segue produce una finestra  con i pulsanti Si e No e come icona il punto interrogativo.
Dim risposta as Integer
Risposta = MsgBox("Domani aumentano le tasse, vuoi pagarle?",vbYesNo+vbQuestion,"Possibilità")
Nel prossimo codice i pulsanti diventano 3 e l'icona  è quella che indica la presenza nello stesso momento di una informazione e di una domanda.
Dim risposta as Integer
Risposta = MsgBox("Sono aumentate le tasse, cosa   fai?",vbInformation+vbAbortRetryIgnore,"3 Possibilità")
Puoi trovare tutti i valori delle costanti utilizzate  come argomenti e come valore di ritorno della funzione MsgBox nella  guida di riferimento di VB

La finestra di input

Anche la finestra di input è una dialog box standart generata dalla funzione inputbox
Gli argomenti di questa funzione sono il titolo il testo della domanda e facoltativamente una proposta di risposta.
In un form inserite 1 Label e 1 CommanButton.In Command1_Click ( ) digitate:
Domanda ="Qual'è il tuo hobby preferito?"
Titolo ="InputBox esempio "
Proposta = "Giocare a calcio"
Risposta = InputBox(Domanda,Titolo;Proposta)
Label1.Caption = Risposta 

Le finestre Apri e Salva 

Le finestre apri e salva sono le finestre basilari per iniziare e concludere un qualsiasi lavoro con un qualsiasi programma, Per richiamare queste finestre da un prog. vb serve il componente  COM32DLG.OCX .Per inserirlo in un form procedete così:
Aprite la finestra dei componenti e selezionate Microsoft Common Dialog Control . Dalla toolbox selezionate l'icona che lo contraddistingue e trascinatelo nel form.
Ecco di seguito come si richiamano le varie finestre
Private Sub Command1_Click ( )
On Error Goto erfinestra
CommonDialog1.ShowOpen
RichTextBox1.Filename=CommonDialog1.filename
Exit Sub
erfinestra:
MsgBox Err.Description
End Sub
Il file viene caricato all'interno della RichTextBox dove può venire modificato per salvare le modifiche bisogna poi richiamare la finestra salva:
Private Sub Command2_Click ( )
On Error Goto erfinestra
CommonDialog1.ShowSave
If MsgBox (" Sto per salvare il file : " & CommonDialog1.filename, vbYesNo,"Sei davvero     sicuro ?"= vbYes Then
RichTextBox1.SaveFile ( CommonDialog1.filename)
End If
Exit Sub
erfinestra:
MsgBox Err.Description
End Sub

La finestra dei caratteri dei colori e della stampante

Per richiamare la finestra dei colori dei caratteri e della stampante si fa come con le finestre apri e salva cambia solo la dicitura.

finestra colori        Commondialog1.ShowColor

Ad es. per modificare il BackColor a una TextBox dopo aver richiamato la finestra dei colori è sufficente la seguente riga di codice:
Text1.BackColor=CommonDialog1.Color

finestra caratteri     CommonDialog1.ShowFont

Per assegnare uno specifico font  con una determinata grandezza ad una Textbox bastano queste righe di codice:
Text1.Font.Name=CommonDialog1.FontName
Text1.Font.Size= CommonDialog1.FontSize

finestra stampante CommonDialog1.ShowPrinter

I Moduli 

I Moduli sono dei normali files di testo che contengono funzioni e sub. Questi pezzi di codice potrebbero essere scritti anche all'interno di un form  ma quando una sub risulta di interesse generale conviene metterla all'interno di un modulo

Scegliere con Option e CheckBox

Gli OptionButton vengono usati almeno  due alla volta in quanto sono strumenti di scelta tra più opzioni tra cui una sola deve essere indicata. Il CheckBox è destinato all'immisione di opzioni alternative la presenza del simbolo di spunta esprime la volontà di confermare l'espressione abbinata al pulsante e viceversa.Per entrambi i controlli le proprietà fondamentali da assegnare a disign time sono la Caption, la Value. La Caption illustra il significato dell'opzione.
Per OptionButton la proprietà Value può assumere il valore di True o False.Solo un opzione può e deve avere il valore True quella selezionata tutte le altre hanno valore False. Per CheckBox la proprietà Value può assumere tre diversi valori: 
0=Unchecked, 1=Checked e 2=Grayed
E' consigliabile usare un array di controlli nel caso degli Option così l'evento click restituisce nella variabile Index l'indice dell'elemento premuto es.:
Private Sub Option1_Click(Index as Integer)
Text1.text = Option1(Index).Caption
End Sub

Private Sub Option2_Click(Index as Integer)
Text1.text = Option2(Index).Caption
End Sub
Ricordate i valori di Index partono da 0 e non da 1.Ecco un es. di CheckBox
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text1.Text = "Si"
Else
Text1.Text = "No"
End If
End Sub

Private Sub Form_Load()
Text1.text=""
Check1.Value = 1
End Sub

Scegliere con un Slider

Lo Slider fa parte del gruppo Common Windows Control. Le proprietà essenziali sono i valori Min e Max e Value quest'ultimo compreso tra i primi due.A differenza della ScrollBar è unico con una proprietà Orientation che permette di visualizzarlo orizzontalmente o  verticalmente. La TickFrequency stabilisce la frequenza delle tacche di riferimento tra i valori Min e Max.
Private Sub Form_Load()
Label1.Caption = 0
End Sub

Private Sub Slider1_Scroll()
Label1.Caption = Slider1.Value
End Sub

Scegliere da una ListBox e ComboBox

La ListBox è un elenco sempre aperto e modificabile solo da programma. La ListBox può venier riempita con il metodo AddItem per rimuovere un elemento invece si usa il metodo RemoveItem seguito da un indice numerico.Con la proprietà Sorted impostata su True il contenuto della lista viene mantenuto in ordine alfabetico.Queste sono le caratteristiche più importanti.Di seguito vediamo un esempio:
Private Sub Form_Load()
Label1.Caption = ""
List1.AddItem "Verde"
List1.AddItem "Bianco"
List1.AddItem "Rosso"
List1.AddItem "Blu"
End Sub

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub
Le proprietà fondamentali della Combo sono le stesse della List.
Private Sub Combo1_Click()
Label1.Caption = Combo1.Text
End Sub

Private Sub Form_Load()
Label1.Caption = ""
Combo1.AddItem "Verde"
Combo1.AddItem "Bianco"
Combo1.AddItem "rosso"
Combo1.AddItem "Blu"
Combo1.ListIndex = 0
End Sub