REMOVER BOTAO FECHAR DO MDICHILD

USUARIO.EXCLUIDOS 03/06/2005 08:26:42
#86744
Galera, não achei nada aqui no fórum, se tiver alguma coisa me desculpem. Gostaria de remover o botão fechar de um form MDIChild, vejam bem, remover, e não, desabilitar. Alguém sabe como fazer ?

Valeu,

Mark
JEAN.JEDSON 03/06/2005 08:30:54
#86747
somente o fechar? ou todos os botões?
tenta Form1.ControlBox=false
USUARIO.EXCLUIDOS 03/06/2005 08:49:30
#86754
Gostaria de remover somente o botão fechar, ah, e também o fechar do menu., deixando apendas o minimizar. A propriedade controlbox desabilita todos os botões, inclusive o ícone da barra de títulos.

Valeu.
USUARIO.EXCLUIDOS 03/06/2005 09:03:55
#86759
Põe esse código no FORM:

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&


Coloque essa SUB no formulário:

Private Sub RemoveMenus()
  Dim hMenu As Long
  hMenu = GetSystemMenu(hWnd, False)
  DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub


E coloque este evento no FORM_LOAD

RemoveMenus
USUARIO.EXCLUIDOS 03/06/2005 09:05:36
#86760
FELIPEA 03/06/2005 10:20:32
#86769 Resposta escolhida
Tbem dá pra quando a pessoa aperta "X" não acontece nada

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = True
End Sub


Daí qdo clica 2 vezes no ícone do programa, qdo clica no menu e qdo clica no botão "X" não acontece nada
USUARIO.EXCLUIDOS 06/06/2005 15:52:56
#87303
Valeu galera !

Topico_Encerrado = True

Mark
Tópico encerrado , respostas não são mais permitidas
Voltar