رفتن به مطلب
  • 0

مشکل خروج با نظر


taha1371

سوال

سلام من کد زیر کذاشتم برای خروج اما وقتی دوبار  کلیک میشه رو بک  میره تو صفحه بازار  میوام وقتی کلیک شد فقط مسیج باکس باز بشه

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim r As Int 		
	r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟  ","خروج","خارج می شوم", "امتیاز می دهم","خارج نمی شوم",LoadBitmap(File.DirAssets,"5257550912.png"))		'Tarif MsgBox
	If ( r = DialogResponse.POSITIVE) Then 
	ExitApplication 
	End If
	
	If ( r = DialogResponse.CANCEL) Then   
	Try		
	       Dim market As Intent, uri As String
uri="bazaar://details?id=ir.tala.taha"			
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 			
End Try
End If
End If 
Return True
End Sub

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

سلام

 

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

 

برای اینکار جابجا کنید طوری که تو رویداد کنسل خارج شه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 12 دقیقه قبل، reza644 گفته است :

سلام

 

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

 

برای اینکار جابجا کنید طوری که تو رویداد کنسل خارج شه

منظورتو نفهمیدم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

در 7 دقیقه قبل، taha1371 گفته است :

منظورتو نفهمیدم

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

 

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

 

If ( r = DialogResponse.CANCEL) Then   
	Try		
	       Dim market As Intent, uri As String
uri="bazaar://details?id=ir.tala.taha"			
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 			
End Try
End If

 

 

پس ما باید طوری عمل کنیم که اگه بک رو زدیم فقط خارج شه 

کافیه جای دکمه ها و رویداداشو عوض کنیم

 

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim r As Int 		
	r = Msgbox2("آیا مایلید قبل از خروج به برنامه امتیاز دهید ؟  ","خروج","امتیاز میدهم", "خارج می شوم","خارج نمی شوم",LoadBitmap(File.DirAssets,"ICON.png"))		'Tarif MsgBox
	If ( r = DialogResponse.POSITIVE) Then 
	Try		
	       Dim market As Intent, uri As String
uri="bazaar://details?id=ir.tala.taha"			
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
Catch
ToastMessageShow("لطفا ابتدا برنامه بازار را نصب کنید", False) 			
End Try
	End If
	
	If ( r = DialogResponse.CANCEL) Then   
ExitApplication
End If
End If 
Return True
End Sub

 

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...