استفاده از پروسس دیالوگ

[majerajoo 161]

سلام

همینطور که در این کد میبینید تعداد فایل های داخل یک پوشه رو لیست مکنه و در لیبل نشون میده

من میخوام در طول دریافت اطلاعات از پوشه یک پروسس دیالوگ نمایش داده بشه و وقتی دریافت شد و روی لیبل نشون داده شد پروسس بسته بشه

نمیدونم این کد رو کجاهای کد باید بزارم

من پروسس شو رو اول ساب گذاشتم و هاید رو آخر ساب اما اصلا پروسس باز نمیشه

Sub moboFolder
	
	 Dim l As List
	l.Initialize
	
	l=File.ListFiles(File.DirRootExternal&"/Android/data/com.hanista.mobogram/cache")
	Dim size As Int
	
	For i=0 To l.Size-1
		size=size+File.Size(File.DirRootExternal&"/Android/data/com.hanista.mobogram/cache",l.Get(i))
	Next
	
	MoboLB.Text = "تعداد فایل ها: "&l.Size
	
End Sub

 

[مهدی ایزدی 9,203]

در 58 دقیقه قبل، majerajoo گفته است :

آره دقیقا

وقتی تعداد فایلا زیاده وحشتناک هنگ میکنه

آموزش چند نخی رو از کجا میتونم ببینم؟

این عبارت رو از انجمن جست و جو کنید :

آموزش کار با thread

[مهدی ایزدی 9,203]

درود

معمولا همچین مواقعی برنامه برای  چند ثانیه هنگ میکنه... بهتره از چند نخی (Thread) استفاده کنید تا هم برنامه هنگ نکنه و هم Process رو بتونید به خوبی نمایش بدید.

کار قوی زحمت زیادتر هم در پی داره 

[majerajoo 161]

آره دقیقا

وقتی تعداد فایلا زیاده وحشتناک هنگ میکنه

آموزش چند نخی رو از کجا میتونم ببینم؟