IDDN CertificationIDDN Certification
 
  Moteur de recherche
Recherche personnalisée
 
   

 
Menu Principal

 Accueil
 Programmation
    avec Cours...
 Liens (ANNUAIRE)
 Statistiques-TOP 10
 Me contacter
 

  ObjetsBois.com est spécialisé dans les stylos en bois. Beaucoup de choix d'essences de bois. Cela peut faire un beau cadeau pour un mariage, la famille, les amis et peut-être même pour distribuer à vos clients.

 

 
Partenaires

 Les Partenaires

 
 

Remet le X de fermeture de programme  



Paramètres en entrée : NOM (Form)
Paramètres en sortie : Aucun

Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&

Public Sub RemetX (NOM As Form)
   '********* Remet la X de la feuille voulue ***********
   Dim hSysMenu As Long
   Dim nCnt As Long

   NOM.Show
   hSysMenu = GetSystemMenu(NOM.hwnd, True)
   If hSysMenu Then
      nCnt = GetMenuItemCount(hSysMenu)
      If nCnt Then
         RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
         RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE
         DrawMenuBar NOM.hwnd
      End If
   End If
   NOM.Hide
   NOM.Show
End Sub
 


[ ObjetsBois : des stylos en bois, des bagues en bois et autres objets en bois de qualité ]
[ Création de bijoux en bois ou bagues en bois sur mesure ]
[ Turf-France ] -[ turf / pmu / paris ]

Copyright © 2000-2014 LCL2000.COM
Reproduction totale ou partielle interdite sur quelque
support que ce soit sans l'accord de l'auteur
Tous droits réservés.
La confidentialité de vos données sur ce site est préservée.
LCL2000.com est déclaré à la CNIL sous le n°1007192



PageRank Actuel