Tipp 0081 ProgressBar
Autor/Einsender:
Datum:
  Horst Düvel
26.07.2005
Entwicklungsumgebung:   VB.Net 2003
Framework:   1.1
Mit Hilfe von Zeichenmethoden (GDI+) kann eine ProgressBar im Eigenbau erstellt werden. So kann das Aussehen der Fortschrittsanzeige nach eigenen Wünschen gestalten werden. Es werden ineinander geschachtelte Rechtecke (Rectangle) farblich voneinander abgesetzt und die Breite (Width) des inneren Rechtecks schrittweise erhöht.
 
Public Class Form1
  Inherits System.Windows.Forms.Form
Vom Windows Form Designer generierter Code
  Private Declare Function Beep Lib "kernel32" (ByVal _
      dwFreq As Int32, ByVal dwDuration As Int32) As Int32

  Private MyTimer As New Timer

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

    ProgressBar1.Parent = StatusBar1
    ProgressBar1.Dock = DockStyle.Fill
    ProgressBar1.Maximum = 100
  End Sub

  Private Sub Initialize_MyTimer()
    MyTimer.Interval = 100
    AddHandler MyTimer.Tick, AddressOf IncreaseProgressBar
    MyTimer.Start()
    Me.Cursor = Cursors.WaitCursor
  End Sub

  Private Sub IncreaseProgressBar(ByVal sender As Object, _
        ByVal e As EventArgs)
    ProgressBar1.Increment(1)
    StatusBar2.Text = ProgressBar1.Value.ToString() + "% Completed"
    If ProgressBar1.Value = ProgressBar1.Maximum Then
      MyTimer.Stop()
      Me.Cursor = Cursors.Default
      Dim intRet As Int32 = Beep(800, 100)
    End If
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Initialize_MyTimer()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    ProgressBar1.Value = 0
    StatusBar2.Text = "0"
  End Sub

  Private Sub Button3_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub

  Private Sub Form1_Closing(ByVal sender As Object, _
        ByVal e As System.ComponentModel.CancelEventArgs) _
        Handles MyBase.Closing
    If MessageBox.Show("Programm beenden?", "Programm beenden?", _
          MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
          <> vbYes Then
      e.Cancel = True
    End If
  End Sub
End Class
 
Weitere Links zum Thema
Kuchendiagramm erstellen
ProgressBar in StatusBar

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (27,5 kB) Downloads bisher: [ 1119 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 24. Januar 2012