راهنمایی برای تنظیم خروج از برنامه

[viki0028 19]

درود سلام به همه سروران عزیز

 

سوالی داشتم از خدمت دوستان : در سورسی که به دستم رسیده وقتی روی هر کدوم از دکمه های خود گوشی ( کم و زیاد کن صدا، پاور و دوربین عکاسی ) کلیک میشه برنامه از من سوال میکنه که قصد خروج از برنامه را دارید؟ در حالی که فقط میخوام با کلیک بر روی گزینه برگشت گوشی و نهایتا انتخاب گزینه خروج از منو این اتفاق بیفته نه با دکمه های دیگر گوشی.

لطفا راهنمایی کنید چطور این کار را انجام بذم.....یا اینکه چطور این گزینه برای دکمه های دیگه غیر فعال کنم.....

 

نکته ای که هست وقتی روی دکمه های دیگه گوشی کلیک میشه و سوال پرسیده میشه ....و روی گزینه خیر کلیک میکنم متن has stopped نشون داده میشه و برنامه بسته نمیشه....البته این اتفاق با دکمه های ذکر شده که گفتم اتفاق میفته

[viki0028 19]

متشکرم از پاسخ دوستان عزیز.

مشکل من با راهنمایی شما حل شد.

[ghost94 151]

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

[viki0028 19]

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

 

 

Sub Activity_KeyPress (KeyCode As Int) As Boolean

'////////// برای خروج از برنامه تنظیم شده

'Pressing the menu key will open/close the slidemenu

If KeyCode = KeyCodes.KEYCODE_MENU Then

If sm.ayamenobazee Then sm.Hide Else sm.Show

Return True

End If

'/////  مربوط به خروج    /////'

If KeyCode = KeyCodes.KEYCODE_BACK And sm.ayamenobazee Then 

sm.Hide  

Return True

Else

pasokh = Msgbox2("آیا می خواهید از برنامه خارج شوید؟","پیغام خروج","بله","","خیر",Null)

  If pasokh = DialogResponse.POSITIVE Then

    ExitApplication

Else

Return True

End If

End If

• End Sub

[ghost94 151]

عزیز من متوجه این متغیر ها نشدم چون به جاهای دیگه مربوطه که کد هارو نزاشتید ولی به جای این تابع , این تابعی که مینویسم رو بزارید :

Sub Activity_KeyPress(KeyCode As Int) As Boolean 
	Dim Answ As Int
	Dim matn As String
	
	If KeyCode = KeyCodes.KEYCODE_BACK Then	
		matn = "میخوای بری ؟"
		Answ = Msgbox2(matn, "هشدار", "بله", "", "خیر", Null) 
		If Answ = DialogResponse.POSITIVE Then	
			Return False		
		Else				
			Return True		
		End If				
	Else
		Return True			
	End If
End Sub

[maxi333 38]

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

If KeyCode = KeyCodes.KEYCODE_BACK then
	 if sm.ayamenobazee then
	 	 sm.hide
	 else
	 	 pasokh = Msgbox2("exit?","exit message","yes","","no",Null)
	 	 if pasokh = DialogResponse.POSITIVE then
	 	 	 ExitApplication
	 	 end if
	 end if
	 return true
else
	 return false
end if