Au revoir ! le fond d'écran !

Contenu du snippet

pour chasser le fond d'écran du bureau. A mettre dans un module pour un appel de la fonction supprimerFondEcranBureau.

Source / Exemple :


Public Declare Function SystemParametersInfoA Lib "user32" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Public Sub supprimerFondEcranBureau()
          SystemParametersInfoA 20, 0&, "(None)", &H1 Or &H2
End Sub

Conclusion :


ps : remplacer "(none)" par une chaine de caractere contenant un fichier image et ce code permet alors de modifier le fond d'ecran actuel par le nouveau !!!!!!!!

A voir également

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.