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


3 participantes

    Não Aparecer janela do access durante o login

    Kebao10
    Kebao10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 80
    Registrado : 16/07/2011

    Não Aparecer janela do access durante o login Empty Não Aparecer janela do access durante o login

    Mensagem  Kebao10 4/9/2015, 12:57

    Primeiramente bom dia a todos, tenho um aplicativo roda bem eu uso o Monta Ribbons do Avelino também tá blza só queria que ao abrir o aplicativo não aparecesse aquele nome do access e até a ribbon normal antes de carregar a nova ribbon, ou seja, queria que durante o primeiro form de login ficasse só ele na tela depois do login carrega todo janela do aplicativo, quase consegui com um código que achei para deixar a janela transparente só que tem um problema depois ele não fica totalmente visivel fica um pouco transparente ainda se alguém tiver uma outra sugestão agradeço.

    código citado

    Código:
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    Private Declare Function SetLayeredWindowAttributes Lib "user32" _
    (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

    'Constantes
    Private Const GWL_EXSTYLE = (-20)
    Private Const WS_EX_LAYERED = &H80000
    Private Const LWA_ALPHA = &H2

    Function AccessTransparente(Nivel As Integer)
    'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
    'Objetivo: Ajustar el nivel de transparencia de la ventana principal
    ' de access. El nivel de transparencia debe estar entre 0 a 250
    '.............................................................................
    Dim lngHwnd As Long
    If Nivel < 0 Or Nivel > 250 Then Exit Function
    lngHwnd = Application.hWndAccessApp
    SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
    End Function

    No form principal, evento "Ao carregar":

    Call AccessTransparente(0)
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    Não Aparecer janela do access durante o login Empty Re: Não Aparecer janela do access durante o login

    Mensagem  Kaynan 4/9/2015, 14:10

    Ola Kebao se der poste o banco que damos um jeitinho.
    Abç.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Não Aparecer janela do access durante o login Empty Re: Não Aparecer janela do access durante o login

    Mensagem  Noobezinho 4/9/2015, 16:05

    Kleber

    Para não aparecer a janela do Access, aquela que se abre antes do aplicativo abrir, crie uma imagem com apenas um pixel e
    coloque o nome do teu aplicativo nela com formato .bmp e deixe na mesma pasta do teu aplicativo.
    Ex.: MeuAplicativo.mdb

    Para esconder a janela do Access, procure aqui no fórum:
    Use o botão buscar ali em cima e digite esconder Access

    [ ]'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...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Não Aparecer janela do access durante o login Empty Re: Não Aparecer janela do access durante o login

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 17:32