الإرشادات التفصيلية: متعدد العمليات مع مكوّنات BackgroundWorker (C# و Visual Basic)

مقالة
11/01/2010

توضح هذه المعاينة كيفية إنشاء تطبيقات ذات مؤشرات مترابطة التي تبحث في ملف نصي على تواجدات الكلمة. إنها تعرض:

تعريف فئة بإستخدام أسلوب يمكن استدعاؤها بواسطة مكوّن BackgroundWorker.
معالجة الأحداث بواسطة مكوّن BackgroundWorker.
بدء مكوّن BackgroundWorker لتشغيل الأسلوب.
تطبيق لزر Cancelيوقف مكوّنBackgroundWorker.

لإنشاء واجهة المستخدم

افتح Visual Basicجديدة أو مشروع تطبيقات C# Windows, وإنشاء نموذج باسم Form1.
قم بإضافة زرين و أربعة مربعات نص إلى Form1.

قم بتسمية الكائنات كما هو موضح في الجدول التالي.

الكائن	الخصائص	الإعداد
الزر الأول	Name, Text	قم بتشغيل Excel.
الزر الثاني	Name, Text	بناء. الغاء
أول مربع نص	Name, Text	ملف المصدر
مربع النص الثاني	Name, Text	CompareString, ""
مربع النص الثالث	Name, Text	WordsCounted "0"
مربع النص الرابع	Name, Text	LinesCounted "0"

إضافة التسمية إلى جانب كل مربع نص. تعيين الخاصية Textلكل التسمية كما هو موضح في الجدول التالي.

الكائن	الخصائص	الإعداد
بطاقة العنونة الأولى	Text	ملف المصدر
التسمية الثانية	Text	قارن السلسلة
التسمية الثالثة	Text	مطابقة الكلمات
التسمية الرابعة	Text	عد الأسطر

لإنشاء مكون BackgroundWorker والتسجيل لأحداث الخاصة به

إضافة مكونBackgroundWorker من القسم مكونات من مربع الأدوات إلى النموذج. سوف يظهر في حاوية مكوّن الخاص بالنموذج.
تعيين خصائص الكائن BackgroundWorker1 التالية في Visual Basicأو كائن backgroundWorker1 في C#‎.

الخصائص

الإعداد

WorkerReportsProgress

True

WorkerSupportsCancellation

True
الاشتراك في C# فقط ، لأحداث الكائن backgroundWorker1. في أعلى النافذة خصائص انقر فوق الرمز الأحداث. انقر نقرة مزودجة على حدث RunWorkerCompleted لإنشاء معالج أحداث. قم بتكرير العملية لحدثين ProgressChangedو DoWork.

الخصائص	الإعداد
WorkerReportsProgress	True
WorkerSupportsCancellation	True

إلى بتعرف الطريقة التي سيتم تشغيلها على مؤشر ترابط منفصل

إختر من القائمة مشروع إضافة فئة لإضافة فئة إلى المشروع. مربع الحوار "إضافة عنصر جديد" يتم عرضه.
تحديد فئة من نافذة قوالب و نوع Words.vb أو Words.cs في حقل الاسم.
انقر فوق إضافة. فئة Wordsمعروضة.

قم بإضافة التعليمات البرمجية التالية إلى الفئة Words .

Public Class Words
    ' Object to store the current state, for passing to the caller.
    Public Class CurrentState
        Public LinesCounted As Integer
        Public WordsMatched As Integer
    End Class

    Public SourceFile As String
    Public CompareString As String
    Private WordCount As Integer = 0
    Private LinesCounted As Integer = 0

    Public Sub CountWords(
        ByVal worker As System.ComponentModel.BackgroundWorker,
        ByVal e As System.ComponentModel.DoWorkEventArgs
    )
        ' Initialize the variables.
        Dim state As New CurrentState
        Dim line = ""
        Dim elapsedTime = 20
        Dim lastReportDateTime = Now

        If CompareString Is Nothing OrElse
           CompareString = System.String.Empty Then

           Throw New Exception("CompareString not specified.")
        End If

        Using myStream As New System.IO.StreamReader(SourceFile)

            ' Process lines while there are lines remaining in the file.
            Do While Not myStream.EndOfStream
                If worker.CancellationPending Then
                    e.Cancel = True
                    Exit Do
                Else
                    line = myStream.ReadLine
                    WordCount += CountInString(line, CompareString)
                    LinesCounted += 1

                    ' Raise an event so the form can monitor progress.
                    If Now > lastReportDateTime.AddMilliseconds(elapsedTime) Then
                        state.LinesCounted = LinesCounted
                        state.WordsMatched = WordCount
                        worker.ReportProgress(0, state)
                        lastReportDateTime = Now
                    End If

                    ' Uncomment for testing.
                    'System.Threading.Thread.Sleep(5)
                End If
            Loop

            ' Report the final count values.
            state.LinesCounted = LinesCounted
            state.WordsMatched = WordCount
            worker.ReportProgress(0, state)
        End Using
    End Sub

    Private Function CountInString(
        ByVal SourceString As String,
        ByVal CompareString As String
    ) As Integer
        ' This function counts the number of times
        ' a word is found in a line.
        If SourceString Is Nothing Then
            Return 0
        End If

        Dim EscapedCompareString =
            System.Text.RegularExpressions.Regex.Escape(CompareString)

        Dim regex As New System.Text.RegularExpressions.Regex(
            EscapedCompareString,
            System.Text.RegularExpressions.RegexOptions.IgnoreCase)

        Dim matches As System.Text.RegularExpressions.MatchCollection
        matches = regex.Matches(SourceString)
        Return matches.Count
    End Function
End Class

public class Words
{
    // Object to store the current state, for passing to the caller.
    public class CurrentState
    {
        public int LinesCounted;
        public int WordsMatched;
    }

    public string SourceFile;
    public string CompareString;
    private int WordCount;
    private int LinesCounted;

    public void CountWords(
        System.ComponentModel.BackgroundWorker worker,
        System.ComponentModel.DoWorkEventArgs e)
    {
        // Initialize the variables.
        CurrentState state = new CurrentState();
        string line = "";
        int elapsedTime = 20;
        DateTime lastReportDateTime = DateTime.Now;

        if (CompareString == null ||
            CompareString == System.String.Empty)
        {
            throw new Exception("CompareString not specified.");
        }

        // Open a new stream.
        using (System.IO.StreamReader myStream = new System.IO.StreamReader(SourceFile))
        {
            // Process lines while there are lines remaining in the file.
            while (!myStream.EndOfStream)
            {
                if (worker.CancellationPending)
                {
                    e.Cancel = true;
                    break;
                }
                else
                {
                    line = myStream.ReadLine();
                    WordCount += CountInString(line, CompareString);
                    LinesCounted += 1;

                    // Raise an event so the form can monitor progress.
                    int compare = DateTime.Compare(
                        DateTime.Now, lastReportDateTime.AddMilliseconds(elapsedTime));
                    if (compare > 0)
                    {
                        state.LinesCounted = LinesCounted;
                        state.WordsMatched = WordCount;
                        worker.ReportProgress(0, state);
                        lastReportDateTime = DateTime.Now;
                    }
                }
                // Uncomment for testing.
                //System.Threading.Thread.Sleep(5);
            }

            // Report the final count values.
            state.LinesCounted = LinesCounted;
            state.WordsMatched = WordCount;
            worker.ReportProgress(0, state);
        }
    }


    private int CountInString(
        string SourceString,
        string CompareString)
    {
        // This function counts the number of times
        // a word is found in a line.
        if (SourceString == null)
        {
            return 0;
        }

        string EscapedCompareString =
            System.Text.RegularExpressions.Regex.Escape(CompareString);

        System.Text.RegularExpressions.Regex regex;
        regex = new System.Text.RegularExpressions.Regex( 
            EscapedCompareString,
            System.Text.RegularExpressions.RegexOptions.IgnoreCase);

        System.Text.RegularExpressions.MatchCollection matches;
        matches = regex.Matches(SourceString);
        return matches.Count;
    }

}

لمعالجة الأحداث من مؤشر ترابط

إضافة معالجات الأحداث التالية إلى نموذج رئيسي:

Private Sub BackgroundWorker1_RunWorkerCompleted( 
    ByVal sender As Object, 
    ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs
  ) Handles BackgroundWorker1.RunWorkerCompleted

    ' This event handler is called when the background thread finishes.
    ' This method runs on the main thread.
    If e.Error IsNot Nothing Then
        MessageBox.Show("Error: " & e.Error.Message)
    ElseIf e.Cancelled Then
        MessageBox.Show("Word counting canceled.")
    Else
        MessageBox.Show("Finished counting words.")
    End If
End Sub

Private Sub BackgroundWorker1_ProgressChanged( 
    ByVal sender As Object, 
    ByVal e As System.ComponentModel.ProgressChangedEventArgs
  ) Handles BackgroundWorker1.ProgressChanged

    ' This method runs on the main thread.
    Dim state As Words.CurrentState = 
        CType(e.UserState, Words.CurrentState)
    Me.LinesCounted.Text = state.LinesCounted.ToString
    Me.WordsCounted.Text = state.WordsMatched.ToString
End Sub

private void backgroundWorker1_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
{
// This event handler is called when the background thread finishes.
// This method runs on the main thread.
if (e.Error != null)
    MessageBox.Show("Error: " + e.Error.Message);
else if (e.Cancelled)
    MessageBox.Show("Word counting canceled.");
else
    MessageBox.Show("Finished counting words.");
}

private void backgroundWorker1_ProgressChanged(object sender, ProgressChangedEventArgs e)
{
    // This method runs on the main thread.
    Words.CurrentState state =
        (Words.CurrentState)e.UserState;
    this.LinesCounted.Text = state.LinesCounted.ToString();
    this.WordsCounted.Text = state.WordsMatched.ToString();
}

ليبدأ "و" يتصل مؤشر ترابط جديد يعمل الأسلوب WordCount

إضافة الإجراءات التالية إلى البرنامج:

Private Sub BackgroundWorker1_DoWork( 
    ByVal sender As Object, 
    ByVal e As System.ComponentModel.DoWorkEventArgs
  ) Handles BackgroundWorker1.DoWork

    ' This event handler is where the actual work is done.
    ' This method runs on the background thread.

    ' Get the BackgroundWorker object that raised this event.
    Dim worker As System.ComponentModel.BackgroundWorker
    worker = CType(sender, System.ComponentModel.BackgroundWorker)

    ' Get the Words object and call the main method.
    Dim WC As Words = CType(e.Argument, Words)
    WC.CountWords(worker, e)
End Sub

Sub StartThread()
    ' This method runs on the main thread.
    Me.WordsCounted.Text = "0"

    ' Initialize the object that the background worker calls.
    Dim WC As New Words
    WC.CompareString = Me.CompareString.Text
    WC.SourceFile = Me.SourceFile.Text

    ' Start the asynchronous operation.
    BackgroundWorker1.RunWorkerAsync(WC)
End Sub

private void backgroundWorker1_DoWork(object sender, DoWorkEventArgs e)
{
    // This event handler is where the actual work is done.
    // This method runs on the background thread.

    // Get the BackgroundWorker object that raised this event.
    System.ComponentModel.BackgroundWorker worker;
    worker = (System.ComponentModel.BackgroundWorker)sender;

    // Get the Words object and call the main method.
    Words WC = (Words)e.Argument;
    WC.CountWords(worker, e);
}

private void StartThread()
{
    // This method runs on the main thread.
    this.WordsCounted.Text = "0";

    // Initialize the object that the background worker calls.
    Words WC = new Words();
    WC.CompareString = this.CompareString.Text;
    WC.SourceFile = this.SourceFile.Text;

    // Start the asynchronous operation.
    backgroundWorker1.RunWorkerAsync(WC);
}

استدع أسلوب StartThreadمن زرStart في النموذج الخاص بك:

Private Sub Start_Click() Handles Start.Click
    StartThread()
End Sub

private void Start_Click(object sender, EventArgs e)
{
    StartThread();
}

لتنفيذ زر إلغاء الأمر التي توقف مؤشر ترابط

يتصل الإجراءStopThread من معالج الحدثClick الخاص بالزر Cancel.

Private Sub Cancel_Click() Handles Cancel.Click
    ' Cancel the asynchronous operation.
    Me.BackgroundWorker1.CancelAsync()
End Sub

private void Cancel_Click(object sender, EventArgs e)
{
    // Cancel the asynchronous operation.
    this.backgroundWorker1.CancelAsync();
}

الاختبار

يمكنك الآن اختبار التطبيق للتأكد من أنه يعمل بشكل صحيح.

لإختبار التطبيق

إضغط على F5 لتشغيل التطبيق.
عندما يتم عرض "النموذج" ، أدخل مسار الملف للملف الذي تريد اختباره في مربع sourceFile. على سبيل المثال، مع افتراض اسم ملف الاختبار Test.txt ، أدخل C:\Test.txt.
في مربع النص الثاني، أدخل كلمة أو عبارة للتطبيق للبحث في الملف النصي.
انقر فوق زر إبدأ (Start) . يجب أن يبدأ الزرLinesCounted بالتزايد فوراً. التطبيق يعرض رسالة "إكمال عد" عندما يتم إجراء.

لاختبار زر "إلغاء الأمر"

اضغط F5 لتشغيل التطبيق ثم أدخل كلمة البحث واسم الملف كما هو موضح في الإجراء السابق. تأكد من أن الملف الذي تختاره قطر أيمن متوسط بما فيه الكفاية إلى تأكد أن لديك الوقت إلى إلغاء الأمر الإجراء قبل أن ينتهي.
انقر فوق الزر Startليبدأ التطبيق.
انقر فوق زر إلغاء (Cancel) . يجب على التطبيق إيقاف العد فوراً.

الخطوات التالية

يحتوي هذا التطبيق على معالجة بعض الأخطاء الأساسية. الكشف عن سلاسل البحث فارغة. يمكنك جعل هذا البرنامج أكثر قوة بواسطة معالجة الأخطاء الأخرى مثل تجاوز الحد الأقصى من الكلمات أو الخطوط التي يمكن حسابها.

راجع أيضًا:

المهام

الإرشادات التفصيلية: تأليف مكون متعددة مؤشرات ترابط بسيطة مع Visual Basic

كيفية: الاشتراك و إلغاء الاشتراك من الأحداث (C# البرمجة الدليل)

المرجع

التأشير الترابطي ل Visual Basic و #Visual C

مشاركة عبر