Gewusst wie: Deaktivieren der Schaltfläche "Schließen" in Visual Basic 6

Visual Basic 6 schließt kein Fenstertyp, die eine deaktivierte Schaltfläche zum Schließen hat. Du musst die Schließen-Schaltfläche deaktivieren Sie ggf. eine Aktion-Dialogfeld anfordern spezifische Informationen von dem Benutzer, der nicht zu schließen, sollten. Beachten Sie, dass Sie am Ende Ihre Nutzer ärgerlich, wenn sie das Hauptfenster des Programms mit der Schaltfläche "Schließen" oder eine Schaltfläche, die geschlossen wird, schließen können. Wenn Sie eine bestimmte Funktion innerhalb Ihres Betriebssystems aufrufen, kann Ihr VB-Programm die Schaltfläche "Schließen" entfernen.

Anweisungen

1 Öffnen Sie Ihr Projekt in Visual Basic.

2 Gehen Sie zum Codefenster und geben Sie den folgenden Code am Anfang. Dieser Code macht Visual Basic erkennt bestimmte Bibliotheksfunktionen von Windows erforderlich, die Schaltfläche "Schließen" zu entfernen:

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 Long3

Schreiben Sie die folgende Deklaration unterhalb der privaten Windows-Funktionsdeklarationen vorgenommenen: Private Const MF_BYPOSITION = & H400 &.

4 Geben Sie Folgendes in der "Form_Load" Funktion des Vordrucks Schaltfläche schließen deaktivieren möchten:

As Long Dim sysMenu

SysMenu = GetSystemMenu (Form1.hwnd, 0)

RemoveMenu (SysMenu, 6, MF_BYPOSITION)

RemoveMenu (SysMenu, 5, MF_BYPOSITION)

5 Erstellen Sie das Projekt, und führen Sie die ausführbare Datei.