ساخت لودینگ هنگام لود اطلاعات دیتابیس

[[email protected] 3]

سلام من یک دیکشنری با لیست ویو ساختم ولی حجم دیتابیس یکم بالاست پس یه کمی در لود کردن گیر داره میخوام ببینم چطور میشه تا وقتی اطلاعات به طور کامل لود بشه برنامه بیاد بگه (در حال در یافت اطلاعات ) و یه چیزی بچرخه همون پیام progressDialogSHow2   وقتی لود تموم شد  پیام بره و چطور بگم وقتی لود شد 

[مسعود دلفان آذری 52]

سلام

شما میتونین با کدهای offset و limit (کوئری)، یک کنترل تایمر و یک ProgressDialogShow2("loading...", False)، اطلاعات رو لود کنید. وقتی سایز لیست ویو برابر با تعداد رکوردهای دیتابیس شد، تایمر خاموش و پروگرس بار مخفی شه.

Sub button1_click

	timer1.initialize("Timer1", 1000) : timer1.enabled = true

End Sub


Sub timer1_tick

	ProgressDialogShow2("loading...", False)

	Dim limit as string

	Dim offset as string = 0

	offset = offset + 5

	Dim cur1 as cursor

	cur1 = sql1.ExecQuery("SELECT * FROM tbl1 limit 5 &offset&")

	For i = 0 To cur1.RowCount - 1
		cur1.Position = i
		ListView2.AddTwoLines(cur1.GetString("Sp"), "")
	Next

	If listview2.size = 2000 then

		timer1.enabled=false

		offset = 0

		progressdialoghide

	End if

End sub

ممکنه کد بالا خطا بده، توجه کنید که بین اعداد (سایز لیست ویو (2000)، مقدار لیمیت (5) و مقدار آفست (5)) باید یک تناسب خاصی برقرار باشه (بر یکدیگر بخش پذیر یا مضرب دیگری باشن).

هنگام جستجو در دیکشنری، فک کنم مشکل لود سریع داشته باشین! میتونین اونجا تکست باکس جستجو رو محدود به چند حرف یا بیشتر کنین!

لیمیت 10 آفست 10؛ یعنی رکوردهای 11-20 (محض اطلاع)

موفق باشید...