مشکل در خرج از برنامه

[zaro 12]

سلام ببخشید توی برنامه وقتی مثلا روی باتن 1 کلید می کنم که کلید خروج که کدش این طوریه

    sub button1_click                                         Dim cd As CustomDialog
    Dim pnl As Panel
    Dim bd As Bitmap
    bd.Initialize(File.DirAssets, "exit3.png")
    pnl.Initialize("pnl")
    pnl.SetBackgroundImage(bd)
    ext1 = DialogResponse.POSITIVE
    ext2=DialogResponse.CANCEL
    cd.AddView(pnl, 0, 0, 93%x, 60%x)
    ext = cd.Show("آیا قصد خروج دارید؟", "بله",  "نظر ","خیر", Null)   
    If ext=ext1 Then
    ExitApplication
    Return True
    End If
    If ext=ext2 Then

    Activity.Finish
    Return True
    End If

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
BUTTON1_CLICK
End Sub

وقتی panel خروجی که برای باتن 1 طراحی شده بالا میاد با هر دو کلید بله و خیر میره بیرون.

چکار کنم که با خیر از برنامه بیرون نره؟

[Kazem Forghani 2,927]

سلام ،

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

Sub ExitProgram As Boolean
	Dim cd As CustomDialog
	Dim pnl As Panel
	Dim bd As Bitmap
	bd.Initialize(File.DirAssets, "exit3.png")
	pnl.Initialize("pnl")
	pnl.SetBackgroundImage(bd)
	cd.AddView(pnl, 0, 0, 93%x, 60%x)
	Dim ext As Int
	ext = cd.Show("آیا قصد خروج دارید؟", "بله",  "نظر ","خیر", Null)
	If ext = DialogResponse.POSITIVE Then
		ExitApplication
	else If ext = DialogResponse.CANCEL Then
		'Nazar Dehi'
		Return True
	else If ext = DialogResponse.NEGATIVE Then
		Return True
	End If
End Sub

بعد در قسمت activity_Keypress به این صورت ساب رو اجرا کنید:

Sub activity_KeyPress (KeyCode As Int) As Boolean
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Return ExitProgram
	End If
End Sub

در قسمت کلیک دکمه هم فقط ساب رو اجرا کنید دیگه نمی خواید به اون Return بدید:

ExitProgram

موفق و مؤید باشید

[zaro 12]

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

[rasul23 40]

اون Activity.Finish رو پاک کنی احتمالا دیگه با دکمه خیر از برنامه خارج نمیشه

[mehdi.m 158]

شما چنتا ifگذاشتین خب elseرو گذاشتن واسه چی.

خب شما نوشتین اگه ext=ext1اونوقت بره بیرون.بعد باز گفتین اگه ext=ext2 بازم اکتیویتی رو ببند