MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Explorer (quase) completo

    Compartilhe
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Explorer (quase) completo

    Mensagem  criquio em Seg 26 Mar 2012, 14:14

    Vez ou outra alguem pensa na possibilidade de se ter um explorer dentro de uma aplicação Access. Hoje deixo um exemplo que eu criei para essa finalidade. O exemplo está dividido em três abas, a saber:

    1 - Aba Pesquisar: fornece opções de pesquisa por arquivos ou pastas, podendo retornar apenas arquivos ou apenas pastas e tambem filtra por tipo de arquivo. A lista de tipos de arquivos tambem é filtrada de acordo os arquivos presentes na pasta;

    2 - Aba Criar: nessa aba estão opções para se criar pastas ou arquivos dentro do diretório selecionado. Os tipos de arquivos que podem ser criados a princípio, são: accdb, doc, docx, mdb, rtf, txt, xls e xlsx. Para cada tipo de arquivo tem uma função específica que permite a sua criação. Novos tipos podem ser incorporados caso tenha uma biblioteca que possa ser usada para se criar o objeto certo para o tipo pretendido;

    3 - Aba Editar - oferece funções para excluir, copiar, renomear e mover pastas e arquivos.

    Alem das funções acima, contem uma área para visualização de informações sobre o item selecionado. Quando se seleciona um drive, são exibidas uma imagem de acordo o tipo do drive e informações sobre o espaço ocupado pelos arquivos dessa pasta. Quando selecionado uma pasta, exibe a imagem de uma pasta e informações sobre a mesma. Quando selecionado um arquivo, exibe informações sobre o mesmo, bem como a imagem, quando for um arquivo de imagem. Um arquivo pode ser aberto ao clicar duas vezes no seu nome.

    O exemplo não está totalmente acabado. Pode ser personalizado para atender a cada tipo de necessidade.

    Espero que seja útil.
    Anexos
    CriquiosExplorer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (175 Kb) Baixado 334 vez(es)


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Convidad
    Convidado

    Re: Explorer (quase) completo

    Mensagem  Convidad em Seg 26 Mar 2012, 14:33


    Mais um exemplo do grande talento do nosso colega king Criquio king.

    Dica: utilizadores da versão 2003 devem desmarcar as bibliotecas ausentes nas Referências do VBA.
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: Explorer (quase) completo

    Mensagem  criquio em Seg 26 Mar 2012, 14:42

    Obrigado e bem lembrado. Esqueci de mencionar que, dependendo da versão utilizada, pode ser necessário alterar a versão de alguma referência ou excluir alguma AUSENTE, embora eu tenha testado aqui nas versões do Access XP, 2007, 2010 e no runtime do 2007 utilizando Windows XP e o beta do Windows 8 em máquinas virtuais e testei no Windows 7 como sistema principal.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2293
    Registrado : 21/04/2011

    Re: Explorer (quase) completo

    Mensagem  Marcelo David em Seg 26 Mar 2012, 16:54

    Nossa!! Muito bom! Muito obrigado por compartilhar!!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    Paulo Robilotta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 24/09/2010

    Re: Explorer (quase) completo

    Mensagem  Paulo Robilotta em Ter 27 Mar 2012, 13:29

    É possível postar o arquivo convertido para a versão 2000 ?

    Abraço

    Convidad
    Convidado

    Re: Explorer (quase) completo

    Mensagem  Convidad em Ter 27 Mar 2012, 13:46


    Na versão 2000


    Anexos
    Criquios Explorer 2000.zip
    (174 Kb) Baixado 40 vez(es)
    avatar
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1021
    Registrado : 21/01/2010

    Re: Explorer (quase) completo

    Mensagem  Gilberto Rocha em Ter 27 Mar 2012, 22:22

    Parabéns Criquio, muito bom.

    Obs.: Aqui ficou um tanto lento ao clicar nas pastas.
    avatar
    Paulo Robilotta
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 24/09/2010

    Re: Explorer (quase) completo

    Mensagem  Paulo Robilotta em Qua 28 Mar 2012, 02:25

    Obrigado pela gentileza de disponibilizar a versão 2000.

    Ao tentar exexcutar o programa ocorre o erro:

    Erro de compilação : Método ou membro de dados não encontrado.

    Pesquisando na internet encontrei a informação que esse método só foi implementado a partir da versão 2002.

    Se alguém quiser adaptar para a versão 2000, um ponto de partida pode ser o link abaixo:

    AddItem and RemoveItem for Listboxes in Access 97/2000

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Dom 22 Out 2017, 16:17