مشکل در دکمه Back موبایل

[shahab1392 47]

با سلام خدمت اساتید عزیز

بنده از کد زیر برای خروج با دکمه Back موبایل استفاده کردم ولی وقتی روی گوشی امتحان میکنم با دکمه menu فعال میشه باید چکار کرد

Sub Activity_KeyPress (KeyCode As Int) As Boolean
  If KeyCode = KeyCodes.KEYCODE_BACK Then Return True
 Dim ext As Int
   ext = Msgbox2("آیا قصد خروج دارید؟","","بلی","","خیر",Null)
       If ext = DialogResponse.POSITIVE Then
     ExitApplication
       End If 
  Return False
  End Sub

کد اشتباه یا مشکل سخت افزارییه؟

[مهران محمودی 778]

شما توی همون خط اول گفتید اگه دکمه برگشت رو زد مقدار True رو Return کنه و برگشت بده.

فکر میکنم این ایراد داره! از این کد استفاده کن:

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If keycode = KeyCodes.KEYCODE_BACK Then
If Msgbox2("exit?","","yes","","no",Null) = DialogResponse.POSITIVE Then
ExitApplication
Return True
End If
End If
Return False
End Sub

[مهدی ایزدی 9,203]

تاپیک تکراری بود و قبلا آموزش داده شده بود. با جست و جوی کلمه "Back" میتونستید تاپیک رو پیدا کنید:

http://answercenter.ir/thread46.html

[shahab1392 47]

عزیزان با این کد درست شد

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
   If keycode = KeyCodes.KEYCODE_BACK Then 
    Dim ext As Int
   ext = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null)   
   If ext = DialogResponse.POSITIVE Then      
     ExitApplication
   Return False  
   End If 
   Return True
   End If
End Sub

[1212 76]

سلام میشه کاری کرد وقتی دکمه بک خود گوشی زده شد خارج نشه ؟؟  منظورم اینه که همون دکمه بی اثر بشه؟

[مهدی ایزدی 9,203]

سلام میشه کاری کرد وقتی دکمه بک خود گوشی زده شد خارج نشه ؟؟  منظورم اینه که همون دکمه بی اثر بشه؟

 

درود

بله

فقط Return True کنید

[1212 76]

باور کنین با این خیلی حال میکنم وقتی کاربر پشت سر هم این دکمه رو بزنه   میسی مهندس!!!

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event



If KeyCode = KeyCodes.KEYCODE_BACK Then
ToastMessageShow("دکمه بک غیر فعال است خروج را بزنید","true")
Return True
End If


If KeyCode = KeyCodes.KEYCODE_MENU Then
Return True
End If
End Sub

[sajad8888 819]

این کد کامل تره

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


    Dim ret,ret1,ret2,ret3 As Int
    Dim cd As CustomDialog
    Dim pnl As Panel
    Dim bd As Bitmap
    bd.Initialize(File.DirAssets, "exit.jpg")اینجا یه عکس بزارید
    pnl.Initialize("pnl")
    pnl.SetBackgroundImage(bd)
    ret1 = DialogResponse.POSITIVE
    ret2=DialogResponse.CANCEL
    ret3 = DialogResponse.NEGATIVE
    cd.AddView(pnl, 0, 0, 93%x, 60%x)
    ret = cd.Show("آیا قصد خروج دارید؟", "اره", "ارسال نظر و امتیاز","نه", Null)    
    If ret=ret1 Then
    ExitApplication
    Return True
    End If
    If ret=ret3 Then
    Return True
    End If
    If ret=ret2 Then
      (("StartActivity(i1.OpenBrowser("http://"google.com"))
ادرس لینک بازار رو بهش بدید
    Activity.Finish
    Return True
    End If
    End If
   
   
End Sub