Form seitlich ausfahren --> Fehler

  • Allgemein

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

    Form seitlich ausfahren --> Fehler

    Hallo,

    Ich habe das Tutorial von mikeb69 benutzt, dabei kommt bei mir jedoch ein fehler:

    Mein Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Importiert ist natürlich schon mit: Imports System.ComponentModel
    2. Private f As frmGames
    3. Private WithEvents bgw As New BackgroundWorker
    4. Private ausfahren As Boolean = True
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. bgw.RunWorkerAsync(ausfahren)
    8. If ausfahren = True Then ausfahren = False Else ausfahren = True
    9. End Sub
    11. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    12. 'bgw stoppen falls während des aus oder einfahrens die anwendung geschlossen wird
    13. If bgw.IsBusy = True Then
    14. bgw.CancelAsync()
    15. End If
    16. End Sub
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    19. ' InteropServices.Load()
    20. 'InteropServices.LoadGames()
    21. 'borderstyle setzen
    22. f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    23. 'backgroundworker einrichten
    24. bgw.WorkerReportsProgress = True
    25. bgw.WorkerSupportsCancellation = True
    26. 'fenster einrichten
    27. f.Show()
    28. f.Size = New Size(0, Me.Height)
    29. f.Location = New Point(Me.Right, Me.Top)
    30. End Sub
    32. Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
    33. 'fester mitbewegen
    34. f.Location = New Point(Me.Right, Me.Top)
    35. End Sub
    37. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    38. 'ein und ausfahrbewegung
    39. Select Case e.Argument
    40. Case True
    41. For i As Integer = 0 To 100
    42. 'aktuelle position ausgeben
    43. bgw.ReportProgress(i, i)
    44. 'warten, damit es auf allen cpu gleichschnell läuft
    45. Threading.Thread.Sleep(20)
    46. Next
    47. Case False
    48. For i As Integer = 100 To 0 Step -1
    49. 'aktuelle position ausgeben
    50. bgw.ReportProgress(i, i)
    51. 'warten, damit es auf allen cpu gleichschnell läuft
    52. Threading.Thread.Sleep(20)
    53. Next
    54. End Select
    55. End Sub
    57. Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    58. 'neue größe an das fenster weitergeben
    59. f.Size = New Size(e.UserState, Me.Height)
    60. End Sub
    61. End Class


    Den Fehler(Warnung, beim ausführen) den er mir einzeigt ist, bei

    VB.NET-Quellcode

    1. bgw.ReportProgress(i, i)

    Dieser BackgroundWorker gibt an, dass er keinen Fortschritt meldet. Ändern Sie WorkerReportsProgress, um anzugeben, dass er einen Fortschritt meldet.


    Bitte um Hilfe bzw. Erläuterung.
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()

Facebook
Telefonspende