Android Question Reboot pages when opening pdf

[luiswagnersantos]

Hello.

I have an app that opens pdf stored locally on the smartphone.
Follow the code below.

Sub AbrirCatalogo(NomeArquivo As String)
Dim i As Intent 'Requires a reference to the Phone library

'File exist ?
If File.Exists(File.DirDefaultExternal&"/Pdf",NomeArquivo)=True Then
Try
i.Initialize(i.ACTION_VIEW, ("file:///" & File.DirDefaultExternal&"/Pdf"&"/"&NomeArquivo))
i.SetType("application/pdf")
StartActivity(i)
Catch
Msgbox("Houve algum erro em abrir o Arquivo: "&NomeArquivo&CRLF&" Erro:"&LastException, "Erro")
End Try
Else
'Msgbox("Não é possível encontrar o arquivo: "&NomeArquivo&CRLF& "Atualize o catálogo para corrigir. "&CRLF&"Erro: "&LastException,"Erro")
Msgbox2("Não é possível encontrar o Arquivo: "&NomeArquivo&CRLF&" Faça uma nova Atualização.","Erro","OK","","",LoadBitmap(File.DirAssets,"mnu_Erro48.png"))
End If

End Sub

The user always navigates between the pdf pages. If it terminates the application and returns later the system positions the last page visited. I wanted the system to return to the first page when the user returned.
Is there a possibility of using code?
I am using adobe acrobat reader as default application.


Thanks any help
Wagner

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

 

[luiswagnersantos]

Sub AbrirCatalogo(NomeArquivo As String)
Dim i As Intent 'Requires a reference to the Phone library

'File exist ?
If File.Exists(File.DirDefaultExternal&"/Pdf",NomeArquivo)=True Then
Try
i.Initialize(i.ACTION_VIEW, ("file:///" & File.DirDefaultExternal&"/Pdf"&"/"&NomeArquivo))
i.SetType("application/pdf")
StartActivity(i)
Catch
Msgbox("Houve algum erro em abrir o Arquivo: "&NomeArquivo&CRLF&" Erro:"&LastException, "Erro")
End Try
Else
'Msgbox("Não é possível encontrar o arquivo: "&NomeArquivo&CRLF& "Atualize o catálogo para corrigir. "&CRLF&"Erro: "&LastException,"Erro")
Msgbox2("Não é possível encontrar o Arquivo: "&NomeArquivo&CRLF&" Faça uma nova Atualização.","Erro","OK","","",LoadBitmap(File.DirAssets,"mnu_Erro48.png"))
End If

End Sub

I'm sorry