Programmazione linguaggio di Microsoft Visual Basic ha una robusta serie di strumenti per la creazione di applicazioni Windows form in breve tempo e con relativa facilità. Il controllo ListBox è uno di quegli strumenti; si usa per dare ai vostri utenti un numero di scelte da scegliere. È anche possibile consentire all'utente di aggiungere o eliminare dal contenuto di un controllo ListBox e per farlo, devi essere in grado di cercare il controllo ListBox per agire sull'oggetto corretto.

Istruzioni

1

Fare clic su "Start", "Tutti i programmi" e selezionare l'applicazione di Microsoft Visual Studio o Visual Basic Express Edition, a seconda di quale è stato installato.

2

Clicca sul link "Nuovo progetto" nella pagina iniziale di Visual Studio, selezionare "Windows Forms Application" e fare clic su "OK". Questo apre un nuovo modulo vuoto nella finestra di progettazione.

3

Fare clic sulla scheda "Strumenti" a sinistra dello schermo per espanderlo. Fare doppio clic sul controllo "ListBox". Fare doppio clic sul controllo "Button" e fare doppio clic sul controllo "TextBox". Questo aggiunge uno di ciascuno al form. Fare clic nella finestra di progettazione al collasso della casella degli strumenti.

4

Fare clic sul controllo ListBox nel modulo. Scorrere fino alla proprietà di "Elementi" nella finestra "proprietà" in basso a sinistra dello schermo. Fare clic sulla casella di puntini di sospensione per aprire una finestra per l'inserimento di elementi. Inserire più elementi nell'elenco, premendo "Invio" dopo ogni elemento per metterli su righe separate.

5

Fare doppio clic sul pulsante per aprire la finestra di codice di Visual Basic. Il cursore appare tra le righe come queste:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles Button1.Click

<cursor will appear here>

End Sub

Inserire il codice seguente tra le righe qui sopra per cercare nell'elenco un duplicato di quello che l'utente entra nel campo di testo:

'

' comment - this code searches the listbox for a duplicate of what the user keyed

' into the textbox

'

Dim ListItemCounter As Integer

If TextBox1.Text > Nothing Then

Do Until ListItemCounter = ListBox1.Items.Count()

If TextBox1.Text.ToUpper = (ListBox1.Items(ListItemCounter)).ToUpper() Then

MessageBox.Show("Duplicate item found")

Return

Else

ListItemCounter += 1

End If

Loop

MessageBox.Show("The item you entered is not in the list")

End If

Questo codice vengono ricercati gli elementi nella casella di riepilogo per l'elemento che è stato immesso nella casella di testo. Nota il metodo di "ToUpper" accodato in modo che il confronto Elimina il caso come un potenziale problema. Se l'elemento viene trovato, viene emesso un messaggio appropriato; Se l'elemento non viene trovato, viene emesso un messaggio di "non trovato".

6

Scegliere la voce di menu "Debug" nella parte superiore dello schermo e fare clic sul collegamento "Avviare il debug". L'applicazione verrà visualizzata in modalità test. Inserire un elemento che è presente nell'elenco nella casella di testo e fare clic sul pulsante. Si dovrebbe vedere il messaggio "duplicato". Inserire un elemento nella casella di testo che non è nell'elenco e fare clic sul pulsante. Ora si dovrebbe vedere il messaggio "elemento non trovato".