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

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


RoyaPM

سوال

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

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

PanelWithSidebar.OpenSidebar
End If
End If

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

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

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

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

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

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


Sub Button1_Click

If PanelWithSidebar.IsSidebarVisible=True Then

PanelWithSidebar.CloseSidebar

Else

PanelWithSidebar.OpenSidebar

End If

End Sub

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

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

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

درود 

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

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

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

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

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

بایگانی شده

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

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

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