Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("myX")
If FirstTime Then
parser.Initialize()
parser.parse(File.OpenInput(File.DirAssets, "vers.xml"), "parser")
End If
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If Name="year" Then year=Text
If year = n AND Name = "content" Then content = Text
EditText1.Text=content
End Sub
Sub nxt_Click
n = n + 1
parse
End Sub
Sub prev_Click
n = n - 1
parse
End Sub
Sub parse
parser.Parse(File.OpenInput(File.DirAssets, "vers.xml"), "parser")
End Sub