Microsofts Visual Basic giver mulighed for nem erklærer og håndtering af enkeltelementstandarder variabler , men nogle gange har man brug for noget mere , ligesom en tabel over elementer med samme karakteristika. Du ønsker måske at sløjfe gennem tabellen udskrive de elementer , eller du måske ønsker at bygge tabel fra en database. VB.NET letter denne funktionalitet gennem brugen af ​​arrays , herunder multi -dimensionelle arrays . Instruktioner
1

Start Visual Basic , og klik på " Nyt projekt " linket på Startsiden . Dobbeltklik på " Windows Forms Application " for at åbne en ny formular i Visual Basic Design -vinduet.
2

Rul markøren over det Toolbox fanen til venstre for Design vinduet for at åbne Værktøjskassen menu. Det kan tage et par sekunder at indlæse ToolBox og vise det.
3

Dobbeltklik på " ListBox " menupunktet i den fælles Controls sektion af værktøjskassen for at tilføje en ListBox til din formular . Dobbeltklik på " Button " menupunkt to gange for at tilføje to knapper til din formular. Dobbeltklik på " TextBox " menupunkt for at tilføje et tekstfelt til formularen . Træk kontrolelementer i form at arrangere Button1 under TextBox og arrangere button2 under ListBox .
4

Dobbeltklik på " Tilføj element " knappen for at åbne Visual Basic -koden vinduet. Klik på den tomme linje under "Public Class Form1 " erklæring øverst i vinduet, og nøglen følgende linje : Hej

Dim ItemArray (9) As String

Dim ArrayCountInteger As Integer < br >

Denne erklæring erklærer en vifte af op til ti string -type poster og et heltal counter . Tælleren begynder altid på nul , så " Dim " erklæring sætter tallet til ni, én mindre end antallet af elementer i array.
5.

Klik på den tomme linje efter "Private Sub Button1_Click "erklæring , og indtaste følgende kode, så hele proceduren med begynder og slutter linjer ser sådan ud:

Private Sub Button1_Click ( ByVal afsender som System.Object , ByVal e som System.EventArgs ) Handles Button1.Click

Hvis TextBox1.Text > "" Så
p Hvis ArrayCountInteger = 10 Så

MessageBox.Show ( " Du har indtastet det maksimale antal emner" )

Return

End If

ItemArray ( ArrayCountInteger ) = TextBox1.Text

ArrayCountInteger + = 1

TextBox1.Clear ()

TextBox1.Focus ()

End If

End Sub

Denne kode læser hvert element , som du indtaster i tekstfeltet og sætter det ind i array. < br >
6

Vis array. Klik på fanen Design til at vende tilbage til Design -vinduet. Dobbelt-klik på " listeelementer " knappen for at vende tilbage til vinduet Kode . Indtast koden mellem de to linjer, så det endelige resultat ser sådan ud:

Private Sub Button2_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) varetager Button2.Click

Dim ListArrayCountInteger As Integer

Do While ListArrayCountInteger < ( ArrayCountInteger + 1)
p Hvis ItemArray ( ListArrayCountInteger ) > "" Så

ListBox1.Items.Add ( ItemArray ( ListArrayCountInteger ) )

ListArrayCountInteger + = 1

Else

MessageBox.Show ( " ikke flere poster" )

Return

End If

loop

Denne kode læser array ved hjælp af en løkke og placerer elementerne i ListBox til visning.
7

Klik på " Debug" menupunkt på øverst på skærmen, og klik på "Start Debugging " linket for at teste dit program. Indtast et emne i tekstfeltet , og klik på " Tilføj element "-knappen. Tilføj flere produkter og klik på " listeelementer " knappen for at se dine varer i ListBox .