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

[taha1371 84]

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

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

 

[Siaic 88]

در هم اکنون، 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