FOND ECRAN WINDOWS PARAMETRABLE PAR INI ET ALEATOIRE

Signaler
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009
-
Messages postés
40
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
15 juin 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/19417-fond-ecran-windows-parametrable-par-ini-et-aleatoire

Messages postés
40
Date d'inscription
mercredi 1 janvier 2003
Statut
Membre
Dernière intervention
15 juin 2009

Idem pour moi (sous W2K) :
On constate que l'écran "clignote", mais même en faisant un F5 pour rafraîchir l'écran, rien n'a été modifié... Snirf !
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
:( Maintenant il lit bien les fichiers, il crée bien le Myfond.bmp mais au moment du SystemParametersInfo, il ne fait rien.
Si l'écran clignote, mais le fond d'écran de base reste toujours à l'écran... *-)
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
J'ai une erreur à la ligne 42
SavePicture Picture1.Picture, Environ("windir") & "\MyFond.bmp"
Il me dit:
Invalid property value
Car en fait, il ne passait pas dans le for each!
J'ai dû modifier le code de cette façon pour qu'il lise mes images qui se trouvaient à même e répertoire donné:
Set objFSO5 = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO5.GetFolder(Repertoire)
Set colSubFolders = objFolder.Subfolders
For Each objfile In objFolder.Files
If InStr(1, LCase(objfile.Name), ".bmp", vbTextCompare) > 0 Or InStr(1, LCase(objfile.Name), ".jpg", vbTextCompare) > 0 Then
MsgBox objfile.Name
ImagesListe.AddItem objfile.Path
End If
Next objfile
'sinon c'est un code bien pensé, bravo
Messages postés
488
Date d'inscription
lundi 15 septembre 2003
Statut
Membre
Dernière intervention
21 avril 2009

autant pour moi, il manquait le \\. ; ))
Afficher les 6 commentaires