Visual Basic 6 inte innefattar ett fönster typ som har ett funktionshinder stäng knapp . Du måste inaktivera knappen Stäng om du vill ha en åtgärd dialogruta begära specifik information från användaren som inte bör stänga . Observera att du hamnar irriterande dina användare om de inte kan stänga huvudfönstret i programmet med knappen Stäng eller någon knapp som stänger den . Om du ringer en viss funktion i ditt operativsystem , kan ditt VB -program ta bort sin nära -knappen . Instruktioner
1
Öppna ditt projekt i Visual Basic .
2
Gå till din kod fönstret och skriv följande kod i toppen . Denna kod gör Visual Basic erkänna vissa bibliotek funktioner från Windows som krävs för att ta bort din stängknapp :
Privat Declare Function GetSystemMenu Lib " User32 " _
( ByVal HWND As Long , _
ByVal bRevert As Long ) As Long
Private Declare Lib Funktion RemoveMenu " User32 " _
( ByVal hMenu As Long , _
ByVal Nposition As Long , _
ByVal wFlags As Long) As Long Addera 3
Skriv följande uttalande under de privata Windows funktionsdeklarationer du gjort : Privat Const MF_BYPOSITION = & H400 &
. 4
Type upp följande innanför " Form_Load " funktion av formen du vill inaktivera knappen Stäng av :
Dim sysMenu As Long
sysMenu = GetSystemMenu ( Form1. HWND , 0 ) katalog
RemoveMenu ( sysMenu , 6 , MF_BYPOSITION ) katalog
RemoveMenu ( sysMenu , 5 , MF_BYPOSITION )
5
Bygg ditt projekt och köra den körbara . Addera
