Microsofts Visual Basic gör det lätt att förklara och hantering av enstaka element variabler , men ibland behöver något mer , som ett bord av element med samma egenskaper . Du kanske vill loopa igenom tabellen skriver elementen , eller du kanske vill bygga bordet från en databas . VB.NET underlättar denna funktionalitet genom användandet av matriser , inklusive flerdimensionella matriser. Instruktioner
1
Starta Visual Basic och klicka på " Nytt projekt " länken på startsidan . Dubbelklicka på " Windows Forms Application " för att öppna ett nytt formulär i Visual Basic Design fönstret .
2
Rulla markören över fliken Toolbox till vänster om Design fönstret för att öppna menyn Verktyg . Det kan ta några sekunder att ladda verktygslådan och visa det .
3
Dubbelklicka på " ListBox " på menyn till gemensamma kontroller delen av verktygslådan för att lägga till en listruta till din formulär . Dubbelklicka på " knappen " i menyn två gånger för att lägga till två knappar i formuläret . Dubbelklicka på " TextBox " menyn för att lägga till en textruta i formuläret . Dra kontrollerna i formuläret för att ordna Button1 enligt textrutan och ordna Button2 under ListBox .
4
Dubbelklicka på " Lägg till fil" knappen för att öppna Visual Basic -kod fönster . Klicka på den tomma raden under " public class Form1 " uttalande i toppen av fönstret och nyckeln följande rad :
Dim ItemArray ( 9 ) As String
Dim ArrayCountInteger As Integer
Detta uttalande förklarar en rad upp till tio string -objekt och ett heltal disk . Räknaren börjar alltid på noll , så den " Dim " uttalande sätter antalet till nio , ett mindre än antalet objekt i arrayen .
5
Klicka på den tomma raden efter " Private Sub Button1_Click " uttalande och skriv in följande kod så att hela proceduren med början och slut linjer ser ut så här :
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e som System.EventArgs ) Handtag Button1.Click
Om TextBox1.Text > " " Då
p Om ArrayCountInteger = 10 Sedan
MessageBox.Show ( " Du har angett maximalt antal objekt " ) katalog
Return
End If
ItemArray ( ArrayCountInteger ) = TextBox1.Text
ArrayCountInteger + = 1
TextBox1.Clear ( ) katalog
TextBox1.Focus ( ) katalog
End If
End Sub
Denna kod läser varje objekt som du anger i textrutan och sätter det i arrayen .
6
Visa arrayen . Klicka på fliken Design för att återgå till Design fönstret . Dubbelklicka på " listobjekt " knappen för att återgå till fönstret Kod . Ange koden mellan de två linjer så att slutresultatet ser ut såhär:
Private Sub Button2_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) hanterar Button2.Click
Dim ListArrayCountInteger As Integer
Do While ListArrayCountInteger < ( ArrayCountInteger + 1 ) katalog p Om ItemArray ( ListArrayCountInteger ) > " " Då
ListBox1.Items.Add ( ItemArray ( ListArrayCountInteger ) ) katalog
ListArrayCountInteger + = 1
Else
MessageBox.Show ( " Inga fler objekt " ) katalog
Return
End If
loop
Denna kod läser arrayen med en slinga och platser objekten i ListBox för visning .
7
Klicka på " Debug " i menyn på överst på skärmen och klicka på "Start Debugging " länken för att testa ditt program . Ange ett objekt i textrutan och klicka på " Lägg till fil" knappen . Tillsätt flera produkter och klicka på " listobjekt " knappen för att se dina artiklar i listboxen .
