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 : ChangeFondEcran
Pour changer le fond d'écran de Windows.
(Consulté 18762 fois.)

' Déclaration de l'API
Private Declare Function SystemParametersInfo Lib "user32" _
       
Alias "SystemParametersInfoA" (ByVal uAction As Long, _
       
ByVal uParam As Long, ByVal lpvParam As Any, _
       
ByVal fuWinIni As Long) As Long

' Déclarations de constantes
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1

Public Function ChangeFondEcran(stFichier As String)
' Cette fonction permet de changer le fond d'écran de Windows,
' le fichier passé en paramètre est le nouveau fond à appliquer.
Dim lgRep As Long
lgRep = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, stFichier, _
                    SPIF_SENDWININICHANGE
Or SPIF_UPDATEINIFILE)
End Sub

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