Lernprogramm für Visual Basic-Arrays
Microsofts VisualBasic ermöglicht die einfache deklarieren und den Umgang mit einem Element Variablen, aber manchmal braucht man etwas mehr, wie eine Tabelle der Elemente mit den gleichen Merkmalen. Vielleicht möchten die Tabelle Drucken die Elemente durchlaufen, oder vielleicht möchten die Tabelle aus einer Datenbank zu erstellen. VB erleichtert diese Funktion durch die Verwendung von Arrays, auch mehrdimensionale Arrays.
Anweisungen
1 Starten Sie Visual Basic, und klicken Sie auf den Link "Neues Projekt" auf der Startseite. Doppelklicken Sie auf "Windows Forms-Anwendung" Öffnen Sie ein neues Formular im Fenster Visual Basic-Design.
2 Einfach den Cursor auf die Registerkarte Toolbox auf der linken Seite im Design-Fenster öffnen Sie im Menü des Werkzeugfensters. Es dauert einige Sekunden, um die ToolBox geladen und angezeigt wird.
3 Doppelklicken Sie das Menüelement "ListBox" im Abschnitt Allgemeine Steuerelemente der Toolbox auf ein ListBox-Steuerelement zum Formular hinzufügen. Doppelklicken Sie auf den Menüpunkt "Button" zweimal, um dem Formular zwei Schaltflächen hinzufügen. Doppelklicken Sie auf den Menüpunkt "TextBox" Ihr Formular eine TextBox hinzu. Ziehen Sie die Steuerelemente in dem Formular anordnen unter der TextBox Button1 und Button2 unter der ListBox zu arrangieren.
4 Doppelklicken Sie auf die Schaltfläche "Element hinzufügen", um das Visual Basic-Code-Fenster öffnen. Klicken Sie auf die Leerzeile unter der Anweisung "Public Class Form1" am oberen Rand des Fensters, und geben Sie die folgende Zeile:
Dim ItemArray(9) As String
Dim ArrayCountInteger As Integer
Diese Anweisung deklariert ein Array von bis zu zehn Zeichenfolgentyp Elemente und eine Ganzzahl Zähler. Der Zähler beginnt immer bei Null, so dass die Anweisung "Dim" die Anzahl an neun, eins kleiner als die Anzahl der Elemente im Array legt.
5 Klicken Sie auf die Leerzeile nach der "Private Sub Button1_Click"-Anweisung, und geben Sie den folgenden Code, so dass die gesamte Prozedur mit Anfangs- und End-Zeilen wie folgt aussieht:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text > "" Then
If ArrayCountInteger = 10 Then
MessageBox.Show("You have entered the maximum number of items")
Return
End If
ItemArray(ArrayCountInteger) = TextBox1.Text
ArrayCountInteger += 1
TextBox1.Clear()
TextBox1.Focus()
End If
End Sub
Dieser Code liest jedes Element, das Sie in das Textfeld eingeben und legt es in das Array.
6 Die Reihe anzeigen. Klicken Sie auf der Registerkarte Entwurf zum Design-Fenster zurückzukehren. Doppelklicken Sie auf die Schaltfläche "Listenelemente" zum Code-Fenster zurückzukehren. Geben Sie Code zwischen den zwei Zeilen, so dass das Endergebnis wie folgt aussieht:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) behandelt Button2.Click
Dim ListArrayCountInteger As Integer
Do While ListArrayCountInteger < (ArrayCountInteger + 1)
If ItemArray(ListArrayCountInteger) > "" Then
ListBox1.Items.Add(ItemArray(ListArrayCountInteger))
ListArrayCountInteger += 1
Else
MessageBox.Show("No more items")
Return
End If
Loop
Dieser Code liest das Array mit einer Schleife und die Elemente in der ListBox-Steuerelement für die Anzeige platziert.
7 Klicken Sie auf den Menüpunkt "Debug" am oberen Rand des Bildschirms, und klicken Sie auf den Link "Debugging starten", um das Programm zu testen. Geben Sie ein Element in das Textfeld ein und klicken Sie auf "Eintrag hinzufügen". Fügen Sie mehrere Elemente hinzu, und klicken Sie auf "Liste Objekte", um Ihre Elemente in der ListBox anzuzeigen.