کل سورس های خروج برنامه در basic4android

[amirhossein.kashan 22]

توجه این کتابخانه ها باید فعال باشه inputmenu , core , dialogs ,customdialog
1.

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

2.

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

3.
 

Dim cd As CustomDialog
    Dim pnl As Panel
    Dim bd As Bitmap
    bd.Initialize(File.DirAssets, "هر عکسی می خواهید جاش بزارید")
    pnl.Initialize("pnl")
    pnl.SetBackgroundImage(bd)
    ret1 = DialogResponse.POSITIVE
    ret2=DialogResponse.CANCEL
    cd.AddView(pnl, 0, 0, 93%x, 60%x)
    ret = cd.Show("آیا قصد خروج دارید؟", "بله",  "پیشنهاد ویژه","خیر", Null)    
    If ret=ret1 Then 
    ExitApplication 
    Return True
    End If
    If ret=ret2 Then 
    Msgbox("[COLOR=#ff0000]هر اسمسی می خواهید جاش بزارید[/COLOR]","پیشنهاد ویژه")
    Activity.Finish 
    Return True
    End If
End Sub

4.

Dim cd As CustomDialog
    Dim pnl As Panel
    Dim bd As Bitmap
    bd.Initialize(File.DirAssets, "هر عکسی می خواهید جاش بزارید")
    pnl.Initialize("pnl")
    pnl.SetBackgroundImage(bd)
    ret1 = DialogResponse.POSITIVE
    ret2=DialogResponse.CANCEL
    cd.AddView(pnl, 0, 0, 93%x, 60%x)
    ret = cd.Show("آیا قصد خروج دارید؟", "بله", "","خیر", Null)    
    If ret=ret1 Then 
    ExitApplication 
    Return True
    End If
End Sub

5.

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

6.

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

اگه مشکلی بود مطرح کنید

موفق باشید

[مهدی ایزدی 9,203]

البته کتابخانه Dialogs رو یادتون رفت نام ببرید که مربوط به CustomDialog میشه !

[amirhossein.kashan 22]

البته کتابخانه Dialogs رو یادتون رفت نام ببرید که مربوط به CustomDialog میشه !

ممنون که اطلاع دادید

[a.ahmadi 1]

عالی بود ممنون

[rahmanrezaei 5]

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

[امین شاهدی 5,765]

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

 

همچین کتابخونه ای موجود نیست ، شما کتابخونه dialog رو تیک بزن درسته 

[rahmanrezaei 5]

پس چرا موقعی که من این متن رو کپی میکنم برای خروج از b4a همش قرمز میشه یعنی  اشتباهییست

[پژمان نیکروان 6,055]

پس چرا موقعی که من این متن رو کپی میکنم برای خروج از b4a همش قرمز میشه یعنی  اشتباهییست

متاسفانه کد ها بهم ریخته بود و یه سری کد های BBCode اومده لای کدهای بیسیک.

پست اول ویرایش شد درست شد.

[rahmanrezaei 5]

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

 

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

[coco 1,746]

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

    ExitApplication    End IfEnd Sub

 

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

شما ابتدا باید ret رو به عنوان یک متغیر از نوع int ( یا intent ، دقیق یادم نیست ) تعریف کنین.

به این صورت:

Dim ret as int

یا

Dim ret is intet

[mohammadhasan 35]

آیا شما ret رو به برنامه معرفی کرده اید؟

[rahmanrezaei 5]

ret چی هست چجوری معرفی اش کنیم

[rahmanrezaei 5]

به نظرم من متن ها رو جابجایی میزارم دقیقا بایدDim ret as int 

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

[مهدی ایزدی 9,203]

یا باید توی دکمه ی خروج قرار بگیرن یا رویداد KeyPress که زمانی که کاربر دکمه Back رو میزنه این رویداد اتفاق بیفته :

Sub Activity_KeyPress (KeyCode As Int) As Boolean
  If KeyCode = KeyCodes.KEYCODE_BACK Then
  	Dim result As Int
    result=Msgbox2("از برنامه خارج میشی","","خیر","","بله",Null)
    	If result=DialogResponse.POSITIVE Then
			Return True
		Else If result=DialogResponse.NEGATIVE Then
			ExitApplication
		End If
  End If
End Sub

[rahmanrezaei 5]

شرمنده خسته تون کردم من میخوام با دکمه گوشی موقع خروج این پیام رو بده اگه میشه به طور کامل توضیح بده اخه آماتورم

این هم لینک برنامه ام

http://s6.uplod.ir/i/00624/7mw7eixujef3.png
http://s6.uplod.ir/i/00624/9x7u4hpir9m2.png

[پژمان نیکروان 6,055]

نمونه سورس رو دانلود کنید.

یک خروج موقعی هست که کلیک برگشت گوشی رو میزنید و سوال میپرسه آیا خارج میشید؟

و یک خروج ، یه باتون گذاشتم که روی اون میتونید کلیک کنید و سوال میپرسه خارج میشید یانه.

دانلود

[rahmanrezaei 5]

ممنونم خیلی مرررررررررررررررردین حل شد

[rahmanrezaei 5]

داداش هام من یه برنامه ساختم تقریبا اخرشه ولی یه مشکلی که هست اینکه برنامه ام خیلی طرحش ساده اس   یعنی به این صورت که برنامه بعد از  اسپلیش /میره به لیست مطالب /بعد موارد متن میشه

من میخوام این جوری باشه بعد از اسپلش/ بره داخل منوی اصلی /بعد بره به لیست مطالب / بعد متن

این هم لینک های برنامه ام 
http://s6.uplod.ir/i...mw7eixujef3.png
http://s6.uplod.ir/i...x7u4hpir9m2.png