MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Qui 15 Dez 2016 - 18:12

    boa tarde, estou com uma duvida,
    Queria lista as pastas em ListBox e ao clicar abrir a pasta em ListBox e clicar no arquivo em PDF que esta dentro e abrir.
    Access
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Sex 16 Dez 2016 - 19:13

    Amigo, por coincidência ou pq vc e um cara de muita sorte, a um tempo achei um exemplo exatamente com tudo que vc precisa...

    So nao lembro mais onde foi que achei esse Exemplo, mas acho que foi daqui do Fórum... Como esta sem Autoria nos código, nao sei quem o Fez...

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox 8y6vcn

    dropbox.com/s/5ht5gvy3slsqnd8/Listar%20Pasta%20e%20PDF.rar?dl=0 <=== Baixe aqui


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Não consigo aumentar o campo do PDF

    Mensagem  Junior_atm Sex 16 Dez 2016 - 19:29

    não consigo aumentar o campo do pdf, tipo para não aparecer essas barras de rolagem, ja abrir o documento todo do lado.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Sex 16 Dez 2016 - 20:26

    Então, eles costumam ser chatos mesmo...

    mas aumente pelo VBA:

    'Largura
    Me.pdf5.Width = 568 * 21
    'Altura
    Me.pdf5.Height = 568 * 30



    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty OUTRA DUVIDA

    Mensagem  Junior_atm Sex 16 Dez 2016 - 22:25

    Tipo dento de ANO vai ter MESES e se dentro de MESES tiver outra pasta, como faço para abrir ?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Sab 17 Dez 2016 - 5:37

    Amigo, e so replicar o que foi feito no Campo Meses...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Tentei e não consegui

    Mensagem  Junior_atm Sab 17 Dez 2016 - 21:52

    tentei e não consegui.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Seg 19 Dez 2016 - 14:49

    Amigo, tive que fazer uma pequena mudança na Função para carregar os Arquivos...
    dropbox.com/s/420s9h3izw8wryo/Listar%20Pasta%20e%20PDF.rar?dl=0

    Agora Ao chamar a Função Call ListaArquivos agora terá que informar o caminho da pasta ou Variavel contendo o vaminho da pasta:
    Call ListaArquivos(F)


    Agora Lista os PDF em cada Pasta Selecionada.
    Ano>Mes>Dia.

    Veja la como foi feito.


    Última edição por FabioPaes em Seg 19 Dez 2016 - 15:01, editado 1 vez(es) (Razão : ARQUIVO ATUALIZADO!)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty JPG e PDF

    Mensagem  Junior_atm Seg 19 Dez 2016 - 14:51

    você tem algum codigo que aparece JPG e PDF na listBox ?
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Tem algum codigo de pesquisa em ListBox

    Mensagem  Junior_atm Seg 19 Dez 2016 - 15:05

    Queria pesquisa na listbox, vc tem algum codigo
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Seg 19 Dez 2016 - 15:08

    O Link da mensagem anterior foi alterado, tinha Upado o arquivo errado.

    Veja bem, o responsavel para listar somente os arquivos é a função : Sub ListaArquivos(xDiretorio As String)


    Nessa linha, vc pode definir os tipos de aquivo pretendido: Arquivo = Dir(xDiretorio & "\*.*", vbArchive)

    Troque o *.* pelo formato Desejado.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Lista Imagem e PDF

    Mensagem  Junior_atm Seg 19 Dez 2016 - 15:23

    Queria listar Imagem e PDF ao clicar na imagem ela abrir e o pdf tambem.
    e fazer um filtro nas listbox
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Noobezinho Ter 20 Dez 2016 - 6:54

    Olá Amigos


    Dando um pitaco Razz

    Tenho esse exemplo no fórum: maximoaccess.com/t19285p5-resolvidosistema-de-letras-de-musicas#144008

    Ele utiliza a dll do Acrobat Reader, portanto, é necessário que ele esteja instalado no computador.

    Dá para fazer o mesmo utilizado a dll do Foxit Reader que é gratuito.

    Espero que ajude.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 7:06

    não e bem isso não Noobezinho,

    O modelo que o nosso amigo FabioPaes mandou esta perfeito, só que eu queria que na listagem aparecesse além do PDF o JPG tambem só isso.

    Modelo a ser alterado - dropbox.com/s/420s9h3izw8wryo/Listar%20Pasta%20e%20PDF.rar?dl=0
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Noobezinho Ter 20 Dez 2016 - 7:38

    Junior

    Caixa de listagens e caixas de combinação não aceitam imagens, somente aceitam caracteres.


    Agora, se realmente deseja colocar um thumbnail na frente de cada arquivo PDF, é possível fazer

    utilizando um subformulário continuo, simulando uma listbox.

    Para isso, terá que criar uma tabela para guardar o caminho de cada arquivo.pdf e sua imagem para

    poder exibir na "ListBox" (subformulário Contínuo).

    Se tiver interesse, retorne que envio o arquivo.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 7:42

    Sim tenho interesse.

    Eu queria que na LISTBOX do exemplo dele ai que aparece o PDF tambem aparecesse o JPG entendeu. quando eu clicar no PDF ele abrir e quando eu clocar no JPG ele abrir tbm.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Noobezinho Ter 20 Dez 2016 - 7:53

    Aqui está.

    Terá trabalho braçal, o que te ajudará na aprendizagem.

    O arquivo que estou disponibilizando é um exemplo para você ter como base.

    Se tiver alguma dificuldade, retorne nesse tópico mesmo.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 8:05

    não e bem isso não.

    você chegou a baixar o exemplo do parceiro FabioPaes, então e daquele mesmo jeito e só queria que na listagem aparecesse .JPG e .PDF que esta dentro da pasta que eu cliquei.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Noobezinho Ter 20 Dez 2016 - 9:05

    No formulário do exemplo tem 5 caixas de listagem.

    Entendi que lstArqDiretorio, deseja exibir uma imagem miniatura ou thumbnail

    dessa maneira

    ------------------------------------------------------------
    imagem1 | Arquivo1.pdf
    ------------------------------------------------------------
    imagem2 | Arquivo2.pdf
    ------------------------------------------------------------


    Se for isso, o exemplo que disponibilizei, faz isso, é só ter um pouco

    de criatividade.

    Agora, se ainda não é isso, explique melhor.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 9:15

    São 3 caixa de listagem com - ANO MÊS DIA
    ao selecionar o ano irá aparecer as pastas que tem dentro na listagem MES e selecionando o MES irá aparecer PDF que tem dentro ou pastas.
    e na Listagem CONHECIMENTO DIRETORIO e onde aparece os arquivos que tem dentro de cada pasta nesse caso os PDF que ao selecionar ele aparece do lado sendo exibido.
    O que eu quero e que na listagem CONHECIMENTO DIRETORIO aparece PDF e JPG só isso.
    meu whats ( 93 ) 9 9183-4874
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 9:25

    Se você colocar alguma imagem dentro da pasta LISTAGEM e dentro de alguma MÊS, ao selecionar ela irá aparecer CONHECIMENTO DIRETORIO porem ela não abre.
    eu só queria clicar em cima e ela abrir.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Ter 20 Dez 2016 - 9:39

    Noobezinho, o que o colega quer na verdade é que onde exibe o PDF (Lado direito), ao clicar em uma Imagem, ela seja exibida também do lado direito, e ao clicar em um PDF ela também seja Exibida.


    Junior_atm Vc precisará colocar um controle de Imagem do mesmo tamanho do que tem o PDF, deverá colocar em cima do quadro que exibe o PDF...

    Coloque Tanto o controle de Imagem, quanto o do PDF, ambos ocultos...

    E, ao clicar no arquivo, faça uma verificação na extensão... se for PDF exiba o Controle de PDF e aplique nele o PDF seleciona.
    Se for uma Imagem, deverá exibir o controle de imagem e aplicar a imagem...


    Para ver como aplicar imagem vinculada veja aqui: https://www.maximoaccess.com/t26710-resolvidovincular-foto-por-cadastro-da-matricula

    Acredito que assim deverá funcionar!


    Última edição por FabioPaes em Ter 20 Dez 2016 - 12:30, editado 2 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Noobezinho Ter 20 Dez 2016 - 10:52

    Olá Fabio

    Criquio?

    Sou o Balem Wink

    Agora entendi !!

    É isso ai que explicou

    Grande abraço !!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Ter 20 Dez 2016 - 12:29

    Ops! Desculpa nobre amigo Noobezinho!

    Lendo vários posts ao mesmo tempo rerererererere


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 13:54

    Na listagem aparece PDF e JPG.
    o PDF abre do lado direto
    ja o JPG não abre e dar erro, eu queria que ao clicar no JPG ele abria no visualizador de imagens do windows.
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 14:01

    Segue modelo

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox 161e3yu
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Ter 20 Dez 2016 - 14:09

    Então amigo, o maior problema é a falta de informações... Vao surgindo aos poucos e o post ica longo... perdemos tempo... Enfim.



    Ao clicar na ListBox que mostra os documentos, faça uma verificação, pegando os 4 Ultimos Caracter do Arquivo (que será a Extensão do arquivo .jpg .png .pdf...)

    Em cima dessa Verificação, se for PDF abre normal no Formulario, se for Imagem vc abre no visualizador do Windows:


    'Abre com visualizador Imagem do Windows
    Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Arquivo, vbMaximizedFocus


    & Arquivo é o nome da Variavel com o Caminho\NomeArquivo.Extesao do arquivo a ser aberto.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 14:22

    FabioPaes

    Tentei e não consegui, ele não abre.... segue o sistema

    ver se você quebra esse galho ai.



    https://www.dropbox.com/s/wf459shfuzzf9wr/SOL%20PES%20-%20Gerenciador%20de%20Pesquisa%20de%20Arquivos.rar?dl=0
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Ter 20 Dez 2016 - 15:09

    Mude o comando do evento ao Clicar, para:

    Código:
    Private Sub lstArqDiretorio_Click()
    Dim F As String
    F = Right(Me.lstArqDiretorio, 4) 'Pega a extensão do arquivo
    Caminho = Replace(lstArqDiretorio.Column(0) & lstArqDiretorio.Column(1), "\\", "\") 'Remove uma \ a mais que fica no caminho do arquivo
    Select Case F
        Case ".JPG", ".PNG", ".BPM" 'Coloque aqui os formatos das fotos para abrir
        Shell "rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Caminho, vbMaximizedFocus
        Case ".PDF"
        'CARREGA ARQUIVO
        pdf5.LoadFile (Caminho)
        pdf5.SetViewRect 10, 10, 100, 200
        'MOSTRA/OCULTA A BARRA DE FERRAMENTEAS
        pdf5.setShowToolbar (1)
        'DEFINE O ZOOM PADRÃO DA IMAGEM
        pdf5.setZoom (90)
        'Largura
        Me.pdf5.Width = 450 * 30
        'Altura
        Me.pdf5.Height = 340 * 30
        Case Else
        MsgBox "Arquivo Não configurado para Exibição!" & vbNewLine & "Por Favor Contate o Administrador!", vbInformation, "Atenção"
    End Select
    End Sub

    Para configurar a visualização de outro tipo de arquivo, pasta colocar novo Caso ( Select Case ".extensao" ).


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Junior_atm
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 18/11/2016

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  Junior_atm Ter 20 Dez 2016 - 15:32

    Valeu FabioPaes, muito obrigado por essa ajuda.

    ajudou muito.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox Empty Re: [Resolvido]Navegar entre Pastas e Abrir Arquivo Selecionado na ListBox

    Mensagem  FabioPaes Ter 20 Dez 2016 - 16:10

    Grato pelo retorno! Feliz Natal a Todos!!! Até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sab 17 Abr 2021 - 10:21