خرو شدن از برنامه با دکمه back گوشی

[mostafa.kasiri 115]

سلام

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

ولی وقتی دکمه بک گوشی رو میزنم این پیغام باز نمیشه 

چی کار کنم؟

[Elyas Erfani 3,582]

 

اقا من مشکلم حل شد اما یک مشکل دیگه دارم

ولی وقتی رو خیر هم میزنه از برنامه خارج میشه

چی کار کنم

 
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
    Else If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub

 

 

سلام

 

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

Sub Activity_KeyPress (KeyCode As Int) As Boolean 
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim i As Int
	i = Msgbox2("ایا خارج میشوید ؟","خروج","بله","نه","امتیاز میدم",LoadBitmap(File.DirAssets , "iconexit.png"))
	If i = DialogResponse.POSITIVE Then
	ExitApplication
	Else If i = DialogResponse.CANCEL Then
	Return True
	Else If i = DialogResponse.NEGATIVE Then
	Dim intent1 As Intent
	intent1.Initialize(intent1.ACTION_EDIT,"bazaar://details?id=PACKAGE_NAME")
	StartActivity(intent1)
	End If 
	End If
End Sub

[Elyas Erfani 3,582]

من توصیه میکنم اول برین اینجا

http://answercenter.ir/topic/8192-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-%D8%AC%D8%B3%D8%AA-%D9%88-%D8%AC%D9%88-%D8%AF%D8%B1-%D8%A7%D9%86%D8%AC%D9%85%D9%86/

[mostafa.kasiri 115]

اقا من اول همه جا رو میگردم اگر پیدا نکردم بعد سوال می کنم

لطفا کد بگین 

تو تگ

[sajad8888 819]

اقا من اول همه جا رو میگردم اگر پیدا نکردم بعد سوال می کنم

لطفا کد بگین 

تو تگ

کجا رو گشتید

جاهای جدید توی اجمن ساخته نشده راستش که ندونیم

http://answercenter.ir/topic/1109-%D9%85%D8%B4%DA%A9%D9%84-%D8%AF%D8%B1-%D8%AF%DA%A9%D9%85%D9%87-back-%D9%85%D9%88%D8%A8%D8%A7%DB%8C%D9%84/

 

http://answercenter.ir/topic/7257-%D9%BE%DB%8C%D8%A7%D8%AF%D9%87-%D8%B3%D8%A7%D8%B2%DB%8C-3-%D8%AD%D8%A7%D9%84%D8%AA-%D8%A8%D9%87-%D9%87%D9%86%DA%AF%D8%A7%D9%85-%D9%81%D8%B4%D8%B1%D8%AF%D9%86-%DA%A9%D9%84%DB%8C%D8%AF-back/

[mahfelsoft 130]

دوست عزیز شما از کد های keyback استفاده کردید ؟ شما کدهای خروج از برنامه رو برای دکمه بک گوشی هم باید تعریف کنید . به این شکل :

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
exitapplication
activity.finish
end sub

[mostafa.kasiri 115]

من این دوسایت رو هم اتفاقا دیدم اما به نتیجه ای نرسیدم

لطفا یک کدی بگید که کار بده

اونا هم تو این سایت ها مشکل من رو داشتن

[mostafa.kasiri 115]

به end sub ایراد می گیره

B4A version 4.30
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end if
Occurred on line: 41
End Sub

اینم کد هام

#Region  Project Attributes 
#ApplicationLabel: صلوات شمار
#SupportedOrientations: portrait
#End Region
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ImageView1 As ImageView
Private Button3 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L2")
ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"8.png"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click 
End Sub
Sub Button2_Click
StartActivity("main1")
Activity.Finish
End Sub
Sub Button3_Click
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub
 
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
ExitApplication
Activity.finish
End Sub

[Elyas Erfani 3,582]

به end sub ایراد می گیره

B4A version 4.30
Parsing code.                           Error
Error parsing program.
Error description: Missing Keyword: end if
Occurred on line: 41
End Sub

اینم کد هام

#Region  Project Attributes 
#ApplicationLabel: صلوات شمار
#SupportedOrientations: portrait
#End Region
#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ImageView1 As ImageView
Private Button3 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("L2")
ImageView1.SetBackgroundImage(LoadBitmap(File.DirAssets,"8.png"))
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click 
End Sub
Sub Button2_Click
StartActivity("main1")
Activity.Finish
End Sub
Sub Button3_Click
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub
 
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
ExitApplication
Activity.finish
End Sub

ی دونه End If ی جا جا انداختید

[sajad8888 819]

 

به end sub ایراد می گیره

 

یه توصیه

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

شما باید بیسیک و مفهموم اون رو درک کنید

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

شما از سورس استفاده میکنید ولی میاید فقط پیست میکنید همین

توصیه ی من به شما در مورد بیسیک و درمورد ساب و بستن ساب حالت های خروجی مثل دیباگ و اینا یه بار کار کنید

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

موفق باشید

[mahfelsoft 130]

بله ببخشید آخر اون کدهای بک که دادم قبل از end sub یه دونه end if رو بنویسید . من چون تایپ کردم فراموش کردم .

اگر هم میخوای باز اون مسیج باکس باز بشه موقع زدن دکمه بک ، بیا کدهای مسیج باکس رو توی رویداد بک که گفتم کپی کن .

موفق باشی

[mostafa.kasiri 115]

اقا من مشکلم حل شد اما یک مشکل دیگه دارم

ولی وقتی رو خیر هم میزنه از برنامه خارج میشه

چی کار کنم

 
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode = KeyCodes.KEYCODE_BACK Then
Dim a As Int
a = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
    Else If a = DialogResponse.POSITIVE Then
ExitApplication
End If
End Sub