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


    Chamar qualquer tela do Painel de Controle através do VBA

    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    Chamar qualquer tela do Painel de Controle através do VBA Empty Chamar qualquer tela do Painel de Controle através do VBA

    Mensagem  toyebom em 15/2/2014, 18:48

    ‘Para chamar a tela principal do Painel de Controle:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus)

    ‘Para chamar a tela Adicionar ou Remover Programas:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Adicionar ou Remover Programas, na aba
    ‘Instalao do Windows:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Adicionar ou Remover Programas, na aba
    ‘Disco de Inicializao:
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Vdeo, na aba Segundo Plano:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)

    ‘Para chamar a tela Vdeo, na aba Proteo de Tela:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Vdeo, na aba Aparncia:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Vdeo, na aba Configurao:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Configuraes Regionais, na aba
    ‘Configuraes Regionais:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", vbNormalFocus)

    ‘Para chamar a tela Configuraes Regionais, na aba
    ‘Nmero:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Configuraes Regionais, na aba
    ‘Moeda:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Configuraes Regionais, na aba’Hora:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Configuraes Regionais, na aba’Data:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4", vbNormalFocus)

    ‘Para chamar a tela Joystick:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

    ‘Para chamar a tela Mouse:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)

    ‘Para chamar a tela Teclado:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)

    ‘Para chamar a tela Impressoras:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)

    ‘Para chamar a tela Fontes:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3", vbNormalFocus)

    ‘Para chamar a tela Mail e Fax:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", vbNormalFocus)

    ‘Para chamar a tela Multimdia, na aba Audio:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0", vbNormalFocus)

    ‘Para chamar a tela Multimdia, na aba Vdeo:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Multimdia, na aba MIDI:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Multimdia, na aba Msica de CD:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Multimdia, na aba Dispositivos:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4", vbNormalFocus)

    ‘Para chamar a tela Som:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", vbNormalFocus)

    ‘Para chamar a tela Modem:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)

    ‘Para chamar a tela Rede:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)

    ‘Para chamar a tela Senhas:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)

    ‘Para chamar a tela Sistema, na aba Geral:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", vbNormalFocus)

    ‘Para chamar a tela Sistema, na aba Gerenciador’de Dispositivos:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Sistema, na aba Perfis de

    Hardware:
    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Sistema, na aba Performance:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Opes de Acessibilidade, na aba’Teclado:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1", vbNormalFocus)

    ‘Para chamar a tela Opes de Acessibilidade, na aba’Som:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2", vbNormalFocus)

    ‘Para chamar a tela Opes de Acessibilidade, na aba’Vdeo:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3", vbNormalFocus)

    ‘Para chamar a tela Opções de Acessibilidade, na aba’Mouse:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4", vbNormalFocus)

    ‘Para chamar a tela Opes de Acessibilidade, na aba’Geral:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5", vbNormalFocus)

    ‘Para chamar a tela do Assistente (Adicionar novo’Hardware):

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1", vbNormalFocus)

    ‘Para chamar a tela Data e Hora:

    Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

    ‘Para chamar a tela DiskCopy:

    Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

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

    Chamar qualquer tela do Painel de Controle através do VBA Empty Re: Chamar qualquer tela do Painel de Controle através do VBA

    Mensagem  Gilberto Rocha em 18/3/2014, 16:57

    Não testei, mas parabéns!


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR

      Data/hora atual: 22/11/2019, 21:50