گرفتن لیست برنامه ها + آیکون

[cloner01001 38]

دوستان میخوام لیست برنامه + آیکون هاش رو بگیرم و داخل یه پنل نشون بدم امااااا میخوام نمایش هر 1 ثانیه به 1 ثانیه باشه

یعنی در ثانیه اول فرضا برنامه تلگرام + آیکون نشون داده میشه و وقتی 1 ثانیه شد اون از پنل میره و بجاش برنامه بعدی لود میشه تا انتها و وقتی تموم شد کد بده که برنامه ها تموم شده...

ممنون میشم راهنمایی کنین

[amir386 39]

سلام دوست عزیز برای اینکار باید از تایمر استفاده کنی که هر با اجراش به یه متغیر int یکی اضافه کنه و زمانی که به اخرین شمارش متغیر رسید دوباره متغیر رو صفر کنه و خودش رو هم غیرفعال کنه(false)

برای گرفتن برنامه ها همراه پکیج نیم و ایکونشون هم

Sub Globals
Dim PM as packagemanager2
Dim Apps as List
Dim timer as Timer
Dim AppNumber as int
Privite nameApp as label
Privite imgn as imageview
Privite pkgName as label
End Sub

Sub Activity_Create(FirstTime As Boolean)
timer.Initialize("timer",1000)
	
PM.Initialize
	Apps.Initialize
	Apps.Initialize2(PM.GetAllInstalledPackages)

timer.Enabled = True

End Sub



Sub timer_Tick

Dim PackageName as String  =  Apps.Get(AppNumber)
pkgName.Text = PackageName
    nameApp.Text = PM.GetApplicationName(PackageName)
	
	imgn.SetBackgroundImage(PM.GetApplicationIcon(PackageName).Bitmap)

	AppNumber = AppNumber + 1

if  AppNumber = (Apps.size - 1) then
AppNumber = 0
timer.Enabled= false
end if
End Sub

اینم از کلیه توضیحی که دادم کدشم برات نوشتم جاییشم فک نکنم غلط باشه منتها الان با پی سی نیستم

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

[مجید آرتا 5,874]

سلام

جدای از راهنمایی های دوستمون، یک کتابخانه ای رو هم استاد شاهپیری عزیز تهیه کردن و می تونید استفاده کنید ازش  »