• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

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 و stm32

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


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

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

 

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

سلام 

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

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


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

  • مطالب مشابه

    • توسط H@mid.RS

       
       
       
       
       
       
       
      همون طور که می دونید سمت سرور کد های ارسالی به سرور انلان می باشد
       
       
      ما می تونیم برنامه های فوق العاده پیشرفته با سمت سرور بسازیم
       
       
      ازجمله برنامه ها با دیتای انلاین و بازی های دارای مرحله ای که با وارد کردن اطلاعات به داخل برنامه بارگذاری می شوند
       
       
       
       
       
      ی سورس همراه با کد های PHP رو براتون قرار دادم تا با کار باهاشون بتونید بیشتر اشنا بشید
       
       
       
       
       
      البته دوست خوبم حسین با کد های PHP آشنایت بیشتری داره و حتما این بحث رو ادامه میدیم
       
       
      قابلیت های پروژه پیش رو :
       
       
      1-ثبت نام کاربر
       
       
      2-ورود
       
       
      3-مدیریت یا بارگذاری افرادی که ثبت نام کرده اند
       
       
      4-تغییر پسورد و ریست
       
       
      5-فراموشی پسورد
       
       
      و چیز های دیگر...
       
       
       
       
       
       
       
       
      هر گونه سوالی در مورد سورس یا کد های PHP داشتید مطرح کنید
       
       
       
       
       
      با ارزوی پیشرفت روز افزون
       
       
       
       
       

       
       
       
       
       
       
      Samte Server V 4 (Www.Basic4x.IR).zip
    • توسط mreza
      سلام
      ممنون میشم این کتابخونه رو از github برام رپ کنید. خییییییییییلی برام حیاتیه
      https://github.com/LukeDeighton/WheelView?utm_source=android-arsenal.com&utm_medium=referral&utm_campaign=780
    • توسط H@mid.RS
      6.80 full