Hallo,
Ich habe das Tutorial von mikeb69 benutzt, dabei kommt bei mir jedoch ein fehler:
Mein Code:
Spoiler anzeigen
Den Fehler(Warnung, beim ausführen) den er mir einzeigt ist, bei
Bitte um Hilfe bzw. Erläuterung.
Ich habe das Tutorial von mikeb69 benutzt, dabei kommt bei mir jedoch ein fehler:
Mein Code:
VB.NET-Quellcode
- 'Importiert ist natürlich schon mit: Imports System.ComponentModel
- Private f As frmGames
- Private WithEvents bgw As New BackgroundWorker
- Private ausfahren As Boolean = True
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- bgw.RunWorkerAsync(ausfahren)
- If ausfahren = True Then ausfahren = False Else ausfahren = True
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- 'bgw stoppen falls während des aus oder einfahrens die anwendung geschlossen wird
- If bgw.IsBusy = True Then
- bgw.CancelAsync()
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' InteropServices.Load()
- 'InteropServices.LoadGames()
- 'borderstyle setzen
- f.FormBorderStyle = Windows.Forms.FormBorderStyle.None
- 'backgroundworker einrichten
- bgw.WorkerReportsProgress = True
- bgw.WorkerSupportsCancellation = True
- 'fenster einrichten
- f.Show()
- f.Size = New Size(0, Me.Height)
- f.Location = New Point(Me.Right, Me.Top)
- End Sub
- Private Sub Form1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LocationChanged
- 'fester mitbewegen
- f.Location = New Point(Me.Right, Me.Top)
- End Sub
- Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
- 'ein und ausfahrbewegung
- Select Case e.Argument
- Case True
- For i As Integer = 0 To 100
- 'aktuelle position ausgeben
- bgw.ReportProgress(i, i)
- 'warten, damit es auf allen cpu gleichschnell läuft
- Threading.Thread.Sleep(20)
- Next
- Case False
- For i As Integer = 100 To 0 Step -1
- 'aktuelle position ausgeben
- bgw.ReportProgress(i, i)
- 'warten, damit es auf allen cpu gleichschnell läuft
- Threading.Thread.Sleep(20)
- Next
- End Select
- End Sub
- Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
- 'neue größe an das fenster weitergeben
- f.Size = New Size(e.UserState, Me.Height)
- End Sub
- End Class
Den Fehler(Warnung, beim ausführen) den er mir einzeigt ist, bei
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.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gather“ ()