• 0
salmana

لود 20 تا 20 تا لیست ویو

سوال

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

من میخام لیست پکیج برنامه را بگیرم و درون لیست ویو بریزم ولی میخام یک جا نریزه بلکه 20 تا 20 تا ریخته بشه

 

مثلا با کد پایین میاییم کل لیست برنامه نصبی را میریزیم داخل لیست ویو. ولی من میخام برای بار اول 20 تا برنامه گرفته بشه و با اسکرول بعدی 20 تای دیگه و به همین ترتیب تا اخر

 

نیازمند شدید یاری هستم

Sub Globals
Dim Pack As PackageManager2
Dim list1 As List
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Pack.Initialize
list1 = Pack.GetInstalledPackagesbyUser
For i = 0 To 100
Dim PackageName As String = list1.Get(i)
Dim icn As BitmapDrawable = Pack.GetApplicationIcon(PackageName)
Dim name As String = Pack.GetApplicationName(PackageName)
ListView1.AddTwoLinesAndBitmap(name,"متن خط دومی",icn.Bitmap)
Next	
End Sub

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


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

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

  • 0

دقیقا دوست گرامی

 

 

من هر چی ور رفتم با کدا ازش سر در نیاوردم.

با کد پایین ما اسم برنامه نصبی به همراه پکیج نیم میگیریم

میتونی یه زحمتی واسم بکشی و با کدهای خودت ترکیبش کنی تا بشه با اسکرول 10 تا 10 تا ایکن و اسمشون بتونم بگیرم

 

ممنون

Sub Globals
Dim Pack As PackageManager2
Dim list1 As List
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Pack.Initialize
list1 = Pack.GetInstalledPackagesbyUser
For i = 0 To ListView1.Size-1
Dim PackageName As String = list1.Get(i)
Dim icn As BitmapDrawable = Pack.GetApplicationIcon(PackageName)
Dim name As String = Pack.GetApplicationName(PackageName)
ListView1.AddTwoLinesAndBitmap(name,"متن خط دومی",icn.Bitmap)
Next	
End Sub

در ضمن من در کد پست قبلی 100 رو اشتباها گفتم منظورم listview-1 هست

 

بفرما داداش این کدش

 

اگه مشکلی بود در خدمتم

 

http://s7.picofile.com/file/8256183126/Basic4x.zip.html

salmana پسند دیده است

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


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

چرا از اسکرول ویو استفاده نمی کنید ؟


salmana پسند دیده است

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


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

 

چرا از اسکرول ویو استفاده نمی کنید ؟

 

 

به نظرم بدون دیتابیس نمیشه. میشه یعنی؟

 

چجوری از اسکرول ویو در این رابطه استفاده کنم

 

اگه همتی کنی واسم ردیفش کنی خیلی خوب میشه ارل جون

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


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

 

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

من میخام لیست پکیج برنامه را بگیرم و درون لیست ویو بریزم ولی میخام یک جا نریزه بلکه 20 تا 20 تا ریخته بشه

 

مثلا با کد پایین میاییم کل لیست برنامه نصبی را میریزیم داخل لیست ویو. ولی من میخام برای بار اول 20 تا برنامه گرفته بشه و با اسکرول بعدی 20 تای دیگه و به همین ترتیب تا اخر

 

نیازمند شدید یاری هستم

Sub Globals
Dim Pack As PackageManager2
Dim list1 As List
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Pack.Initialize
list1 = Pack.GetInstalledPackagesbyUser
For i = 0 To 100
Dim PackageName As String = list1.Get(i)
Dim icn As BitmapDrawable = Pack.GetApplicationIcon(PackageName)
Dim name As String = Pack.GetApplicationName(PackageName)
ListView1.AddTwoLinesAndBitmap(name,"متن خط دومی",icn.Bitmap)
Next	
End Sub

 

 با سلام فرقی نمیکنه ک لیست باشه یا دیتا بیس میتونی مثل کد زیر کار کنی

Sub Create_list(first As Int)

	For i=first To Min(first+5 , list1.size-1)

		Dim Rowlab As Lable
		Rowlab.Initialize("Rowlab")
