Klasse, Thread und Timer

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

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von woeh.

    Klasse, Thread und Timer

    hallo :)

    ich lasse einen thread starten.

    VB.NET-Quellcode

    1. Private Sub CheckUpdate(ByVal waitForUser As Boolean, askUser As Boolean)
    2. Dim th As Threading.Thread
    3. Dim cUpdate As New clsUpdate(waitForUser, askUser)
    5. th = New Threading.Thread(AddressOf cUpdate.DownloadStart)
    6. th.TrySetApartmentState(Threading.ApartmentState.STA)
    7. th.IsBackground = True
    8. th.Priority = Threading.ThreadPriority.Normal
    10. th.Start()
    12. End Sub



    in der Klasse des Threads beende ich dann einen Timer. Klappt alles.

    beim beenden der Klasse möchte ich den Timer wieder aus dem Thread heraus starten.
    das klappt leider nicht.

    VB.NET-Quellcode

    1. Private Sub ClientDownloadStringCompleted(ByVal sender As Object, ByVal e As Net.DownloadStringCompletedEventArgs)
    3. ...
    4. ...
    6. mainform.tmrUpdate.Interval = 1000 * 10
    7. mainform.tmrUpdate.Enabled = True
    9. End Sub


    kann mir jmd helfen ?

    woeh schrieb:

    beim beenden der Klasse
    was meinst Du damit? Eine Klasse kann weder gestartet noch beendet werden. Eine Klasse ist ein Bauplan eines Objektes.

    woeh schrieb:

    das klappt leider nicht.
    Was passiert denn konktret? Da kommt doch nicht etwa eine Mitteilung, dass threadübergreifende Prozesse verboten sind?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @woeh Poste einen Code, der Deinen Effekt reproduziert.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Code Form

    VB.NET-Quellcode

    1. Private Sub tmrUpdate_Tick(sender As Object, e As EventArgs) Handles tmrUpdate.Tick
    3. CheckUpdate(False, False)
    5. End Sub
    7. Private Sub CheckUpdate(ByVal waitForUser As Boolean, askUser As Boolean)
    8. Dim th As Threading.Thread
    9. Dim cUpdate As New clsUpdate(waitForUser, askUser)
    11. th = New Threading.Thread(AddressOf cUpdate.DownloadStart)
    12. th.TrySetApartmentState(Threading.ApartmentState.STA)
    13. th.IsBackground = True
    14. th.Priority = Threading.ThreadPriority.Normal
    16. th.Start()
    18. End Sub


    Code Klasse

    VB.NET-Quellcode

    1. Public Class clsUpdate
    2. Dim byUser, ask As Boolean
    3. Dim myVersion, newVersion As Integer
    5. Public Sub New(ByVal initByUser As Boolean, askUser As Boolean)
    7. byUser = initByUser
    8. ask = askUser
    10. mainform.tmrUpdate.Enabled = False 'Timer wird angehalten
    12. End Sub
    14. Public Sub DownloadStart()
    16. If Not cCls.IsInternetConnected(byUser) Then
    17. Exit Sub
    18. End If
    20. Dim client As New Net.WebClient()
    22. AddHandler client.DownloadStringCompleted, AddressOf ClientDownloadStringCompleted
    24. client.DownloadStringAsync(New Uri(MyNfo.UpdateURL))
    26. End Sub
    28. Private Sub ClientDownloadStringCompleted(ByVal sender As Object, ByVal e As Net.DownloadStringCompletedEventArgs)
    30. Try
    31. strNewVersion = e.Result
    32. newVersion = CInt(strNewVersion.Replace(",", ""))
    33. Catch ex As Exception
    34. newVersion = 0
    35. End Try
    37. myVersion = CInt(MyNfo.Version.Replace(".", ""))
    39. If newVersion > myVersion And
    40. newVersion > oldVersion Then
    41. oldVersion = newVersion
    42. isUpdate = True
    44. mainform.butUpdateStart.Text = "Update verfügbar"
    46. If Not byUser Then
    47. mainform.NotifyIcon.BalloonTipTitle = MyNfo.Name
    48. mainform.NotifyIcon.BalloonTipText = "Neue Version vefügbar v" & strNewVersion & vbCrLf &
    49. "Klicke hier um die neue Version zu installieren."
    51. mainform.NotifyIcon.ShowBalloonTip(1000 * 30)
    52. End If
    54. If ask Then
    55. askUser()
    56. End If
    57. End If
    59. mainform.tmrUpdate.Interval = 1000 * 10
    60. mainform.tmrUpdate.Enabled = True '<-- Timer wird nicht gestartet !!
    62. End Sub

    @woeh Wie kann der Code Deinen Effekt reproduzieren, wenn er nicht mal compiliert?
    Poste bitte getesteten Code, nicht nur compilierenden :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende