برگشتن به activity قبلی

[eotw 2]

با سلام خدمت دوستان.

من یک برنامه دارم که شامل 2 تا activity هست. داخل اکتیویتی دوم یک وب ویو دارم که با دکمه back گوشی به url قبلی بر می گرده. مشکل اونجایی هست که میخوام اگر به url اصلی رسید برگرده به اکتیویتی قبلی.

Sub Globals
     Dim myw As WebView
	 Dim address As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
     MyOfficeWeb
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub MyOfficeWeb
  'Dim myw As WebView
  myw.Initialize("myw")
  Activity.AddView(myw, 0, 0, 100%x, 100%y) 'Your options for size here
  myw.LoadUrl("http://answercenter.ir")
  '"http://kashanhc.atram.ir/login.aspx")
  address=myw.Url
End Sub


Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	 If KeyCode=KeyCodes.KEYCODE_BACK Then
	 
	  If address=="http://answercenter.ir" Then 
      Activity.Finish
	  StartActivity(Main)
	  Return True
	  Else
	  
	  page_back
	  End If 
	  End If
	  Return False
End Sub

Sub page_back
myw.Back
End Sub

لطفا راهنمایی کنید. تشکر

[hemmaty76 175]

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

اینجوری

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	


End Sub

و دخلش تعریف کنی وقتی کلید بک و زد چکار کنه.

[eotw 2]

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

اینجوری

Sub Activity_KeyPress (KeyCode As Int) As Boolean
	


End Sub

و دخلش تعریف کنی وقتی کلید بک و زد چکار کنه.

من هم همین کار رو انجام دادم کد رو نگاه کنین.

[shahab.es 5,429]

سلام

به این متعیر مقدار ندادی

address

بعد اومدی گفتی اگه مقدارش فلان بود بیاد و انجام بده کارو...

[eotw 2]

سلام

به این متعیر مقدار ندادی

address

بعد اومدی گفتی اگه مقدارش فلان بود بیاد و انجام بده کارو...

چرا گفتم که address=myw.Url ... ادرس وب ویو رو داخل address ریختم