2 ارسال در این موضوع قرار دارد

کد های مختلفی برای این کار گذاشتم خیلی کارایی دارن



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

سوالی بود در خدمتم


seyyedali پسند دیده است

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


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

سوالی بود در خدمتم

 

------------------------------------------------------------------------------------------------------------------------------------------------------

سلام 

اگه خواستیم داخل سرویس از برنامه خارج بشیم دستورش چیه (منظور ExitApplication نیست) دستوری مثل عمل دکمه بک گوشیه؟

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


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

  • مطالب مشابه

    • توسط H@mid.RS
      نسجه جدید بیسیک فور اندروید منتشر شد!
       
      روش نصب:
       
      فایل را از حالت فشرده خارج کنید محتویات داخل را با نسخه فدیمی که نصب کردید جایگزین کنید!
       
      امکانات جدید در نسخه ۶٫۵۰ بتا :
       

      ۱ مرتب کردن خودکار کدها با زدن دکمه alt + F
       

       

      امکان استفاده از فونت های آیکنی در دیزاینر
       

       

      منبع : کوئیک لرن
    • توسط H@mid.RS
      IRKerningView
      مشاهده فایل
      درود به کاربران عزیزانجمن بیسیک فور ایکس


      کتابخانه ای برای ایجاد فاصله بین حروف


      وارپ شده از پروژه گیت هاب زیر :


      پروژه گیت هاب

       

      شات :




       

      کتابخانه + سورس کد برای شما قرار داده شد

       

      در پناه حق

      ارسال کننده H@mid.RS ارسال ۱۶/۰۸/۱۱ دسته کتابخانه  
    • توسط H@mid.RS
      درود به کاربران عزیزانجمن بیسیک فور ایکس


      کتابخانه ای برای ایجاد فاصله بین حروف


      وارپ شده از پروژه گیت هاب زیر :


      پروژه گیت هاب

       

      شات :




       

      کتابخانه + سورس کد برای شما قرار داده شد

       

      در پناه حق