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

[sajadakbari 163]

شش سورس برای خروج از برنامه در 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]

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

[dostmobile 329]

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

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

[ali@ali 10]

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

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

[sajadakbari 163]

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

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

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

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

[amardia 18]

آقا تو باتن 5 ،

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

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

[mohsen10024 0]

سلام چطور یک فرم خروج با دوتا باتون میشه ساخت