Download Aktiv, Textfarbe ändern sich

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ThuCommix.

    Download Aktiv, Textfarbe ändern sich

    Hallo,

    ich habe ein Problem und zwar:
    wenn ich mein programm starte und der Download aktiv wird, dann ändert die form die text farbe wieder auf standart "schwarz".
    Eingestellt ist Weiß.

    kennt jemand den Fehler ?


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Net
    4. Imports System.Text
    6. Public Class Form1
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Using web = New WebClient() With {.Proxy = Nothing, .Encoding = Encoding.Default}
    11. Label4.Text = web.DownloadString("http://")
    12. End Using
    14. Timer1.Start()
    16. End Sub
    18. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    19. Dim client As WebClient = New WebClient
    21. AddHandler client.DownloadProgressChanged, AddressOf client_ProgressChanged
    23. AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
    24. SW = Stopwatch.StartNew
    25. client.DownloadFileAsync(New Uri("http://download.thinkbroadband.com/200MB.zip"), Environment.CurrentDirectory & "\200MB.zip")
    27. Me.Text = "Download in Progress"
    29. Me.Enabled = False
    30. Timer1.Stop()
    31. End Sub
    32. Dim sw As New Stopwatch
    33. Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
    35. Dim downloaded As String = CType(e.BytesReceived / 1024, String)
    36. Dim mussdownloaden As String = CType(e.TotalBytesToReceive / 1024, String)
    37. ProgressBar1.Value = e.ProgressPercentage
    38. Label1.Text = String.Format("{0:0.00} MB von {1:0.00} MB", e.BytesReceived / 1024 / 1024, e.TotalBytesToReceive / 1024 / 1024)
    40. Label2.Text = e.ProgressPercentage & "%"
    42. End Sub
    44. Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    46. MessageBox.Show("Download Complete")
    48. Me.Text = "Start Download"
    50. Me.Enabled = True
    52. Me.ProgressBar1.Value = 0
    53. Me.Label1.Text = "0 von 0 Bytes"
    54. Me.Label2.Text = "0%"
    55. End Sub
    57. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    58. Me.Close()
    59. End Sub
    61. End Class

Facebook
Telefonspende