Esempio riepilogativo

L'esempio seguente, utilizza alcuni dei controlli descritti nelle sessioni precedenti. Creiamo una nuova UserForm come illustrato in figura e definiamo le proprietÓ degli oggetti appena creati come riportato in tabella.
Name
Caption
TabIndex
FrmOggetti
Prova Oggetti
 
CboUno
 
0
LstUno
 
1
LstDue
 
2
CmdAggiungi
Aggiungi >>
3
CmdRimuovi
<<Rimuovi
4
CmdCancella
Cancella Tutto
5
CmdEsci
Esci
6
ChkDisabilita
Disabilita spostamenti
7
*La proprietÓ TabIndex Ŕ utile per spostare velocemente il cursore da un oggetto ad un altro usando il tasto Tabulatore (Tab). Il numero indica l'ordine di spostamento.
Di seguito sono riportate le routine da inserire nel modulo di codice associato alla UserForm "FrmOggetti".
La Routine Ŕ associata alla casella combinata "CboUno". Quando la casella perde la selezione, la stringa di caratteri appena digitati viene inserita nel men¨ a discesa della casella combinata e nella casella di riepilogo "LstUno".
	Private Sub CboUno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
	    CboUno.AddItem CboUno.Text
	    LstUno.AddItem CboUno.Text
	     CboUno.Text = ""
	End Sub
	
Con un Click del mouse sul pulsante "CmdAggiungi", ogni elemento della casella di riepilogo "LstUno" viene valutato. Se la voce Ŕ selezionata, l'elemento passa da "LstUno" a "LstDue".
	Private Sub CmdAggiungi_Click()
	    Dim i As Integer
	    For i = 0 To CboUno.ListCount - 1
	        If LstUno.Selected(i) = True Then
        	    LstDue.AddItem LstUno.List(i)
	            LstUno.RemoveItem i
        	    LstUno.Selected(i) = False
	        End If
	    Next
	End Sub
	
Con un Click del mouse sul pulsante "CmdRimuovi", ogni elemento della casella di riepilogo "LstDue" viene valutato. Se la voce Ŕ selezionata, l'elemento passa da "LstDue" a "LstUno".
	Private Sub CmdRimuovi_Click()
 	   Dim i As Integer
	    For i = 0 To LstDue.ListCount - 1
	        If LstDue.Selected(i) = True Then
	            LstUno.AddItem LstDue.List(i)
	            LstDue.RemoveItem i
        	    LstDue.Selected(i) = False
	        End If
	    Next
	End Sub
	
Con un Click del mouse sul pulsante "CmdCancella", vengono cancellate tutte le voci presenti in "CboUno", "LstUno" e "LstDue".
	Private Sub CmdCancella_Click()
	    CboUno.Clear
	    LstUno.Clear
	    LstDue.Clear
	End Sub	
	
Quando viene selezionata la casella di controllo "ChkDisabilita", vengono disabilitati i pulsanti "CmdAggiungi" e "CmdRimuovi".
	Private Sub ChkDisabilita_Change()
	    If ChkDisabilita.Value = True Then
	        CmdAggiungi.Enabled = False
	        CmdRimuovi.Enabled = False
	    Else
	        CmdAggiungi.Enabled = True
	        CmdRimuovi.Enabled = True
	    End If
	End Sub
	
Con un Click del mouse sul pulsante "CmdEsci", viene scarica la finestra.
	Private Sub CmdEsci_Click()
	    Unload Me
	End Sub
	
Utilizzare la Form Ŕ molto semplice; inserisci una stringa di caratteri nella casella combinata "CboUno" e prova ad usare i comandi che hai appena creato, quindi valuta attentamente il codice Basic associato.

Cognolato Studio ę 2004