FECHAR MDI

JLIMA89 05/10/2017 16:20:07
#477020
Boa tarde,

Alguém pode me dizer como posso fechar um FORMMDI sem usar o X de fechar?
BOSCOSANTANA 05/10/2017 16:37:28
#477024
Boa tarde

VB = close()
c# = this.Close();
JLIMA89 05/10/2017 16:48:32
#477025
Citação:

:
Boa tarde

VB = close()
c# = this.Close();


No VB6 n funciona .
BOSCOSANTANA 05/10/2017 17:16:00
#477026
Tenta para o vb6 = Unload Me
FABRICIOWEB 05/10/2017 20:03:20
#477031
unload me
unload form1
end
OMAR2011 05/10/2017 22:13:04
#477034 Resposta escolhida
Coloque um picturebox no mdiform.
Aumenta o tamanho e coloque uma commandbutton dentro da picturebox.
Segue o código.
Verifique se serve.
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&

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub MDIForm_Load()
RemoveMenus
End Sub
Private Sub RemoveMenus()
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub
JLIMA89 06/10/2017 11:24:09
#477039
Citação:

:
Coloque um picturebox no mdiform.
Aumenta o tamanho e coloque uma commandbutton dentro da picturebox.
Segue o código.
Verifique se serve.
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&

Private Sub Command1_Click()
Unload Me
End Sub

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


Deu certinho..

na Vdd eu tenho um programinha rodando onde eu trabalho, sempre que eu vou trocar o aquivo exe, por uma atualização tenho que sair procurando onde o exe ta aberto.. e eu queria uma forma que eu conseguisse fechar todo de uma vez pelo meu computar.. vc sabe alguma forma?
Tópico encerrado , respostas não são mais permitidas
Voltar