Comment désactiver le bouton Fermer dans Visual Basic 6

August 12

Visual Basic 6 ne comprend pas un type de fenêtre qui a un bouton près désactivé. Vous devez désactiver le bouton de fermeture si vous voulez une boîte de dialogue d'action demandant des informations spécifiques à l'utilisateur qui ne devrait pas fermer. Notez que vous finissez par ennuyeux vos utilisateurs si elles ne peuvent pas fermer la fenêtre principale de votre programme avec le bouton de fermeture ou d'un bouton qui ferme. Si vous appelez une fonction au sein de votre système d'exploitation, votre programme de VB peut supprimer son bouton de fermeture.

Instructions

1 Ouvrez votre projet dans Visual Basic.

2 Accédez à votre fenêtre de code et tapez le code suivant en haut. Ce code rend Visual Basic reconnaît certaines fonctions de la bibliothèque à partir de Windows nécessaires pour retirer votre bouton de fermeture:

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

wFlags ByVal As Long) As Long

3 Ecrire la déclaration suivante en dessous des déclarations privées de Windows fonction que vous avez fait: Private Const MF_BYPOSITION = & H400 &.

4 Tapez le texte suivant dans la fonction "Form_Load" de la forme que vous souhaitez désactiver le bouton de fermeture de:

Dim SYSMENU As Long

SYSMENU = GetSystemMenu (Form1.hwnd, 0)

RemoveMenu (SYSMENU, 6, MF_BYPOSITION)

RemoveMenu (SYSMENU, 5, MF_BYPOSITION)

5 Construisez votre projet et lancez l'exécutable.


          

Post a comment: