Webclient Download Größe in KB, MB etc. umrechnen
Das steht im ProgressChanged Event:
Die Funktion "Größe":
Im Label steht -1KB bis der Download abgeschlossen bist, dann steht die FAST richtige Größe da, anstatt MB, GB das kann ich aber später selber ändern.
lblGröße.Text = Größe(e.TotalBytesToReceive)
Die Funktion "Größe":
Private Function Größe(ByVal s As Decimal)
Dim DG As Integer = 0
Do While s >= 1000
s /= 1000
DG += 1
Loop
If DG = 0 Then
Return s & "KB"
ElseIf DG = 1 Then
Return s & "MB"
ElseIf DG = 2 Then
Return s & "GB"
ElseIf DG = 3 Then
Return s & "TB"
Else
Return s & "?"
End If
End Function
Im Label steht -1KB bis der Download abgeschlossen bist, dann steht die FAST richtige Größe da, anstatt MB, GB das kann ich aber später selber ändern.
Please also mark the comments that contributed to the solution of the article
Content-Key: 310628
Url: https://administrator.de/contentid/310628
Printed on: April 19, 2024 at 23:04 o'clock
4 Comments
Latest comment
Doppelpost:
Wie berechene ich die Download Geschwindigkeit?
Wie berechene ich die Download Geschwindigkeit?