Tatsächlich entsprechen die drei Schaltflächen oben rechts im Formular mehreren Optionen in der ControlBox (ControlBox) oben links im Formular (Minimieren/Maximieren/Schließen), darunter Maximieren (MaxButton) und Minimieren ( Minbutton) Sie können direkt in den Eigenschaften des Formulars festgelegt werden, VB bietet jedoch nicht die Funktion zum Setzen des „X“-Buttons! Um diese Funktion zu erreichen, müssen Sie die API verwenden:
Da die Schaltfläche „X“ der Schließoption von ControlBox entspricht, müssen wir nur die Schließoption des Systemmenüs (d. h. ControlBox) entfernen! Sie können zunächst einen Blick auf das Systemmenü in der oberen linken Ecke des von Ihnen verwendeten Browsers werfen. Welche Nummer ist die Option [Schließen], nicht die sechste? Es ist der 7. und die Trennlinie zählt als eins! Der Teiler ist der 6.!
Wenn wir die Schließoption entfernen, bleibt eine seltsame Trennlinie zurück, daher ist es am besten, auch die Trennlinie zu entfernen. Der Index des Menüs beginnt bei 0 und die Trennlinie ist die sechste, also Index=5.
Korrektur: Damit der Programmcode unter Windows NT ordnungsgemäß funktioniert, ändern Sie den Integer-Typ in Long. 89.05.04
'Erfassen Sie den Hintergrund des Systemmenüs
PRivateDeclareFunctionGetSystemMenuLib"user32"Alias"GetSystemMenu"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
'Entfernen Sie die Systemmenü-API
PrivateDeclareFunctionRemoveMenuLib"user32"Alias"RemoveMenu"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
'Der erste Parameter ist der Hwnd des Systemmenüs
'Der zweite Parameter ist der Index-> der zu entfernenden Option