DESACTIVER LE BOUTON [X] DE VOTRE FORMULAIRE

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_REMOVE = &H1000&
Private Sub DesactiveX()
     Dim hMenu As Long
     Dim nCount As Long
     hMenu = GetSystemMenu(Me.hwnd, 0)
     nCount = GetMenuItemCount(hMenu)

     Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
     Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)

     DrawMenuBar Me.hwnd
End Sub
Private Sub Form_Load()
     DesactiveX
End Sub
Private Sub Form_Click()
     Unload Me
End Sub

' N.B : Ce code désactive également le fermeture du menu system de votre Formulaire ( icône en haut à gauche )

Télécharger le zip

• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)
• IMPRIMER LE CONTENU D'UN RICHTEXTBOX
• TESTEUR DE REGEX (REGULAR EXPRESSIONS)
• FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAGE FORCÉ)
• COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

• AJOUTER N'IMPORTE QUEL RACCOURCI À VOS MENUS (HOOK CLAVIER)
• CLIQUER SUR UN LIEN JAVASCRIPT / CONTRÔLE DE INTERNET EXPLORER / REMPLIR UN FORMULAIRE AUTOMATIQUEMENT / ROBOT
• USERFORM PLEIN ÉCRAN SOUS EXCEL VBA
• LIMITER LE NOMBRE DE LIGNES DANS UN TEXTBOX
• CALCULATRICE NOTES DE FRAIS

• JEU DU CISEAUX
• METEO FRANCE
• FERMER EXCEL CORRECTEMENT ET SIMPLEMENT
• BOUTONS RÉACTIFS
• DÉSACTIVER LE BOUTON FERMER / X D'UNE FEUILLE VB