رفتن به مطلب
  • 0

استفاده از تایمر در حلقه


mamad20

سوال

با سلام .

میخوام توی اسلاید پنل 201 عکس رو از دیتابیس لود کنم . اینجوری میشه ؟

یه حلقه دارم که قراره اسلاید پنل رو با 201 دکمه برام باز کنه . چون 201 عکس داره و بطور معمول یا روی گوش های قوی اجرا میشه یا کرش میده  ، چون سرعتم پایینه میخوام از تایمر استفاده کنم برای لود تصاویرش و بگم مثلا هر 50 میلی ثانیه یه عکس رو لود کنه که کرش نده . آیا میشه ؟ و چطور توی حلقه زیر ازش استفاده کنم . 

For i = 1 To 201
	Dim b1 As Button
	b1.Initialize("btnstep")
	b1.Tag = i
	slide1.Panels(offset).AddView(b1,left,top,25%x,25%x)
	left = left + 25%x + 7%x
	If i < strstep  Then
		Dim sql1 As SQL
Dim cur1 As Cursor
Dim adrs As String
sql1.Initialize(File.DirInternal,"gdb.db",False)
cur1 = sql1.ExecQuery("Select * from tbl_list")
For i = 0 To cur1.RowCount-1
	cur1.Position = i
	adrs = cur1.GetString("img")
	b1.SetBackgroundImage(LoadBitmap(File.DirAssets,adrs))
	Next
	Else
	b1.SetBackgroundImage(LoadBitmap(File.DirAssets,"lock.jpg"))
	b1.Enabled = False
	End If
	If i mod 3 = 0 Then
	 top = top + 25%x + 7%X
	 left = 5%x
	End If
	
	If i mod 12 = 0 Then
		offset = offset + 1
		top = 15%x
	End If
	Next

راستی ببینید حلقه مشکل نداره چون رو شبیه ساز  که کار نمیده و رو گوشی هنوز اجراش نکردم .

لینک ارسال
به اشتراک گذاری در سایت های دیگر

0 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

هنوز برای این سوال پاسخی ارسال نشده است

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...