g3kUr0 hat geschrieben:Private Sub ProgressBar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim valueProgressBar As Integer
valueProgressBar = ((x * ProgressBar1.Max) / ProgressBar1.Width)
If Button = 1 Then
If valueProgressBar < 0 Then
valueProgressBar = 0
End If
If valueProgressBar > ProgressBar1.Max Then
valueProgressBar = ProgressBar1.Max
End If
ProgressBar1.Value = valueProgressBar
End If
End Sub
hab das beispiel von heute morgen mal in das 'grundgerüst' von vb .net gepackt, das sieht dann in etwa so aus:
Private Sub ProgressBar1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ProgressBar1.MouseMove
Dim valueProgressBar As Integer
If e.Button = MouseButtons.Left Then
valueProgressBar = ((e.X * ProgressBar1.Maximum) / ProgressBar1.Width)
If valueProgressBar < 0 Then
valueProgressBar = 0
End If
If valueProgressBar > ProgressBar1.Maximum Then
valueProgressBar = ProgressBar1.Maximum
End If
ProgressBar1.Value = valueProgressBar
End If
End Sub
in etwa, weil ich keine ide hatte und nicht testen konnte obs funzt.
SitemapIndex