6 Visual Basic não inclui um tipo de janela que tem um botão de fechar desativado. Você precisa desativar o botão de fechar , se você quer um diálogo ação solicitando informações específicas do usuário que não deve fechar . Note que você acaba irritando seus usuários se eles não podem fechar a janela principal do seu programa com o botão de fechar ou algum botão que fecha. Se você chamar uma determinada função dentro de seu sistema operacional, o seu programa VB pode remover o seu botão de fechar . Instruções
1
Abra seu projeto no Visual Basic.
2
Vá para a sua janela de código e digite o seguinte código na parte superior . Este código faz com que Visual Basic reconhecer certas funções da biblioteca do Windows necessário remover o botão perto :
Private Declare Function GetSystemMenu Lib " user32 " _
(ByVal hwnd As Long , _
ByVal bRevert As Long ) As Long
Private Declare Function RemoveMenu Lib " user32 " _
(ByVal hMenu As Long , _ ByVal
nPosition As Long , _
ByVal wFlags as Long ) As Long
3
Escreva a seguinte declaração abaixo as declarações de funções do Windows particulares feitas : Private Const MF_BYPOSITION = & H400 &
. 4
Digite o seguinte dentro da função " Form_Load " do formulário que você gostaria de desativar o botão perto de :
Dim SYSMENU as Long
SYSMENU = GetSystemMenu ( Form1. hwnd , 0)
RemoveMenu ( SYSMENU , 6, MF_BYPOSITION )
RemoveMenu ( SYSMENU , 5, MF_BYPOSITION )
5
Crie seu projeto e executar o arquivo executável .