dotNETportal.cz

Je to trochu složitější a přímo v .NET frameworku to není, ale na serveru CodeProject je knihovna, která Ti to v .NETu zpřístupní. Stáhni si demo project, asi se musíš zaregistrovat, pokud ještě nejsi. V tom demu určitě najdeš, jak se to dělá, a bude tam i ta knihovna. Kdyby byl nějaký problém, napiš.

http://www.codeproject.com/dotnet/winpro...

Tak mi to nedalo, podíval jsem se na to, a je to poměrně jednoduché. Do projektu si přidáš do referencí knihovnu z toho archivu (Bin\WinProgressdialog.dll), který si stýáhneš na dotyčné stránce. Použití je pak jednoduché (přeložil jsem komentáře):

'hlášky, které se budou střídat jako indikátor stavu
Private m_Activities As String() = New String() {"first", "few entries", "don't show up", "because of", "default 2 sec delay", "Learning General Relativity...", "Watching movies...", "Learning Game Theory...", "Writing Code Project articles...", "Meeting people...", "Exploring Juneue...", "Reading news...", "Theorizing instruction-memory equivalece..."}


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim progressDialog As New WinProgressDialog.ProgressDialog
        Try
            progressDialog.ProgressBarVisible = False
            'nastavit parametry
            progressDialog.Show(Me.Handle.ToInt32, "Christmas Time Status", "Spending Christmas Time", m_Activities.Length)

            For dayIndex As Integer = 0 To m_Activities.Length - 1
                'Nastavit do dialogu hlášku a zkontrolovat, jestli uživatel nekliknul na Storno
                If progressDialog.UpdateProgress(dayIndex, m_Activities(dayIndex)) Then
                    MsgBox("You cancelled!!")
                    Exit For
                End If

                'Počkat 2s, aby bylo něco vidět
                Threading.Thread.CurrentThread.Sleep(2000)
            Next
        Finally
            'dialog musí být vždycky ukončen, jinak nezmizí
            progressDialog.Dispose()
        End Try
    End Sub