Fond ecran windows parametrable par ini et aleatoire

Soyez le premier à donner votre avis sur cette source.

Vue 8 496 fois - Téléchargée 602 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
cs_VVV Messages postés 40 Date d'inscription mercredi 1 janvier 2003 Statut Membre Dernière intervention 15 juin 2009
6 déc. 2006 à 17:02
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 !
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
12 oct. 2005 à 17:11
:( 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... *-)
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
12 oct. 2005 à 16:23
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
cs_radada Messages postés 488 Date d'inscription lundi 15 septembre 2003 Statut Membre Dernière intervention 21 avril 2009 1
11 janv. 2004 à 13:12
autant pour moi, il manquait le \\. ; ))
ZeBricoleur Messages postés 7 Date d'inscription dimanche 28 septembre 2003 Statut Membre Dernière intervention 23 mars 2004
11 janv. 2004 à 00:43
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)