Value durch Mausklick auf ProgressBar bestimmen Durch einen Klick auf eine ProgressBar wird der Wert an die Stelle des Mauszeigers gesetzt.
Autor:   Pascal	Bewertung:     [ Jetzt bewerten ]	Views:  12.254
ohne Homepage	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 25 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Dieser kurze Tipp zeigt, wie es in VB.Net möglich ist, den Wert einer ProgressBar durch das Anklicken der Progressbar ändern kann.

' Setz den Wert der ProgressBar bei Mausklick 
' anhand der aktuellen Mauskoordinaten
Private Sub SetValue(ByVal ProgressBar As ProgressBar)
  With ProgressBar
    Dim px As Integer = Me.PointToScreen(.Location).X
    Dim x As Integer = MousePosition.X - px
    Dim value As Integer = (x / .Width * .Maximum)
 
    .Value = value
  End With
End Sub

Die Funktion kann folgendermassen aufgerufen werden:

Private Sub ProgressBar1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ProgressBar1.Click
 
  SetValue(ProgressBar1)
End Sub