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

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


salar_blackdroid

سوال

با سلام.

 

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

 

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

 

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

 

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

 

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

 

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

 

ارادت ./

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

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

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

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

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

موفق باشید :gol:

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

بفرمایید این کد یکی از برنامه هامه البته باید کد بستن اسلاید منو رو ازش حذف کنید که فک کنم برای شما کار سختی نباشه (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تا دکمه داخل پنل هم یکی خروج ویکی محو پنل 

تمام 

یاحق

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

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

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

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

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

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

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

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

 

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

 

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

 

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

 

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

 

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

 

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

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

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

 

با پنل ؟

 

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

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

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 بار بزنه یا اگه

 

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

 

ارادت./

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

 

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

 

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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