مشکل با ExitApplication

[Assassin-Wolf 13]

سلام دوستان

من یک دکمه خروج مشخص کردم . که بعد از زدن روش از شما میپرسه که میخواید برید؟ و اگه رو آره بزنید 1 اکتیویتی جدید ایجاد میشه که یک عکس BG داره و یک صدا رو پخش میکنه

تا دستورات Timer درست کردم که بعد از چند ثانیه از برنامه خارج بشه اما بعد از تمام شدن تایمر و رسیدن به ExitApplication بعد از اجرا به همون صفحه اول برنامه بر میگرده

این سورس صفحه Main

#Region  Project Attributes 
	#ApplicationLabel: جناب خانده
	#VersionCode: 1
	#VersionName: 1
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: portrait
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim cn As CustomNotification
	Dim r As Reflector
	 Dim ca As CacheCleaner
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("desktop")
	ca.clearCache
	Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"bg-2.png"))
    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub
Sub Activity_Resume

End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button_1_Click
	StartService(SVNF)
	StartActivity(Menu)
End Sub

Sub Button_4_Click
	Dim cd As CustomDialog
	Dim pnl As Panel
	Dim bd As Bitmap
	bd.Initialize(File.DirAssets, "Exit_BG.png")
	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 
	StartActivity("Exit")
	'Return True
	End If
End Sub
Sub Button_2_Click
	StartActivity("Setting")
End Sub
Sub Button_3_Click
	StartActivity("InfoRadius")
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
	Dim cd As CustomDialog
	Dim pnl As Panel
	Dim bd As Bitmap
	bd.Initialize(File.DirAssets, "Exit_BG.png")
	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 
	StartActivity("Exit")
	'Return True
	End If
End If
End Sub

این هم سورس اون صفحه که توش Timer هست

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim timer1 As Timer
	Dim mp As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	'Activity.LoadLayout("Layout1")
	Activity.SetBackgroundImage(LoadBitmap(File.DirAssets,"BG-5.Png"))
	timer1.Initialize("timer1",2500)
	timer1.Enabled = True
	
		mp.Initialize()
		mp.Load(File.DirAssets,"M3-1.mp3")
		mp.Play
End Sub
Sub timer1_tick
	timer1.Enabled=False
	ExitApplication
End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

[مجید آرتا 5,874]

جایی که دارید اکتویتی مورد نظر رو استارت می کنی این کدو بنویس :

Activity.Finish

[fileman 328]

توی قسمت Sub Activity_KeyPress قبل از StartActivity("Exit") بنویس: activity.finish شاید درست شد.

[Assassin-Wolf 13]

مشکل حل شد ! ممنون