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

[milad19 113]

باسلام

من برای قسمت بروزرسانی برنامم از Msgbox2 استفاده میکنم

با قسمت مثبتش مشکلی ندارم

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

اینم کد:

[/code]Q = Msgbox2("بروزرسانی جدید را دریافت میکنید؟","بروزرسانی","بله","","خیر",LoadBitmap(File.DirAssets,"1426013167_interact.png"))

If Q = DialogResponse.POSITIVE Then

StartActivity(p.OpenBrowser("http://upnama.com"))

If Q = DialogResponse.NEGATIVE Then

ExitApplication

End If

End If

Return True

Return True[/code]

[ali2 115]

ببین این کدها به دردت میخوره

ext = Msgbox2("آیا قصد خروج دارید","","بلی","ارتقا به نسخه طلایی","خیر",Null)        If ext = DialogResponse.POSITIVE Then         ExitApplication        End If        If ext = DialogResponse.CANCEL Then         Msgbox("ارتقا به نسخه طلایی","نسخه طلایی")        ExitApplication        End IfEnd Sub  

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

[b]Sub Button1_Click
   Dim result As Int
   result=Msgbox2("آیا میخواهید خارج شوید؟","","بله","پنج ستاره به برنامه","خیر",Null)
   If result=DialogResponse.POSITIVE Then 
   ToastMessageShow("بله خارج شو",False)
   Else If result=DialogResponse.NEGATIVE Then
   ToastMessageShow("خارج نشو",False)
   Else If result=DialogResponse.CANCEL Then
   ToastMessageShow("پنج ستاره بده",False)
   End If
End Sub
[/b]