Slik deaktiverer lukkeknappen i Visual Basic 6

Visual Basic 6 omfatter ikke et vindu type som har en funksjonshemmet lukkeknapp. Du må deaktivere lukkeknappen hvis du vil ha en handling dialog ber om spesifikk informasjon fra brukeren som bør ikke lukke. Merk at du ender opp med irriterende brukerne hvis de ikke kan lukke hovedvinduet til programmet med lukkeknappen eller noen knapp som lukker den. Hvis du ringer en viss funksjon i operativsystemet, kan VB program fjerne sin lukkeknappen.

Bruksanvisning

1 Åpne prosjekt i Visual Basic.

2 Gå til koden vinduet og skriv inn følgende kode på toppen. Denne koden gjør Visual Basic gjenkjenne visse bibliotekfunksjoner fra Windows nødvendig å fjerne lukkeknappen:

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 Som Long, _

ByVal wFlags As Long) As Long

3 Skriv følgende erklæring under de private Windows funksjonstaster erklæringer du har gjort: Private Const MF_BYPOSITION = & H400 &.

4 Skriv opp følgende på innsiden av "Form_Load" funksjon på formen du ønsker å deaktivere lukkeknappen av:

Dim sysMenu As Long

sysMenu = GetSystemMenu (Form1.hwnd, 0)

RemoveMenu (sysMenu, 6, MF_BYPOSITION)

RemoveMenu (sysMenu, 5, MF_BYPOSITION)

5 Bygg prosjektet og kjøre den kjørbare.