پیغام نصب نبودن مارکت ، هنکام نظر دادن

[alirezn 68]

سلام

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

 

ممنون

[alirezn 68]

 

ببین این کد به دردتون می خوره

Dim far As Intent
Dim pm As PackageManager

far=pm.GetApplicationIntent("majidkharatha.peji")
If far.IsInitialized Then
Msgbox("وجود دارد","")
Else
Msgbox("ندارد","")
End If

نه داداش

 

یه چیزی بود تو مایه های

try

catch

یه چنین چیزی

یادم نمیاد

[abbas2142 557]

خوب شما به جای majidkharatha.peji

 

باید com.farsitel.bazaar رو بذارید

 

بعدش بجای Msgbox

 

بیا کدهاتون رو بذار

 

برنامه میاد چک میکنه اگه بازار وجود داشت که نظر میده اگه نه ارور میده

[پژمان نیکروان 6,055]

نه داداش

 

یه چیزی بود تو مایه های

try

catch

یه چنین چیزی

یادم نمیاد

Try
    Dim baz As Intent
    baz.Initialize(baz.ACTION_EDIT,"bazaar://details?id=نام پکیج")
    StartActivity(baz)
	Catch
		ToastMessageShow("نرم افزار بازار روی دستگاه شما نصب نیست!",True)
	End Try

همون کدی که آقا عباس داد هم درسته.

[abbas2142 557]

ببین این کد به دردتون می خوره

Dim far As Intent
Dim pm As PackageManager

far=pm.GetApplicationIntent("majidkharatha.peji")
If far.IsInitialized Then
Msgbox("وجود دارد","")
Else
Msgbox("ندارد","")
End If