بررسی وجود داشتن چند برنامه

[cloner01001 38]

سلام دوستان خسته نباشید

یه سری پکیج نیم برنامه ها رو دارم میخوام اگه اون پکیج نیم ها تو گوشی کاربر نصب بود اون ها رو تو یه لیست ویو لود کنم (آیکون و... هم اگه امکانش هست تو لیست ویو نمایش داده بشه) و اگه این پکیج نیم ها هیچکدومشون تو گوشی کاربر نصب نبود یه مسیج نشون بده و بگه برنامه ها نصب نیستن

لطفا کمک کنید

[Elyas Erfani 3,582]

سلام

 

واسه تشخیص نصب بودن یا نبودن برنامه با پکیج نیم میتونید از کتابخانه AriaLib استفاده کنید

	Dim aa As AriaLib
	If aa.isAppInstalled("PACKAGE NAME") = True Then
	ToastMessageShow("Nasb Ast",True)
	Else
	ToastMessageShow("Nasb Nist",True)
	End If

[cloner01001 38]

 

سلام

 

واسه تشخیص نصب بودن یا نبودن برنامه با پکیج نیم میتونید از کتابخانه AriaLib استفاده کنید

	Dim aa As AriaLib
	If aa.isAppInstalled("PACKAGE NAME") = True Then
	ToastMessageShow("Nasb Ast",True)
	Else
	ToastMessageShow("Nasb Nist",True)
	End If

 

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

مثلا من 20 تا پکیج نیم دارم و اگه یکی از اون ها وجود داشت یه ایتم به لیست ویو اضافه بشه و اگه 5 تا وجود داشت 5 تا...

[Elyas Erfani 3,582]

سلام

 

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

تستش با شما

Dim aa As AriaLib
Dim List1 As List
Dim ListView1 As ListView
List1.Initialize
List1.AddAll(Array As String("com.booq.bib","test.test.ir","b4a.example"))
For i = 0 To List1.Size - 1
If aa.isAppInstalled(List1.Get(i)) = True Then
ListView1.AddSingleLine("In Package Mojod Ast : "& List1.Get(i))
Next
End If

پکیج نیم هاتون توی ی لیست هست و میاید چک میکنید اگه نصب بود اون پکیج نیم با متن "In Package Mojod Ast" و اسم پکیج اضافه میشه به لیست ویو1 که از دیزاینر اددش کردید قبلا