Windows Phone and BackgroundWorker

Imports System.ComponentModel

Partial Public Class MainPage
    Inherits PhoneApplicationPage

    ' Constructor
    Public Sub New()
        InitializeComponent()
    End Sub

    Private WithEvents backgroundWorker As BackgroundWorker

    Private Sub btnStart_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
        Me.ProgressBar1.Maximum = 100
        Me.ProgressBar1.Value = 0

        backgroundWorker = New BackgroundWorker
        backgroundWorker.WorkerReportsProgress = True
        backgroundWorker.WorkerSupportsCancellation = True

        AddHandler backgroundWorker.DoWork, AddressOf backgroundWorker_DoWork
        AddHandler backgroundWorker.ProgressChanged, AddressOf backgroundWorker_ProgressChanged
        AddHandler backgroundWorker.RunWorkerCompleted, AddressOf backgroundWorker_RunWorkerCompleted

        backgroundWorker.RunWorkerAsync()
    End Sub

    Private Sub btnCancel_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
        backgroundWorker.CancelAsync()
    End Sub

    Private Sub backgroundWorker_DoWork(ByVal sender As System.Object, _
       ByVal e As DoWorkEventArgs)
        Dim i As Integer

        For i = 1 To 100
            If (backgroundWorker.CancellationPending = True) Then
                e.Cancel = True
                Exit For
            Else
                System.Threading.Thread.Sleep(100)
                backgroundWorker.ReportProgress(i)
            End If
        Next
    End Sub

    Private Sub backgroundWorker_ProgressChanged(sender As Object,
         e As ProgressChangedEventArgs)
        Me.txtResult.Text = "Process Working..."
        Me.ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub backgroundWorker_RunWorkerCompleted(sender As Object,
     e As RunWorkerCompletedEventArgs)
        If e.Cancelled = True Then
            Me.txtResult.Text = "Process Cancel!"
        ElseIf e.Error IsNot Nothing Then
            Me.txtResult.Text = "Error: " & e.Error.Message
        Else
            Me.txtResult.Text = "Process Completed."
        End If
    End Sub


End Class

using System;
using System.Windows;
using System.Net;
using System.IO;
using System.Text;
using System.IO.IsolatedStorage;
using Microsoft.Phone.Controls;
using Microsoft.Phone.Shell;
using System.Collections.Generic;
using System.Windows.Controls;
using System.Windows.Media.Imaging;
using System.ComponentModel;

namespace PhoneApp
{
    public partial class MainPage : PhoneApplicationPage
    {

        // Constructor
        public MainPage()
        {
            InitializeComponent();
        }

        private BackgroundWorker backgroundWorker;

        private void btnStart_Click(System.Object sender, System.Windows.RoutedEventArgs e)
        {
            this.ProgressBar1.Maximum = 100;
            this.ProgressBar1.Value = 0;

            backgroundWorker = new BackgroundWorker();
            backgroundWorker.WorkerReportsProgress = true;
            backgroundWorker.WorkerSupportsCancellation = true;

            backgroundWorker.DoWork += backgroundWorker_DoWork;
            backgroundWorker.ProgressChanged += backgroundWorker_ProgressChanged;
            backgroundWorker.RunWorkerCompleted += backgroundWorker_RunWorkerCompleted;

            backgroundWorker.RunWorkerAsync();
        }


        private void btnCancel_Click(System.Object sender, System.Windows.RoutedEventArgs e)
        {
            backgroundWorker.CancelAsync();
        }

        private void backgroundWorker_DoWork(System.Object sender, DoWorkEventArgs e)
        {
            int i = 0;

            for (i = 1; i <= 100; i++)
            {
                if ((backgroundWorker.CancellationPending == true))
                {
                    e.Cancel = true;
                    break; // TODO: might not be correct. Was : Exit For
                }
                else
                {
                    System.Threading.Thread.Sleep(100);
                    backgroundWorker.ReportProgress(i);
                }
            }
        }

        private void backgroundWorker_ProgressChanged(object sender, ProgressChangedEventArgs e)
        {
            this.txtResult.Text = "Process Working...";
            this.ProgressBar1.Value = e.ProgressPercentage;
        }

        private void backgroundWorker_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
        {
            if (e.Cancelled == true)
            {
                this.txtResult.Text = "Process Cancel!";
            }
            else if (e.Error != null)
            {
                this.txtResult.Text = "Error: " + e.Error.Message;
            }
            else
            {
                this.txtResult.Text = "Process Completed.";
            }
        }


    }
}