CONTROLBOX - HA ALGUM MACETE PARA SETAR EM MDIFORM

USUARIO.EXCLUIDOS 02/10/2006 17:42:41
#175104
Gostaria de controlar o final da execução de um sistema (desenvolvido com VB5) usando um botão (sei que é possível fazer de outro modo) e inabilitando o "x" da CONTROLBOX de um formulário MDI.

Existe algum truque?
USUARIO.EXCLUIDOS 02/10/2006 17:55:56
#175107
Vc quer desabilitar o X é isso?? Só isso?
USUARIO.EXCLUIDOS 02/10/2006 20:06:20
#175136
Desculpem-me...
Vou me explicar melhor.
O que eu queria era fazer o seguinte:
controlbox = false
minbutton = false
maxbutton = false
Só que para um Form MDI. Essas propriedades só aparecem para forms comuns. é possível fazer isso com MDI???
USUARIO.EXCLUIDOS 02/10/2006 20:10:08
#175137
Barros,

Como eu mudo estilo num Form MDI?
Me parece que não tem jeito (me perdoe se estiver errado).
Obrigado
MARCOSAV 02/10/2006 23:11:43
#175166 Resposta escolhida
Tente isto...

'Em um módulo 

Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long 
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long 
Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long 
Public Const MF_BYPOSITION = &H400& 
Public Const MF_REMOVE = &H1000& 

'No load do form 

Dim hSysMenu As Long 
Dim nCnt As Long 
Me.Show 
hSysMenu = GetSystemMenu(Me.hwnd, False) 
If hSysMenu Then 
  nCnt = GetMenuItemCount(hSysMenu) 
  If nCnt Then 
    RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE 
    RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE 
    DrawMenuBar Me.hwnd 
  End If 
End If


Abraço
T+
USUARIO.EXCLUIDOS 02/10/2006 23:33:26
#175168
Valeu!!!
assunto encerrado.
Muito obrigado.
Abraço
Tópico encerrado , respostas não são mais permitidas
Voltar