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 |