Fond ecran windows parametrable par ini et aleatoire

Soyez le premier à donner votre avis sur cette source.

Vue 8 414 fois - Téléchargée 582 fois

Description

ce code permet de lire les images BMP et JPG d'un repertoire et ses sous repertoires de facon aletoire et de les afficher en fond d'ecran.
dans le fichier .ini vous definissez le chemin et la vitesse

Source / Exemple :


ZIP

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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 \\. ; ))
Messages postés
7
Date d'inscription
dimanche 28 septembre 2003
Statut
Membre
Dernière intervention
23 mars 2004

je l'ai teste sur win2000 il marche, 2 possibilités :

-tu n'as pas mis un chemin valide dans le fichier fondecran.ini
-t'on poste n'est pas a jour et gere mal le script

je penche sur la premiere hypothese si tu as le message suivant:
chemin d'acces introuvable

code sans pretention pas de controle d'erreurs fait dans les regles, le code est léger on comprend mieux le principe.
Afficher les 6 commentaires

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 (ZeBricoleur)