سوال در مورد دکمه menu

[RoyaPM 538]

سلام بچه ها ببینید این کد من چه مشکلی داره که وقتی تو پروژم میزارم منو اسلایدر رو باز میکنه ولی یه بار دیگه که میزنم از برنامه میاد بیرون

If KeyCode=KeyCodes.KEYCODE_MENU Then
If PanelWithSidebar.IsSidebarVisible=True Then
PanelWithSidebar.CloseSidebar
    Else

PanelWithSidebar.OpenSidebar
End If
End If

[پژمان نیکروان 6,055]

ظاهرا که مشکلی نداره.

اما شما اینو امتحان بکنید:

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode=KeyCodes.KEYCODE_MENU AND PanelWithSidebar.IsSidebarVisible=True  Then
PanelWithSidebar.CloseSidebar
Return True
Else If KeyCode=KeyCodes.KEYCODE_MENU AND PanelWithSidebar.IsSidebarVisible=False  Then
PanelWithSidebar.OpenSidebar
Return True
End If
End Sub

[کاربر ناشناس 2,148]

Sub Button1_Click

If PanelWithSidebar.IsSidebarVisible=True Then

PanelWithSidebar.CloseSidebar

Else

PanelWithSidebar.OpenSidebar

End If

End Sub

[RoyaPM 538]

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_MENU Then
If PanelWithSidebar.IsSidebarVisible=True Then
PanelWithSidebar.CloseSidebar
    Else

PanelWithSidebar.OpenSidebar
End If
end if
End Sub

[Alireza.Ghafari 2,104]

درود 

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode=KeyCodes.KEYCODE_MENU Then
If PanelWithSidebar.IsSidebarVisible=True Then
PanelWithSidebar.CloseSidebar
Return True
Else 
Return True
PanelWithSidebar.OpenSidebar
End If
End If
End Sub

چک شد صحیح کار کرد. موفق تر باشید

[RoyaPM 538]

تست کردم نشد .. میشه یه نگا بندازی کدم اینتوریه:

Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then
Dim ii As Int
ii = Msgbox2("قبل رفتن نظرتو میگی دوست من؟؟","خروج","","خروج","نظر میدم",LoadBitmap(File.DirAssets,"exit.png"))
If ii = DialogResponse.NEGATIVE Then
Dim AM As AriaMarkets
Try
AM.Cafebazaar_SafheNazar("royam.pname")
Catch
ToastMessageShow("برنامه بازار در گوشی نصب نیست",False)
End Try
Else If ii = DialogResponse.CANCEL Then
ExitApplication
End If
End If

If KeyCode=KeyCodes.KEYCODE_MENU Then
If PanelWithSidebar.IsSidebarVisible=True Then
PanelWithSidebar.CloseSidebar
Return True
Else 
Return True
PanelWithSidebar.OpenSidebar

End If
End If

End Sub

[RoyaPM 538]

حل شد ممنونم

[RoyaPM 538]

بچه ها تو شبیه ساز درست کار میکنه ولی تو گوشی نه !!! مشکل از چی میتونه باشه؟