dotNETportal.cz

Existuje několik způsobů jak to udělat. Ten lepší je vytvořit v ListOfItems událost, která bude v parametru e vracet třídu odvozenou od EventArgs s vlastností představující stav zpracování (0-100). Ten horší způsob je v konstruktoru ListOfItems předat delegáta metody, která bude nastavovat ProgressBar.

To lepší řešení:

Class Form1
  Private WithEvents _itemList As New ItemList
  Private Sub _itemList_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles _itemList.ProgressChanged
    ProgressBar1.Value = e.Progress
  End Sub
End Class

Class ItemList
  Public Event ProgressChanged As EventHandler(Of ProgressChangedEventArgs)
  Public Sub DoSomething()
    For n As Byte = 0 To 100
      RaiseEvent ProgressChanged(Me, New ProgressChangedEventArgs(n))
      Thread.Sleep(25)
    Next
  End Sub
End Class

Class ProgressChangedEventArgs
  Inherits EventArgs
  Private _progress As Byte
  Public Sub New(ByVal progress As Byte)
    If progress > 100 Then
      Throw New ArgumentOutOfRangeException("progress")
    End If
    _progress = progress
  End Sub
  Public ReadOnly Property Progress() As Byte
    Get
      Return _progress
    End Get
  End Property
End Class