Microsofts Visual Basic gir enkel erklære og håndtering av single- element variabler , men noen ganger trenger du noe mer, som en tabell av elementer med de samme egenskapene. Det kan være lurt å sløyfe gjennom tabellen trykking elementene, eller ønsker du kanskje å bygge bordet fra en database . VB.NET letter denne funksjon ved hjelp av matriser , inkludert flerdimensjonale matriser . Instruksjoner
en

start Visual Basic og klikk på "New Project " linken på Startsiden . Dobbeltklikk på " Windows Forms Application " for å åpne et nytt skjema i Visual Basic Design vinduet.
2

Rull musepekeren over Toolbox fanen til venstre for Design vinduet for å åpne verktøykassa menyen . Det kan ta noen sekunder å laste verktøykassa og vise det .
3

Dobbeltklikk på " Liste- " menyen i Common Controls delen av verktøykassen for å legge en Listeboks til din skjema . Dobbeltklikk på "Button " menyen to ganger for å legge til to knapper i skjemaet. Dobbeltklikk på " TextBox " menyen for å legge til en tekstboks i skjemaet. Dra kontrollene i skjemaet for å arrangere Button1 under TextBox og ordne Button2 under Liste- .
4

Dobbeltklikk på " Legg til artikkel "-knappen for å åpne Visual Basic-kode vinduet. Klikk på den tomme linjen under "Public Class Form1 " statement på toppen av vinduet og tast inn følgende linje : en

Dim ItemArray ( 9 ) As String

Dim ArrayCountInteger As Integer

Denne uttalelsen erklærer en rekke opptil ti string - type elementer og et heltall teller. Telleren alltid begynner på null , så " Dim " statement angir antall klokka ni , én mindre enn antall elementer i tabellen.
5

Klikk på den tomme linjen etter de " Private Sub button1_click "statement og skriv inn følgende kode slik at hele prosedyren med begynnelse og slutt linjene ser slik ut : en

Private Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Handles Button1.Click
p Hvis TextBox1.Text > "" Then
p Hvis ArrayCountInteger = 10 Da

MessageBox.Show ("Du har angitt maksimalt antall elementer ")

Return

End If

ItemArray ( ArrayCountInteger ) = TextBox1.Text

ArrayCountInteger + = 1

TextBox1.Clear ( )

TextBox1.Focus ( )

End If

End Sub

Denne koden leser hvert element som du skriver inn i tekstboksen og setter den i matrisen.

6

Vise array. Klikk kategorien Utforming å gå tilbake til Design vinduet. Dobbeltklikk på " List Items " -knappen for å gå tilbake til Kode-vinduet . Tast inn koden mellom de to linjene slik at det endelige resultatet ser slik ut:

Private Sub Button2_Click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button2.Click

Dim ListArrayCountInteger As Integer

Mens ListArrayCountInteger < ( ArrayCountInteger + 1 )
p Hvis ItemArray ( ListArrayCountInteger ) > "" Then

ListBox1.Items.Add ( ItemArray ( ListArrayCountInteger ) )

ListArrayCountInteger + 1 =

Else

MessageBox.Show ( " Ingen flere elementer" )

Return

End If

Loop

Denne koden leser array ved hjelp av en løkke og steder elementene i Liste- for visning.
7

Klikk på " Debug " menyen på øverst på skjermen og klikker på "Start Debugging " linken for å teste programmet . Skriv inn et element inn i tekstboksen og klikk på " Legg til element "-knappen . Legge til flere produkter og klikk på " List Items " for å se elementene i Liste .