Beschreibung:

Visual Basic Quellcode der eine einfache ProcessBar Kompiliert. Die Größe sowie die Farbe des Statusbalken ist Frei definierbar.

Toolbox

Es werden folgende Elemente benötigt.

Form1, Label1, Label2,Label3, Textbox1, Button1

Public Class Form1

    Property [ProcValue] As Decimal
    Property [ProcInterval] As Decimal
    Property [ProcMaximum] As Integer
    Property [ProcColorBar] As Color

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ProcMaximum = Label2.Width
        ProcInterval = Label2.Width / 100
        Label1.Text = "Value"
        Label2.Text = ""
        Label2.Width = 0

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ProcValue = Textbox1.Text
        Label2.Width = ProcValue * ProcInterval

        ' Status wird ohne Kommastellen in Label3 angezeigt
        Dim P As Single = (ProcValue / ProcMaximum) * ProcInterval
        Label3.Text() = FormatPercent(P, 0)

    End Sub

    Private Sub Textbox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles Textbox1.KeyPress

        ' Bei einer Eingabe in die Textbox werden nur Nummerische, Backspace und Space zugelassen
        Select Case Asc(e.KeyChar)

            Case 48 To 57, 8 ' Zahlen, Backspace und Space zulassen
            Case 13
                Button1.PerformClick() ' Klick wird gesendet

            Case Else
                ' alle anderen Eingaben unterdrücken
                e.Handled = True
        End Select

    End Sub

End Class