پیاده سازی 3 حالت به هنگام فشردن کلید Back

[salar_blackdroid 408]

با سلام.

 

دوستان من با استفاده نمایش Msgbox2 میخوام 3 وضعیت

 

مثلا : دیگر برنامه های من ، خروج و نظر دهی رو نشون بدم .

 

ولی مشکل اینه  با پیاده سازی کد تو رویداد Activity KeyPress دو بار که کلید

 

Back  رو بزنی یا یه بار بزنی و هر قسمت از اکتیویتی کلیک کنی ، از برنامه خارج میشه !

 

میخوام تا زمانی که کاربر یکی از این 3 گزینه رو انتخاب نکرده ، نتونه از برنامه خارج بشه !!!

 

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

 

ارادت ./

[Alireza.Ghafari 2,104]

درود بهتره کد خودتون رو قرار بدید تا براتون درست کنیم. 

ولی با دستور Return True در رویداد Cancel میتونید مانع از خروج بشید.

موفق باشید

[حاج حسین 2,098]

بفرمایید این کد یکی از برنامه هامه البته باید کد بستن اسلاید منو رو ازش حذف کنید که فک کنم برای شما کار سختی نباشه (3خط اولش)

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK AND slide.Visible Then
     slide.HideMenus
	
	Else 
	 KeyCode = KeyCodes.KEYCODE_BACK 
	 
	 Dim ext1 As Int 
	ext1 = Msgbox2("آیا قصد خروج دارید","خروج","بله","خیر","",Null)    
    If ext1 = DialogResponse.POSITIVE Then  
	Activity.Finish
    ExitApplication
    End If
     Return True
   End If
    Return True

   
End Sub

کاربر بی نهایت دکمه بک رو بزنه خروج نمیده و فقط با اوکی کردن پیغام میره بیرون 

البته یه کار دیگه ای هم میتونی بکنی که خیلی هم راحتر و هم شخصی ساز تر 

و اونم استفاده از پنل و 2تا دکمه س 

و دکمه بک فقط پنل نشون بده  کار دیگه ای نکنه 

به اون 2تا دکمه داخل پنل هم یکی خروج ویکی محو پنل 

تمام 

یاحق

[mohammad-alone 564]

ولی این روش بهینه نیستش ، همون کد دوستمون در مورد MSGBOX2 عالی هستش ...

[salar_blackdroid 408]

کاربر بی نهایت دکمه بک رو بزنه خروج نمیده و فقط با اوکی کردن پیغام میره بیرون 

البته یه کار دیگه ای هم میتونی بکنی که خیلی هم راحتر و هم شخصی ساز تر 

و اونم استفاده از پنل و 2تا دکمه س 

و دکمه بک فقط پنل نشون بده  کار دیگه ای نکنه 

به اون 2تا دکمه داخل پنل هم یکی خروج ویکی محو پنل 

 

مرسی دوست عزیز ، تستش می کنم.

 

مشکل اصلیم تو مقدار برگشتی رویداد Key Press بود

 

کجا باید True برگشت بدم کجا False !

 

ولی راجب اون پیشنهادی که گفتی حرف دل منه ...

 

Custom Dialog میخواد ؟؟!!

 

کاش یکی از نازنین های انجمن زحمت پیاده سازیشو بکشه./

[salar_blackdroid 408]

ولی این روش بهینه نیستش

 

 

با پنل ؟

 

چرا ؟ سنگینی خاصی فک نکنم داشته باشه./

[salar_blackdroid 408]

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim x As Int
	x = Msgbox2("ممنون از اینکه از برنامه من استفاده کردی ، حتما نظرت رو بهم بگو و سایر برنامه هامو هم ببین.موفق باشی.","خسته نباشی عزیز","دیگر برنامه های من","خروج","نظردهی",Null)
	If x = DialogResponse.POSITIVE Then
		Dim ar As AriaMarkets
		ar.Cafebazaar_SafheToseDahande("")
		Return False
	End If
	If x = DialogResponse.CANCEL Then
		ExitApplication
		Return True
	End If
	If x = DialogResponse.NEGATIVE Then
		Dim ar As AriaMarkets
		ar.Cafebazaar_SafheNazar("")
		Return False
	End If
	End If
End Sub

دوستان من میخوام موقع خروج یه Msgbox سه حالته نشون بدم ، با کد بالا وقتی کاربر دکمه Back رو 2 بار بزنه یا اگه

 

یه بار بزنه و جای دیگه رو لمس کنه ، برنامه خارج میشه. چطوری این مشکل رو حل کنم ؟؟!!

 

ارادت./

[Hamed Sabet Farhadi 707]

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim x As Int
	x = Msgbox2("ممنون از اینکه از برنامه من استفاده کردی ، حتما نظرت رو بهم بگو و سایر برنامه هامو هم ببین.موفق باشی.","خسته نباشی عزیز","دیگر برنامه های من","خروج","نظردهی",Null)
	If x = DialogResponse.POSITIVE Then
		Dim ar As AriaMarkets
		ar.Cafebazaar_SafheToseDahande("")
		Return False
	End If
	If x = DialogResponse.CANCEL Then
		ExitApplication
		Return True
	End If
	If x = DialogResponse.NEGATIVE Then
		Dim ar As AriaMarkets
		ar.Cafebazaar_SafheNazar("")
		Return False
	End If
	End If
End Sub

دوستان من میخوام موقع خروج یه Msgbox سه حالته نشون بدم ، با کد بالا وقتی کاربر دکمه Back رو 2 بار بزنه یا اگه

 

یه بار بزنه و جای دیگه رو لمس کنه ، برنامه خارج میشه. چطوری این مشکل رو حل کنم ؟؟!!

 

ارادت./

 

 

سلام این رو تست کنید

		Dim i As Intent
	ret = Msgbox2("آیا قصد خروج دارید","خروج","بلی","نظر میدم","خیر",Null)
		If ret = DialogResponse.POSITIVE Then
		ExitApplication
		End If
		
		If ret = DialogResponse.NEGATIVE Then

		End If
		
		If ret = DialogResponse.CANCEL Then
		End If
		Return True

[salar_blackdroid 408]

دوست عزیز من 3 تا وظیفه میخوام انجام بدم ، خروج ، باز کردن صفحه نظرات ، باز کردن صفحه برنامه هام.

 

ممنون از شما ، ولی فک نکنم کد شما این کار رو انجام بده.

 

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

 

یکی هم با دوبار Back میپره بیرون./