Classe pour changer le papier peint de windows

Commenter

Contenu du snippet

Ca fait pas grand chose : efface, definit le papier peint de windows (a partir d'un nom de fichier) et recupere la taille de l'ecran.

Si quelqu'un sais comment definir la configuration du wallpaper en mode 'etiré', dite le moi, je l'inserai.

Source / Exemple : 


Public Class Windows_Wallpaper
    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Const SPI_SETDESKWALLPAPER = 20
    Const SPIF_UPDATEINIFILE = &H1
    Const SPIF_SENDWININICHANGE = &H2
    Private File_Path As String

    Sub New(ByVal _File_Path As String)
        File_Path = _File_Path
    End Sub

    Sub Clear()
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub

    Sub Update()
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, File_Path, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub

    Function Get_Height() As Integer
        Return Windows.Forms.Screen.PrimaryScreen.WorkingArea.Height()
    End Function

    Function Get_Width() As Integer
        Return Windows.Forms.Screen.PrimaryScreen.WorkingArea.Width()
    End Function
End Class

Conclusion :


Qu'en pensez vous ?

A voir également

S'inscrire maintenant

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.

Du même auteur (doxt)