Start 1 Visual Basic en klik op de " New Project" link op de startpagina . Dubbelklik op " Windows Forms Application " naar een nieuw formulier te openen in de Visual Basic Design venster . Kopen van 2

Schuif de cursor over het tabblad Toolbox aan de linkerkant van het ontwerp venster om het menu Instellingen te openen . Het kan een paar seconden
3

Dubbelklik op het " ListBox " menu-item naar de ToolBox te laden en weer te geven . In het gedeelte Common Controls van de Toolbox om een ListBox toe te voegen aan uw vorm . Dubbelklik op de " knop " menu-item tweemaal om twee knoppen aan uw formulier toe te voegen . Dubbelklik op de " TextBox " menu-item naar een TextBox toe te voegen aan uw formulier . Sleep de besturingselementen in het formulier te regelen Button1 onder het tekstvak en schik Button2 onder de ListBox .
4

Dubbelklik op de knop " Item toevoegen " om de Visual Basic Code venster te openen . Klik op de lege regel onder de " Public Class Form1 " verklaring aan de bovenkant van het venster en toets de volgende regel :

Dim ItemArray
( 9 ) As String Dim

ArrayCountInteger
als Geheel < br >

Deze verklaring verklaart een serie van maximaal tien touwtje - items van het type en een integer teller . De teller begint altijd op nul , dus de " Dim " verklaring stelt het aantal op negen , een minder dan het aantal items in de array .
5

Klik op de lege regel na de " Private Sub Button1_Click " statement en voer de volgende code , zodat de gehele procedure met beginnende en eindigende lijnen ziet er zo uit :

Private Sub Button1_Click ( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button1.Click

Als TextBox1.Text > " " dan

Als ArrayCountInteger = 10 dan

MessageBox.Show
( " U hebt het maximum aantal items ingevoerd " ) op Twitter

Return

End
Als

ItemArray = TextBox1.Text

ArrayCountInteger + = 1

TextBox1.Clear ( )
( ArrayCountInteger )

TextBox1.Focus ( )

End
Als

End Sub

Deze code leest elk item dat u in het tekstvak en zet het in de array. < br >
6

Geef de array . Klik op het tabblad Ontwerpen om terug te keren naar de Design -venster . Dubbelklik op de ' List Items " knop om terug te keren naar het venster Code . Vul de code tussen de twee lijnen , zodat het uiteindelijke resultaat ziet er zo uit :

Private Sub Button2_Click
( ByVal afzender als System.Object , ByVal e als System.EventArgs ) Handles Button2.Click

Dim ListArrayCountInteger As Integer

Doe terwijl ListArrayCountInteger < ( ArrayCountInteger + 1 ) op Twitter

Als ItemArray ( ListArrayCountInteger ) > " " dan

ListBox1.Items.Add
( ItemArray ( ListArrayCountInteger ) ) op

ListArrayCountInteger + = 1

Else

MessageBox.Show
( " No more items " )

Return

End
Als

Loop

Deze code leest de array met behulp van een lus en plaatsen van de items in de keuzelijst voor weergave .
7

Klik op de " Debug " menu item op de bovenkant van het scherm en klik op de link "Start Debugging " om uw programma te testen . Voer een item in het tekstvak en klik op de " Item toevoegen " knop . Voeg meerdere producten en klik op " List Items" knop om uw items te zien in de ListBox .