مشکل در خروج

[ehadi 16]

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

حالا اومدم واسه دکمه بک عملکرد خروج از برنامه رو هم تعریف کردم.

مشکلی که پیش اومده اینه که وقتی که دکمه بک رو می زنم که ساید بار بسته بشه هم زمان پیغام خروج هم ظاهر میشه که نمی خوام این اتفاق بیافته

کدایی هم که اسافاده کردم اینان.ممنون میشم راهنمایم کنیین

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode=KeyCodes.KEYCODE_BACK Then
	If PanelWithSidebar.IsSidebarVisible=True Then
	PanelWithSidebar.CloseSidebar
	End If
	
	Dim result As Int
    result=Msgbox2("در صورت تمایل لطفا قبل از خروج با پنج ستاره دادن به برنامه مارا حمایت کنید.","خروج","خروج", "ستاره دادن","انصراف از خروج",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))		
    If result=DialogResponse.POSITIVE Then
    Activity.Finish
    ExitApplication
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=com.servat23.hadi")
    StartActivity(i)
	End If
	End If

[ehadi 16]

اقا پژمان ممنونم که راهنمایی کردید ولی همون مشکل اولی رو داره و رفع نشده هنوز

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

اقا پژمان ممنونم که راهنمایی کردید ولی همون مشکل اولی رو داره و رفع نشده هنوز

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

بگید تا کدشو بگیم بهتون.

[ehadi 16]

یه ساید بار دارم.می خوام بگم موقعی که دکمه بک back گوشی زده میشه اگه ساید بار بازه ساید بار بسته بشه و عمل دیگه اای انجام نشه

و اگه ساید بار بستس با زدن بک پیغام مسیج باکس 2 ظاهر بشه و گزینه های خروج به نمایش در بیان

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

نمی دونم منظورمو تونستم برسونم یا نه؟

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

این کد رو توی رویداد Keypress خودتون قرار بدید:

If KeyCodes=KeyCodes.KEYCODE_BACK And PanelWithSidebar.IsSidebarVisible=True Then
	PanelWithSidebar.CloseSidebar
	Return True
	else if KeyCodes=KeyCodes.KEYCODE_BACK And PanelWithSidebar.IsSidebarVisible=False Then
	Dim result As Int
    result=Msgbox2("در صورت تمایل لطفا قبل از خروج با پنج ستاره دادن به برنامه مارا حمایت کنید.","خروج","خروج", "ستاره دادن","انصراف از خروج",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))		
    If result=DialogResponse.POSITIVE Then
    ExitApplication
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=com.servat23.hadi")
    StartActivity(i)
	Return True
	End If
	End If

[ehadi 16]

اقا پژمان خیلی ممنون.ولی موقع کامپایل این ارورو داد.

Compiling generated Java code.          Error
B4A line: 181
If KeyCodes=KeyCodes.KEYCODE_BACK AND PanelWithSi
javac 1.7.0_51
src\com\servat\hadi\frmmenu.java:506: error: inconvertible types
if ((anywheresoftware.b4a.keywords.Common.KeyCodes).equals((anywheresoftware.b4a.keywords.constants.KeyCodes)(anywheresoftware.b4a.keywords.Common.KeyCodes.KEYCODE_BACK)) && mostCurrent._panelwithsidebar._issidebarvisible()==anywheresoftware.b4a.keywords.Common.True) { 
                                                                                                             ^
  required: KeyCodes
  found:    int
1 error

دستتون درد نکنه.به خاطر این مشکلم کارم خیلی به تاخیر افتاد.برنامه رو همونجور فرستادم رفت . بازم اگه چیزی به ذهنتون رسید انشالا اگه بازار تاییدد کنه اپدیت براش می فرستم.

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

ببخشید چون دستی نوشته بودم یه جا رو اشتباه تایپ کرده بودم.

	If KeyCode=KeyCodes.KEYCODE_BACK And PanelWithSidebar.IsSidebarVisible=True Then
	PanelWithSidebar.CloseSidebar
	Return True
	else if KeyCode=KeyCodes.KEYCODE_BACK And PanelWithSidebar.IsSidebarVisible=False Then
	Dim result As Int
    result=Msgbox2("در صورت تمایل لطفا قبل از خروج با پنج ستاره دادن به برنامه مارا حمایت کنید.","خروج","خروج", "ستاره دادن","انصراف از خروج",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))		
    If result=DialogResponse.POSITIVE Then
    ExitApplication
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=com.servat23.hadi")
    StartActivity(i)
	Return True
	End If
	End If

اینو بذارید.

[arash127 488]

بجای end if اولی Else بزار به اخر کد هم end if اضافه بکن.

[ehadi 16]

بجای end if اولی Else بزار به اخر کد هم end if اضافه بکن.

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

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

 کداتو با این عوض کن:

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode=KeyCodes.KEYCODE_BACK And  Then
	If PanelWithSidebar.IsSidebarVisible=True Then
	PanelWithSidebar.CloseSidebar
	End If
	
	Dim result As Int
    result=Msgbox2("در صورت تمایل لطفا قبل از خروج با پنج ستاره دادن به برنامه مارا حمایت کنید.","خروج","خروج", "ستاره دادن","انصراف از خروج",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))		
    If result=DialogResponse.POSITIVE Then
    Activity.Finish
    ExitApplication
	Return True
    Else If result=DialogResponse.NEGATIVE Then
    Return True
    Else If result=DialogResponse.CANCEL Then
    Dim i As Intent
    i.Initialize(i.ACTION_EDIT,"bazaar://details?id=com.servat23.hadi")
    StartActivity(i)
	Return True
	End If
	End If
	End Sub