scrol.Panel.AddView(Rowlab,0%x,top,100%x,20%x)
Rowlab.text=list1.get(i)
		top=top+20%x
		
	Next
	scrol.Panel.Height=top
	f1=first
	check=1

End Sub

Sub scrol_ScrollChanged(Position As Int)

If scrol.ScrollPosition+scrol.Height=scrol.Panel.Height AND check=1 Then 
	check=0
	Create_list(f1+6)
End If

حالا من اینجا 5 تا 5 تا کار کردم شما 20 تا 20 تا کار کن

nasim و salmana پسند شده است

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


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

کافی هست به جای

For  I to 100
بنویس  
For I to 20

salmana پسند دیده است

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


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

کافی هست به جای

For I to 100
بنویس
For I to 20

 

خب این کد بیستای اول رو نشون میده بیستای دوم چی؟؟؟

 

ایشون میخواد 20 تا 20 تا لود بشه عزیز

salmana پسند دیده است

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


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

خب این کد بیستای اول رو نشون میده بیستای دوم چی؟؟؟

 

ایشون میخواد 20 تا 20 تا لود بشه عزیز

 

دقیقا دوست گرامی

 

 

من هر چی ور رفتم با کدا ازش سر در نیاوردم.

با کد پایین ما اسم برنامه نصبی به همراه پکیج نیم میگیریم

میتونی یه زحمتی واسم بکشی و با کدهای خودت ترکیبش کنی تا بشه با اسکرول 10 تا 10 تا ایکن و اسمشون بتونم بگیرم

 

ممنون

Sub Globals
Dim Pack As PackageManager2
Dim list1 As List
Private ListView1 As ListView
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Pack.Initialize
list1 = Pack.GetInstalledPackagesbyUser
For i = 0 To ListView1.Size-1
Dim PackageName As String = list1.Get(i)
Dim icn As BitmapDrawable = Pack.GetApplicationIcon(PackageName)
Dim name As String = Pack.GetApplicationName(PackageName)
ListView1.AddTwoLinesAndBitmap(name,"متن خط دومی",icn.Bitmap)
Next	
End Sub

در ضمن من در کد پست قبلی 100 رو اشتباها گفتم منظورم listview-1 هست

Sina و m007moh پسند شده است

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


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

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

 

عوضش رو از جدم امام حسین بگیری 

 

 

بعدش یه سمپل برا این آموزشتون با دیتابیس بزارید در حد معمولی ممنونتون میشم

 

با سپاس

 

آقا سید اموزش با سوال خیلی بهتر از اموزش معمولیه ضمن اینکه  همون کدای خودتون تصحیح شدش میتونه اموزش خوبی واسه شروع باشه

salmana پسند دیده است

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


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

بفرما داداش این کدش

 

اگه مشکلی بود در خدمتم

 

http://s7.picofile.com/file/8256183126/Basic4x.zip.html

 

 

قروبنت داداش

 

اگر آیکن هم براش میریختی خوب بود. یعنی 10 تا 10 تا ایکون هم بگیریم

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


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

قروبنت داداش

 

اگر آیکن هم براش میریختی خوب بود. یعنی 10 تا 10 تا ایکون هم بگیریم

خب این دیگه بازی کردن با اسکرول و پنل و لایوت هست که میتونی همه چیز رو بهش اضاف کنی 

 

کافیه یه لایوت بسازی و دوتا لیبل و ی ایمیج ویو بهش اضاف کنی ی دیزاین قشنگم بهش بدی به اسکرولت اضاف کنی کلیاتش دست خودت رو میبوسه ولی اگر کمک خواستی رو من حساب کن

salmana پسند دیده است

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


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

خب این دیگه بازی کردن با اسکرول و پنل و لایوت هست که میتونی همه چیز رو بهش اضاف کنی 

 

کافیه یه لایوت بسازی و دوتا لیبل و ی ایمیج ویو بهش اضاف کنی ی دیزاین قشنگم بهش بدی به اسکرولت اضاف کنی کلیاتش دست خودت رو میبوسه ولی اگر کمک خواستی رو من حساب کن

ممنون دوست عزیز

حلش کردم

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


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