Rubrik: Controls · StatusBar/ProgressBar | VB-Versionen: VB2005, VB2008 | 05.05.09 |
Value durch Mausklick auf ProgressBar bestimmen Durch einen Klick auf eine ProgressBar wird der Wert an die Stelle des Mauszeigers gesetzt. | ||
Autor: Pascal | Bewertung: | Views: 11.795 |
ohne Homepage | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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