سلام دوستان نمیدونم این کد مشکلش از چیه وقتی دکمه برگشت رو میزنم مسج باکس بالا میاد و بدون زدن هیچ یک از ایتم های مسج باکس با زدن دوباره دکمه برگشت کدهای اون ایتم DialogResponse.CANCEl رو اجرا میکنه...
Sub activity_keypress (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then
Dim i As Int
i = Msgbox2("آیا میخواهید از برنامه خارج شوید؟","","بله","امتیاز به برنامه","خیر",Null)
If i = DialogResponse.POSITIVE Then
ExitApplication
else If i = DialogResponse.CANCEl Then
Dim aria As AriaLib
If aria.isAppInstalled("com.farsitel.bazaar") = True Then
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=com.b4a")
StartActivity(intent1)
ToastMessageShow("لطفا با دادن 5 ستاره از ما حمایت کنید",False)
Else
ToastMessageShow("!بازار روی گوشی شما نصب نمی باشد",False)
End If
End If
End If
Return True
End Sub
سوال
porya 959
سلام دوستان نمیدونم این کد مشکلش از چیه وقتی دکمه برگشت رو میزنم مسج باکس بالا میاد و بدون زدن هیچ یک از ایتم های مسج باکس با زدن دوباره دکمه برگشت کدهای اون ایتم DialogResponse.CANCEl رو اجرا میکنه...
لینک ارسال
به اشتراک گذاری در سایت های دیگر
10 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.