Un controllo casella combinata consente di omettere la necessità di avere una casella di testo e un controllo casella di riepilogo nel progetto Visual Basic. Una casella combinata viene visualizzata una casella di testo combinata con un controllo casella di riepilogo, che dà all'utente la possibilità di inserire un elemento o selezionare un elemento dall'elenco. La proprietà Items ti dà la flessibilità per modificare gli elementi nel controllo casella combinata. Utilizzare un controllo casella combinata per dare all'utente un elenco di elementi da scegliere e quindi utilizzare l'elemento selezionato per prendere decisioni in altri settori del vostro progetto.

Istruzioni

1

Avviare Microsoft Visual Basic Express, fare clic su "Nuovo progetto..." nel riquadro sinistro dello schermo del computer e selezionare "Applicazione Windows Form." Fare clic su "OK".

2

Fare doppio clic "ComboBox" dal riquadro "Toolbox" per aggiungere un nuovo controllo casella combinata al Form. Fare doppio clic sul "Pulsante" per aggiungere un nuovo pulsante. Aggiungere due pulsanti più utilizzando la stessa tecnica.

3

Fare doppio clic su "Button1" per aprire il modulo di "Form1. vb". Digitare il seguente sotto "Button1_Click" per aggiungere elementi alla casella combinata:

Me.ComboBox1.Items.Add ("elemento di dati")

Me.ComboBox1.Items.Add("Data Item")

Me.ComboBox1.Items.Add("Data Item")

Me.ComboBox1.Items.Add("Data Item")

Me.ComboBox1.Items.Add("Data Item")

Me.ComboBox1.Items.Add("Data Item")4

Fare clic su "Form1. vb [Design]" e fare doppio clic su "Button2" per aggiungere il codice al relativo evento click. Digitare il seguente codice per eliminare eventuali duplicati nella casella combinata:

Dim xCnt As Integer

Dim yCnt As Integer

For xCnt = 0 To Me.ComboBox1.Items.Count - 2

For yCnt = Me.ComboBox1.Items.Count - 1 To xCnt + 1 Step -1

If Me.ComboBox1.Items(xCnt).ToString = Me.ComboBox1.Items(yCnt).ToString Then

Me.ComboBox1.Items.RemoveAt(yCnt)

End If

Next

Next5

Fare clic su "Form1. vb [Design]" e fare doppio clic su "Button3" per aggiungere il codice al relativo evento click. Digitare il codice seguente per cancellare tutti gli elementi dalla casella combinata:

Me.ComboBox1.Items.Clear()

6

Fare clic su "Form1. vb [Design]" e fare doppio clic su casella combinata eseguire il codice quando cambia l'elemento selezionato. Digitare il codice riportato di seguito per visualizzare l'elemento selezionato attraverso una finestra di messaggio:

MsgBox ("You selected:" & Me.ComboBox1.Text.Trim)

7

Premere "F5" per eseguire il programma e fare clic su "Button1" per aggiungere elementi alla casella combinata. Fare clic su "Button2" per rimuovere l'elemento duplicato. Clicca "Button3" per rimuovere tutti gli elementi nella casella combinata.