Die Statusanzeige in Visual Basic 2008 veranschaulicht
Das Statusanzeige-Steuerelement von Visual Basic 2008 zeigt den Fortschritt einige Operation visuell in einem Programm. Wenn Sie das Programm zu erstellen, legen Sie die "Minimal" und "maximal" Eigenschaften für die Statusanzeige, und während das Programm auf Daten eine Aktion ausführt, aktualisieren Sie den Status der Statusanzeige durch Ändern der Eigenschaft "Wert". Beispielsweise wenn Ihr Programm eine Datei öffnet und 50 Zeilen von Text in ein Array von Zeichenfolgen liest, die Statusanzeige mindestens 0 und maximal auf 50 festgelegt. Wenn das Programm die ersten 25 Zeilen liest, ändern den Status Bar Wert 25 zeigen den Fortschritt-Marker halbwegs.
Anweisungen
1 Öffnen Sie eine Visual Basic 2008-Projekt im Entwurfsmodus. Doppelklicken Sie auf das "ProgressBar"-Steuerelement, um es dem Formular hinzufügen. Doppelklicken Sie auf den "Button"-Steuerelement, um es auch dem Formular hinzufügen. Ordnen Sie die Steuerelemente auf dem Formular, wie Sie angezeigt werden sollen.
2 Öffnen Sie das Codefenster. Geben Sie "Imports System.IO" in der oberen Zeile machen Ihr Programm rufen Sie das System ein- und Ausgabefunktionen. Sie benötigen diese öffnen und Lesen einer Datei.
3 Öffnen Sie die "Button1_Click"-Funktion. Geben Sie Folgendes ein:
Dim Anzahl As Integer = 0
Dim Eingabe als StreamReader = New StreamReader("c:\filename.txt")
Dim lines(1000) As String
Dim Summe als Integer
Die erste Deklaration wird eine einfacher Zähler-Variable deklariert. Die zweite öffnet ein StreamReader-Objekt, das liest eine Textdatei namens "Dateiname.txt." Die dritte Deklaration erstellt ein Array von Zeichenfolgen, bis zu 1.000 Zeilen aus der Textdatei enthält. Die letzte Deklaration erstellt eine Integer-Variable, die Sie verwenden, um die Fortschrittsanzeige aktualisiert.
4 Geben Sie Folgendes ein:
Während nicht eingegeben. EndOfStream
Lines(count) = Input. ReadLine()
Count += 1
EndWhile
Diese Schleife liest die Textdatei und speichert und jede Zeile an einer Stelle im Array speichert, bis jede Zeile gelesen wurde.
5 Geben Sie Folgendes ein:
Fortschritt = Count
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = Fortschritt
Dies setzt die "Fortschritt"-Variable auf den Wert als Variablen "Count", und dann wird der Minimalwert der Fortschrittsbalken auf NULL und der höchste Wert auf den Wert, den "Fortschritt" hält.
6 Geben Sie Folgendes ein:
Für i = 0 To Fortschritt - 1
callToSomeFunction(array)
Fortschritt-= 1
ProgressBar1.Value = i
Nächsten ich
Diese Schleife durchläuft jedes Element im Array und führt eine Aktion auf sie in der Zeile "callToSomeFunction(array)". Da jedes Element im Array verarbeitet wird, die "Fortschritt" Variable um eins verringert und der Fortschritt Bar Wert ändert sich der Zustand der Schleife wiedergegeben.