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

2 participantes

    ocultar os botões Minimizar, Maximizar e Fechar

    avatar
    GILDEZIO
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 23/04/2014

    ocultar os botões Minimizar, Maximizar e  Fechar Empty ocultar os botões Minimizar, Maximizar e Fechar

    Mensagem  GILDEZIO Sab 26 Dez 2020, 2:35 pm

    Amigos boa tarde peço se possível uma ajuda pra resolver esse problema, estou usando este código para ocultar os botões Minimizar, Maximizar e Fechar do Banco de Dados Acesse. O mesmo funcionar perfeitamente no acesse 2010 só que no acesse 2019 não, apena ocultar o Minimizar, onde está o erro?

    Option Compare Database

    Private Const GWL_STYLE = (-16)
    Private Const WS_CAPTION = &HC00000
    Private Const WS_MINIMIZEBOX = &H20000
    Private Const WS_MAXIMIZEBOX = &H10000
    Private Const WS_SYSMENU = &H80000
    Private Const SWP_NOSIZE = &H1
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_NOZORDER = &H4
    Public Const SWP_FRAMECHANGED = &H20


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

    Private Declare Function SetWindowLong _
    Lib "user32" Alias "SetWindowLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

    Private Declare Function SetWindowPos _
    Lib "user32" ( _
    ByVal hwnd As Long, _
    ByVal hWndInsertAfter As Long, _
    ByVal X As Long, _
    ByVal Y As Long, _
    ByVal cx As Long, _
    ByVal cy As Long, _
    ByVal wFlags As Long) As Long

    Public Function EscondeBotoes(Show As Boolean) As Long
    Dim Janela As Long
    Dim AtribueIndex As Long
    Dim AtribueNovoLongo As Long
    Dim AtribueLongo As Long

    Janela = hWndAccessApp
    AtribueIndex = GWL_STYLE

    Const wFlags = SWP_NOSIZE + SWP_NOZORDER + SWP_FRAMECHANGED + SWP_NOMOVE
    Const FLAGS_COMBI = WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SYSMENU

    AtribueLongo = GetWindowLong(Janela, AtribueIndex)

    If Show Then
    AtribueNovoLongo = (AtribueLongo Or FLAGS_COMBI)
    Else
    AtribueNovoLongo = (AtribueLongo And Not FLAGS_COMBI)
    End If

    Call SetWindowLong(Janela, AtribueIndex, AtribueNovoLongo)
    Call SetWindowPos(Janela, 0&, 0&, 0&, 0&, 0&, wFlags)

    End Function



    chamndondo a função no abri do formualrio
    Private Sub Form_Open(Cancel As Integer)
    Call EscondeBotoes(False)
    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2408
    Registrado : 23/01/2018

    ocultar os botões Minimizar, Maximizar e  Fechar Empty Re: ocultar os botões Minimizar, Maximizar e Fechar

    Mensagem  crysostomo Dom 27 Dez 2020, 5:01 pm

    va propriedades do formulário "Formato" lá em baixa você tira "botões min e max  como nunca


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Ter 07 Fev 2023, 10:18 pm