[Resolvido]Tirar Caixa de Controle do form, mas deixar o botão fechar e minimizar

bom dia.

gostaria de saber se é possivel e como se faz para tirar a caixa de controle da barra de titulo de um formulario, mas deixar os botões fechar e minimizar.

obs: quero que fique a barra de titulos.

boas,

na vista de estrutura do formulário clicar nas propriedades , formato e selecionar o pretendido ( dá para personalizar da forma que desejar)... as propriedades botao esquerdo rato em cima do quadrado preto canto superior direito dvista de estrutura formulario.

abraço

só que quando deixa a opção caixa de controle como não o botão fechar tambem sai mesmo a opção fechar estando como sim

Neste assunto, não entendi o que pretende.
Quer ter a barra do título, quer o botão minimizar, quer o botão fechar. Será que só quer tirar o botão maximizar? se sim, deve dizer o que quer em vez de dizer o que não quer.

Quero tirar a caixa de controle, mas deixando o botão fechar.

tem como ????

Bom dia,
Já vi algo desse género, mas afecta todos os formulários e não me lembro de ter encontrado a reversão para o formato normal. Mesmo assim, quer que procure a solução?

mas afeta todo os forms do banco de dados atual??? quero sim... pois ainda estou procurando, e sou e serei muito grato pela a ajuda.

Option Compare Database
Option Explicit

Const SC_CLOSE As Long = &HF060&
Const MIIM_STATE As Long = &H1&
Const MIIM_ID As Long = &H2&
Const MFS_GRAYED As Long = &H3&
Const MFS_CHECKED As Long = &H8&
Const WM_NCACTIVATE As Long = &H86

Type MENUITEMINFO
cbSize As Long
fMask As Long
fType As Long
fState As Long
wID As Long
hSubMenu As Long
hbmpChecked As Long
hbmpUnchecked As Long
dwItemData As Long
dwTypeData As String
cch As Long
End Type

Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal B As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long
Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

Const xSC_CLOSE As Long = -10
Const SwapID As Long = 1
Const ResetID As Long = 2
Private hMenu As Long
Private MII As MENUITEMINFO

Sub Disable()
Dim ret As Long
ret = SetId(SwapID)
If ret = 0 Then
If MII.fState = (MII.fState Or MFS_GRAYED) Then
MII.fState = MII.fState - MFS_GRAYED
Else
MII.fState = (MII.fState Or MFS_GRAYED)
End If
MII.fMask = MIIM_STATE
ret = SetMenuItemInfo(hMenu, MII.wID, False, MII)
'Ret = SetMenuItemInfo(hMenu, MII.wID, True, MII)
If ret = 0 Then
ret = SetId(ResetID)
End If
ret = SendMessage(Application.hWndAccessApp, WM_NCACTIVATE, True, 0)
End If
End Sub

Private Function SetId(Action As Long) As Long
Dim MenuID As Long
Dim ret As Long
MenuID = MII.wID
If MII.fState = (MII.fState Or MFS_GRAYED) Then
If Action = SwapID Then
MII.wID = SC_CLOSE
Else
MII.wID = xSC_CLOSE
End If
Else
If Action = SwapID Then
MII.wID = xSC_CLOSE
Else
MII.wID = SC_CLOSE
End If
End If
MII.fMask = MIIM_ID
ret = SetMenuItemInfo(hMenu, MenuID, False, MII)
If ret = 0 Then
MII.wID = MenuID
End If
SetId = ret
End Function

Sub DesabilitaBotFechar()
Dim ret As Long
Dim hwnd As Long
hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
MII.cbSize = Len(MII)
MII.dwTypeData = String(80, 0)
MII.cch = Len(MII.dwTypeData)
MII.fMask = MIIM_STATE
MII.wID = SC_CLOSE
ret = GetMenuItemInfo(hMenu, MII.wID, False, MII)
Disable
End Sub

desculpa. mas em qual ação do formulario coloco para funcionar?

Penso que basta executar uma vez

não executar... coloquei ao carregar formulario.

Baoa tarde,
Mensagem dúbia. Explique melhor o que quis dizer

vou deixar como resolvido... decide ao inves de usar o do botão minimizar e fechar do sistema que tem por obrigaçaõ deixar a caixa de controle... vou tirar as bordas e colocar dois botões para resolver o problema...


muito obrigado pela ajuda... valeu mesmo...