RETIRAR O X FECHAR DO FORMULARIO .

MOACIRPFAU 06/04/2005 09:59:24
#76940
Olá,

Gostaria de tirar o botão X(fechar) do formulario, mas se alterar a propriedade do borderstyle para "none", fica sem borda nenhuma e eu gostaria que ficasse a borda mas sem o X(fechar), é possível?
ALMIRSAFADI 06/04/2005 10:03:29
#76944 Resposta escolhida
Na janela de propriedades do Form coloque com False a opção ControlBox,
Almir Safadi
USUARIO.EXCLUIDOS 06/04/2005 10:07:18
#76945
Você pode impedir que seja fechado pelo x
No declarations do form, coloque
Dim vFecha as integer

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) 
if vFecha = 1 Then
'fecha tudo
unload me
 Else 
Cancel = True 
End If 
End Sub

e para fechar coloque um botão no form com o seguinte codigo

if msgbox("deseja sair?", vbyesno) = vbyes then
vFecha = 1
Unload me
End if

Tente isso..
Até mais...
PAULOHSV 06/04/2005 10:08:26
#76946
ou Link
USUARIO.EXCLUIDOS 06/04/2005 10:39:23
#76959
Use uma API:


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&

Cria uma Sub

Private Sub RemoveFechar()
Dim hMenu as long
hMenu = GetSystemMenu(hWnd,False)
DeleteMenu hMenu, 6, MF_POSITION
end sub

No Load do Form

RemoveFechar


Pronto o form está sem o "X"
USUARIO.EXCLUIDOS 06/04/2005 10:42:08
#76961
Desculpe tem um erro na Sub RemoveFechar:

 DeleteMenu hMenu, 6, MF_POSITION


O Certo é:

  DeleteMenu hMenu, 6, MF_BYPOSITION



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