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

 
 

Visible (invisible) dans la Barre Des Taches  



Paramètres en entrée : NomFeuille (Form), Visible (booléen)
Paramètres en sortie : Aucun

Dans un Module :
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TOOLWINDOW = &H80&


Public Sub BarreDesTachesVisible(NomFeuille As Form, Visible As Boolean)
   Dim L As Long
   L = ShowWindow(NomFeuille.hwnd, SW_HIDE)
   DoEvents
   L = SetWindowLong(NomFeuille.hwnd, GWL_EXSTYLE, IIf(Visible, -WS_EX_TOOLWINDOW, WS_EX_TOOLWINDOW))
   DoEvents
   L = ShowWindow(NomFeuille.hwnd, SW_SHOW)
End Sub

Dans la feuille que vous désirez rendre visible (ou invisible) dans la barre des tâches, mettre le code suivant :
‘Visible
BarreDesTachesVisible Me, True

OU

‘Invisible
BarreDesTachesVisible Me, False
 


[ 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