ABRIR PDF COM PARÂMETRO

FFABIOG 24/06/2017 23:21:51
#474709
Senhores,

Preciso abrir um determinar arquivo de PDF através de um parâmetros no textbox

Fiz muitas pesquisa, mas não encontrei nada que atenda minha necessidade.

Na pasta [Ô]C:\Protocolo[Ô] existe vários arquivos de PDF 0344, 0345, 0346, 0347 conforme imagem em anexo.
No meu form existe um textbox onde eu coloco o número do protocolo, conforme também imagem em anexo.

Ao clicar em abrir, quero visualizar o PDF que eu digitei no textbox,

Como fazer isso?
Já habilitei o Adobe PDF Reader, meu vb.net é o 2015.

Muito obrigado, forte abraço.
KURTGU 25/06/2017 18:17:16
#474715 Resposta escolhida
Desta forma...
AxAcroPDF1.LoadFile( C:\Protocolo & [Ô]\[Ô] & textbox1.text & [Ô].pdf[Ô])



[txt-color=#e80000]AO TERMINAR E VERIFICAR QUE O CODIGO DISPONIBILIZADO ESTA FUNCIONANDO, ENCERRE O POST E MARQUE A MINHA RESPOSTA OU OUTRA COMO A CORRETA.[/txt-color]
ZOWWT 25/06/2017 20:48:36
#474722
Você deve passar o valor da textbox onde faz a abertura do pdf e fazer uma verificação para ver se existe o arquivo.
KURTGU 25/06/2017 21:43:41
#474723
Citação:

:
Você deve passar o valor da textbox onde faz a abertura do pdf e fazer uma verificação para ver se existe o arquivo.




If Not System.IO.File.Exists(C:\Protocolo & [Ô]\[Ô] & textbox1.text & [Ô].pdf[Ô]) Then
MsgBox([Ô]Arquivo não encontrado![Ô])
Else
AxAcroPDF1.LoadFile( C:\Protocolo & [Ô]\[Ô] & textbox1.text & [Ô].pdf[Ô])
End If
FFABIOG 25/06/2017 22:49:40
#474724
Citação:

:
:
Você deve passar o valor da textbox onde faz a abertura do pdf e fazer uma verificação para ver se existe o arquivo.


If Not System.IO.File.Exists(C:Protocolo & [Ô][Ô] & textbox1.text & [Ô].pdf[Ô]) Then
MsgBox([Ô]Arquivo não encontrado![Ô])
Else
AxAcroPDF1.LoadFile( C:Protocolo & [Ô][Ô] & textbox1.text & [Ô].pdf[Ô])
End If



KURTGU, obrigado pela ajuda.

Fiz o comando conforme sua orientação , mas não abre o arquivo.

Agora esse comando funcionou perfeitamente, no link abaixo do canal Visual Basic .net
https://www.youtube.com/watch?v=gdzKS3JV4qE


ofdAbrir.Filter = [Ô]Arquivo PDF|*.pdf[Ô]
ofdAbrir.Multiselect = False
If ofdAbrir.ShowDialog = DialogResult.OK Then
AxAcroPDF1.src = ofdAbrir.FileName
End If

Porque será agora que o seu comando não abriu o PDF que está na pasta protocolo?
KURTGU 25/06/2017 23:34:59
#474725
Aqui da forma que fiz funciona normalmente...
KURTGU 25/06/2017 23:37:15
#474726
testa ai para vc ver...
FFABIOG 26/06/2017 12:52:21
#474738
Citação:

:
testa ai para vc ver...



Teste, mas não funcionou.

Problema no Adobe Reader.
KURTGU 26/06/2017 14:10:02
#474742
Citação:

:
:
testa ai para vc ver...

Teste, mas não funcionou.

Problema no Adobe Reader.



Viu que isto nao e erro do codigo, e sim do adobe na sua maquina..
KURTGU 26/06/2017 18:30:06
#474762
AO TERMINAR E VERIFICAR QUE O CODIGO DISPONIBILIZADO ESTA FUNCIONANDO, ENCERRE O POST E MARQUE A MINHA RESPOSTA OU OUTRA COMO A CORRETA.

FFABIOG 26/06/2017 20:16:02
#474766
Citação:

:
:
:
testa ai para vc ver...

Teste, mas não funcionou.

Problema no Adobe Reader.


Viu que isto nao e erro do codigo, e sim do adobe na sua maquina..



Cara, tu acredita que era um espaço que não abria o pdf, rsrs
Muito obrigado pela ajuda.

Só faltou uma coisinha pra fechar com chave de ouro,
Preciso limpar sempre o AxAcroPDF1 antes de abrir o PDF propriamente dito
Nesse caso eu sei essa função: AxAcroPDF1.LoadFile([Ô]DONTEXISTS.pdf[Ô])
Acho que está valendo também né?
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar