اگه بازار روی گوشی نصب نباشه وقتی میخوام وارد صفحه ی پرداخت برنامه خودم بشم ارور میده که عکسش رو پیوست کردم . وقتی بازار نصب باشه مشکلی نیست .
اومدم و بهش گفتم اگه بازار رو نداره مسیج باکس 2 بگه که دانلود کنه .
حالا که از طریق برنامه من بازار نصب شده با اینکه بازار هست ولی بازم همون ارور رو میده .
چرا ؟؟؟
Sub checkapp(appcheck As Boolean) As String
Dim p1 As PackageManager
Dim i1 As Intent
i1 = p1.GetApplicationIntent("com.farsitel.bazaar")
If i1.IsInitialized = appcheck Then
Return True
Else
Return False
End If
End Sub
Sub kharidbtm_Click
If checkapp(True) Then
StartActivity(kharidpnl)
Else
Dim appd As Int
Dim intent1 As Intent
appd = Msgbox2("لطفا برای استفاده از این قسمت، ابتدا برنامه کافه بازار را نصب کنید","پیش نیاز","دانلود","فعلا نه","",Null)
If appd = DialogResponse.POSITIVE Then
intent1.Initialize(intent1.ACTION_view,"http://cafebazaar.ir/install/?l=fa")
StartActivity(intent1)
Return
End If
End If
End Sub
سوال
mamad20 18
با سلام
اگه بازار روی گوشی نصب نباشه وقتی میخوام وارد صفحه ی پرداخت برنامه خودم بشم ارور میده که عکسش رو پیوست کردم . وقتی بازار نصب باشه مشکلی نیست .
اومدم و بهش گفتم اگه بازار رو نداره مسیج باکس 2 بگه که دانلود کنه .
حالا که از طریق برنامه من بازار نصب شده با اینکه بازار هست ولی بازم همون ارور رو میده .
چرا ؟؟؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
27 پاسخ به این سوال تاکنون داده شده است
ارسال های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.