انواع کدهای خروج در بیسیک 4 اندروید

انواع کدهای خروج در بیسیک 4 اندروید

در این قسمت می خواهیم آموزش ساخت دکمه خروج با کد های مختلف با برنامه بیسیک 4 اندروید رو آموزش بدیم!  کد های مختلفی برای این کار گذاشتم خیلی کارایی دارن

 

 

 جهت مشاهده کد ها به ادامه مطلب مراجعه فرمایید!

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

*****************************************************************************

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

 

*****************************************************************************

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

 

*****************************************************************************

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

 

*****************************************************************************

 

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

 

 

*************************************************** 

 

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

  

(" در اینجا نام صفحه خود را بنویسید")StartActivity
Activity.Finish

***************************************************** 

 

موفق باشید

 نظر یادتون نره 

 

منبع : b4airanamozesh