De Visual Basic programmeertaal van Microsoft heeft een robuuste toolbox voor het maken van Windows -toepassingen formulier in korte tijd en met relatief gemak . De ListBox control is een van die instrumenten; gebruiken om uw gebruikers een aantal keuzes om uit te kiezen . Het is zelfs mogelijk om de gebruiker toe te voegen aan of te verwijderen uit de inhoud van een ListBox , en om dat te doen, moet je in staat zijn om de ListBox zoeken om actie te ondernemen op het juiste punt . Instructies
1 Klik op " Start", " Alle programma's " en selecteer de Microsoft Visual Studio of Visual Basic Express applicatie , afhankelijk van welke je hebt geïnstalleerd . Kopen van 2 Klik op de " New Project" link op de Visual Studio Start pagina , selecteer " Windows Forms Application " en klik op "OK . " Dit opent een nieuw leeg formulier in het ontwerp venster .
3 Klik op het tabblad " Toolbox " aan de linkerkant van het scherm om het uit te breiden . Dubbelklik op de " ListBox " controle . Dubbelklik op de " knop " controle en dubbelklik op het " TextBox " controle . Dit voegt een van elk aan uw formulier . Klik in het ontwerp venster om de Toolbox instorten .
Klik 4 op de keuzelijst in het formulier . Scroll naar beneden naar de " Artikelen " eigenschap in het venster Eigenschappen aan de linkerbenedenhoek van uw scherm . Klik op de doos ellips om een venster te openen voor het invoeren van items . Voer een aantal items in de lijst , druk op " Enter " na elk item om ze op aparte regels .
5 Dubbelklik op de knop om het venster VB code te openen . Uw cursor tussen de lijnen die er zo uitzien : Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) op Twitter
Handles Button1.Click
End Sub Plaats
de volgende code tussen de lijnen boven aan de lijst voor een duplicaat van wat de gebruiker invoert in het tekstveld zoeken :
'
' reactie - deze code doorzoekt de keuzelijst voor een duplicaat van wat de gebruiker
ingetoetst ' in het tekstvak
' Dim ListItemCounter
As Integer
als TextBox1.Text > Niets
Doe tot ListItemCounter = ListBox1.Items.Count ( ) op Als TextBox1.Text.ToUpper = ( ListBox1.Items dan ( ListItemCounter ) ) . ToUpper ( ) dan MessageBox.Show
( " Duplicate object gevonden " ) Terugkeer
Else
ListItemCounter + = 1 < br End > Als Loop MessageBox.Show
( " het opgegeven item zit niet in de lijst " ) Eind
Als
deze code doorzoekt de items in de keuzelijst voor het item dat in de TextBox werd ingevoerd. Let op de bijgevoegde " ToUpper " -methode , zodat de vergelijking elimineert geval als een potentieel probleem . Als het item wordt gevonden , wordt een melding afgegeven, als het item niet wordt gevonden , een " niet gevonden " bericht wordt uitgegeven
6 Klik op de " Debug " menu- item op de top van het . scherm en klik op de link "Start debugging " . Dit opent uw aanvraag in testmodus . Voer een item dat in de lijst in het tekstvak en klik op de knop . Je moet de " dubbel item " boodschap zien . Voer een item in het tekstvak dat niet in de lijst en klik op de knop . Nu moet u de " punt niet gevonden " bericht .
|
