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

مشکل با کلید بک


taha1371

سوال

سلام من کد زیر و گذاشتم برای بک اما میخوام اول بیاد چک کن اکه منو کشوی باز بود ببنده بعد اگه دوباره زد بیاد دیالوگو باز کنه

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    MD.CloseDrawer
    If KeyCode = KeyCodes.KEYCODE_BACK Then
        Dim dialog2 As MaterialDialog
        dialog2.Initialize("dialog2")
                
        dialog2.limitIconToDefaultSize
        dialog2.negativeText("خیر")
        dialog2.positiveText("بله")
        dialog2.title("خروج")
        dialog2.content("آیا قصد خروج از برنامه را دارید؟")
        dialog2.neutralText("امتیاز به برنامه")
        dialog2.neutralColor(Colors.ARGB(255,216,187,30))
        dialog2.titleColor(Colors.ARGB(255,17,107,117))
        dialog2.contentColor(Colors.Black)
        dialog2.show
        
    End If
    Return True
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	MD.CloseDrawer
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Dim dialog2 As MaterialDialog
		dialog2.Initialize("dialog2")
				
		dialog2.limitIconToDefaultSize
		dialog2.negativeText("خیر")
		dialog2.positiveText("بله")
		dialog2.title("خروج")
		dialog2.content("آیا قصد خروج از برنامه را دارید؟")
		dialog2.neutralText("امتیاز به برنامه")
		dialog2.neutralColor(Colors.ARGB(255,216,187,30))
		dialog2.titleColor(Colors.ARGB(255,17,107,117))
		dialog2.contentColor(Colors.Black)
		dialog2.show
		
	End If
	Return True
End Sub

 

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

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

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

در هم اکنون، taha1371 گفته است :

سلام من کد زیر و گذاشتم برای بک اما میخوام اول بیاد چک کن اکه منو کشوی باز بود ببنده بعد اگه دوباره زد بیاد دیالوگو باز کنه

Sub Activity_KeyPress (KeyCode As Int) As Boolean
    MD.CloseDrawer
    If KeyCode = KeyCodes.KEYCODE_BACK Then
        Dim dialog2 As MaterialDialog
        dialog2.Initialize("dialog2")
                
        dialog2.limitIconToDefaultSize
        dialog2.negativeText("خیر")
        dialog2.positiveText("بله")
        dialog2.title("خروج")
        dialog2.content("آیا قصد خروج از برنامه را دارید؟")
        dialog2.neutralText("امتیاز به برنامه")
        dialog2.neutralColor(Colors.ARGB(255,216,187,30))
        dialog2.titleColor(Colors.ARGB(255,17,107,117))
        dialog2.contentColor(Colors.Black)
        dialog2.show
        
    End If
    Return True
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	MD.CloseDrawer
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Dim dialog2 As MaterialDialog
		dialog2.Initialize("dialog2")
				
		dialog2.limitIconToDefaultSize
		dialog2.negativeText("خیر")
		dialog2.positiveText("بله")
		dialog2.title("خروج")
		dialog2.content("آیا قصد خروج از برنامه را دارید؟")
		dialog2.neutralText("امتیاز به برنامه")
		dialog2.neutralColor(Colors.ARGB(255,216,187,30))
		dialog2.titleColor(Colors.ARGB(255,17,107,117))
		dialog2.contentColor(Colors.Black)
		dialog2.show
		
	End If
	Return True
End Sub

 

سلام

 

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	
	If KeyCode = KeyCodes.KEYCODE_BACK Then

         If MD.IsDrawerOpen Then
		 MD.CloseDrawer
			 Return True
		 Else	

		Dim dialog2 As MaterialDialog
		dialog2.Initialize("dialog2")
				
		dialog2.limitIconToDefaultSize
		dialog2.negativeText("خیر")
		dialog2.positiveText("بله")
		dialog2.title("خروج")
		dialog2.content("آیا قصد خروج از برنامه را دارید؟")
		dialog2.neutralText("امتیاز به برنامه")
		dialog2.neutralColor(Colors.ARGB(255,216,187,30))
		dialog2.titleColor(Colors.ARGB(255,17,107,117))
		dialog2.contentColor(Colors.Black)
		dialog2.show

	    end if	
	End If
	Return True
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

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

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