tutoriel visual basic 2008 desktop changer (sous vista )tutoriel visual basic 2008 desktop changer CODE: 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 Public Shared Sub fonddecran(ByVal Wallpaper As Object) Dim Background As System.Drawing.Image = Nothing If TypeOf Wallpaper Is String Then Background = System.Drawing.Image.FromFile(Wallpaper) ElseIf TypeOf Wallpaper Is Image Then Background = Wallpaper Else Exit Sub End If Dim Location As String = "C:\Users\thibaud\AppData\Roaming\Microsoft\Windows Photo Gallery\" & "Papier peint de la Galerie de photos Windows" Background.Save(Location, System.Drawing.Imaging.ImageFormat.Jpeg) SystemParametersInfo(&H14, 0, Location, &H1 Or &H2) end sub code pour embarquer la vidéo : >>> http://www.youtube.com/embed/g8J66Pf4W-A <<< |