نیازمند راهنمایی در نوعخروج از برنامه

[dostmobile 329]

سلام و درود بر دوستان عزیز

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

عکسشو کشیدم که منظورمو بهتر بیان کنم

ممنون میشم با کد راهنمایی کنید!!!

سپاس

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

درود

این رو نگاه کنید :

http://answercenter.ir/thread1748.html

[dostmobile 329]

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

خب کو صفحه پنج ستاره؟؟؟؟

بعدش این عکس هم نداره!!!

[moinmah 40]

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

 a = Msgbox2("برای حمایت از ما به این برنامه 5 ستاره دهید.","خروج از برنامه","باشه","فعلا نه","",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))
   If (a = DialogResponse.POSITIVE) Then
       Dim market As Intent, uri As String
uri="bazaar://details?id=com.XTools.internetirancell.free"
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
End If

به جای com.XTools.internetirancell.free اسم پکیجتو بنویس

[dostmobile 329]

همه اینا درست شد

نمیشه سه گزینه داشته باشه؟

یکی خارج شه

یکی خارج نشه

و وسطی صفحه نظرو امتیاز رو بیاره؟

If (a = DialogResponse.POSITIVE) Then

این کد رو توضیح بدید ممنون

[moinmah 40]

کاری نداره

a = Msgbox2("برای حمایت از ما به این برنامه 5 ستاره دهید.","خروج از برنامه","خروج","فعلا نه","5 ستاره",LoadBitmap(File.DirAssets,"1421100421_star-128.png"))
   If (a = DialogResponse.POSITIVE) Then
 ExitApplication
end if

If (a= DialogResponse.Cancel) then
       Dim market As Intent, uri As String
uri="bazaar://details?id=com.XTools.internetirancell.free"
market.Initialize(market.ACTION_EDIT,uri)
StartActivity(market)
End If

[mahfelsoft 130]

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

[moinmah 40]

الان سورس رو گذاشتم اگه مشکل حل نشد اینو چک کن