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

[taha1371 84]

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

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

 

[reza644 435]

سلام

 

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

 

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

[taha1371 84]

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

سلام

 

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

 

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

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

[reza644 435]

در 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