Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : ScreenSaver
Activer ou désactiver l'économiseur d'écran de Windows.
(Consulté 18835 fois.)

Private Declare Function SystemParametersInfo Lib "User" _
     (
ByVal uAction As Integer, ByVal uParam As Integer, _
    lpvParam
As Any, ByVal fuWinIni As Integer) As Integer

Private Const
SPI_SETSCREENSAVEACTIVE = 17

Public Sub ScreenSaver(blOn As Boolean)
' Active ou désactive l'économiseur d'écran en fonction
' de la valeur du paramètre blOn
Dim lgRet As Integer
lgRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, blOn, 0, 0)
End Sub

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr