رفتن به مطلب

سورس های خروج برای Basic4Android


sajadakbari

ارسال‌های توصیه شده

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

Sub Button1_Click
   ext = Msgbox2("آیا قصد خروج دارید","","بله","خیر","",Null)    
   If ext = DialogResponse.POSITIVE Then         
   ExitApplication
   End If
End Sub

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

[left]Sub Button3_Click
   Dim cd As CustomDialog
   Dim pnl As Panel
   Dim bd As Bitmap
   bd.Initialize(File.DirAssets, "exit.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 
   Msgbox("آموزش بیسیک 4 اندروید ","با سلام")
   Activity.Finish 
   Return True
   End If
End Sub
[/left]

[left]Sub Button4_Click
   Dim cd As CustomDialog
   Dim pnl As Panel
   Dim bd As Bitmap
   bd.Initialize(File.DirAssets, "exit.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
End Sub
[/left]

[left]Sub Button5_Click
   Dim im As InputMenu
   Dim L As List
   L.Initialize
   L.Add("بله")
   L.Add("ارسال نظر")
   L.Add("خیر")
   Dim result As Int
      result = im.Show(L,"آیا قصد خروج دارید؟")    
   Select result
 Case 1
Msgbox("نظرات خو را برای ما بفرستید","ارسال نظر")
ExitApplication
Case 0
ExitApplication
End Select
End Sub
[/left]

[left]Sub Button6_Click
   Dim im As InputMenu
   Dim L As List
   L.Initialize
   L.Add("بله")
   L.Add("خیر")
   Dim result As Int
      result = im.Show(L,"آیا قصد خروج دارید؟")    
   Select result
Case 2
ExitApplication
End Select
End Sub
[/left]

منبع:وبلاگ بیسیک فور آندروید ایران آموزش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

کاش توضیحات عملکرد رو هم مینوشتی تا دوستان بدونن چه تفاوتی با هم دارند!!!

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

ضمن انکه کلمه ext هم قرمز شده بود تو b4a :|

شما Button رو اضافه کردید؟

من امتحان کردم کار کرد.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 1 ماه بعد...

آقا تو باتن 5 ،

inputmenu واسه من قرمز میشه ، کتابخونه ی خاصی نیازه ؟

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 11 ماه بعد...

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...