Visual Basic 6 omfatter ikke et vindue type, der har en handicappet tæt knap. Du er nødt til at deaktivere den tætte knappen, hvis du vil have en handling dialog anmoder specifikke oplysninger fra brugeren, der ikke bør lukke. Bemærk, at du ender irriterende dine brugere , hvis de ikke kan lukke hovedvinduet i dit program med knappen Luk eller nogle knap, der lukker det. Hvis du kalder en bestemt funktion i styresystemet , kan din VB program fjerne sit tætte knap. Instruktioner
1
Åbn dit projekt i Visual Basic.
2
Gå til din kode vindue og skriv følgende kode øverst . Denne kode gør Visual Basic anerkende visse biblioteksfunktioner fra Windows er nødvendige for at fjerne din lukkeknappen :
Private Erklær Funktion GetSystemMenu Lib " User32 " _
( ByVal HWND As Long , _
< p> ByVal bRevert As Long ) As Long
Private Erklær Funktion RemoveMenu Lib " User32 " _
( ByVal hMenu As Long , _
ByVal nPosition As Long , _ < br >
ByVal wFlags så længe ), så længe
3
Skriv følgende erklæring under de private Windows funktionstaster erklæringer du har foretaget : Privat Const MF_BYPOSITION = & H400 &
. 4
Type op den følgende inde i " Form_Load " funktion af formen , du vil deaktivere den tætte knappen : Hej
Dim sysMenu As Long
sysMenu = GetSystemMenu ( Form1. HWND , 0)
RemoveMenu ( sysMenu , 6, MF_BYPOSITION )
RemoveMenu ( sysMenu , 5, MF_BYPOSITION )
5
Byg dit projekt og køre den eksekverbare . KAYAK