Soyez le premier à donner votre avis sur cette source.
Vue 15 192 fois - Téléchargée 604 fois
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 )
22 déc. 2007 à 14:32
5 déc. 2005 à 23:29
merci d'avance
10 mai 2005 à 16:32
7 déc. 2004 à 14:51
17 mars 2003 à 14:54
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.