لدي سؤال حول تعدد المسارات Threading

شكرا اخي حزوم

لكن ممكن حد يعدللي المثال المرفق

تفضل هذا كود Form1 الكامل بعد تعديلاتي

Public Class Form1

	Private Shared CancelThrd As Boolean = False

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		' لايجب أن يكون متغيرا عاما على مستوى الفئة بل يجب تعرفه كمتغير محلي داخل الإجراء
		Dim Thrd As New Threading.Thread(AddressOf ShowWait)

		CancelThrd = False

		Thrd.Start()

		Me.ListBox1.Items.Clear()
		For i As Integer = 0 To 5
			For Each f As String In IO.Directory.GetFiles("c:\windows\system32")
				Me.ListBox1.Items.Add(f)
			Next
		Next

		CancelThrd = True

	End Sub

	Sub ShowWait()
		WaitForm.StartPosition = FormStartPosition.CenterScreen
		WaitForm.Show()

		' ادخل في حلقة لانهائية بينما ينهي البرنامج عمله
		Do
			Application.DoEvents()
		Loop Until CancelThrd = True

		WaitForm.Close()
	End Sub

End Class

المشكلة هي أنك عندما أظهرت النموذج WaitForm من المسار الثاني لا يمكنك إنهاؤه من المسار الأول لأنه ليس المسار الذي قام بإظهاره بالأساس لذا يجب علينا إنهاؤه من نفس المسار الذي أظهره لهذا وضعت حلقة Do ... Loop تدور حول نفسها بينما ينهي البرنامج عمله وعند تغير قيمة المتغير CancelThrd من القيمة False إلى القيمة True تنتهي حلقة Do ثم يتم إغلاق النموذج بعد انهاء الحلقة

اهاا

نعم كان ذلك هو السبب أني كنت اقوم بوضع متغير بوليان ولكن ليس شارد

لاني جربت نفس الطريقة سابقا وماضبطت معي

ألف شكرا اخي العزيز محمد سامر ولك اخي العزيز حزووم على المساعدة