Position Wallpaper

Question

Salut



Comment faire pour modifier la position du fond d ecran ?? (Etirer, normal, mosa&#239;que)



Merci d avance !

Herve

Gobillot · Answer

&#231;a se trouve dans la Base de Registre.

HKEY_CURRENT_USER\Control Panel\Desktop\WallpaperStyle
avec pour valeur de cha&#238;ne 0 (Normal), 1 (Centrer), 2 (Etirer)


HKEY_CURRENT_USER\Control Panel\Desktop\TileWallpaper
avec pour valeur de cha&#238;ne 0 (Mosa&#239;que) ou 1 (Normal)

&#231;a c'est les valeurs th&#233;oriques, la r&#233;alit&#233; est tout autre, pour Windows XP en tout cas
Centr&#233;:    Wallpaper 0    TileWallpaper 0Mosa&#239;que:  Wallpaper 0    TileWallpaper 1   Strech:    Wallpaper 2    TileWallpaper 0   
   
Daniel

Seth77 · Answer

Ok j ai deja essaye cela ....

mais comment faire pour faire un refresh du fond d ecran pour qu il
prenne en compte les changement, parce que en refaisant un
SystemParametersInfo il me retourne une erreur .

Herve

Gobillot · Answer

SystemParametersInfo marche bien pourtant, inutile de red&#233;marrer la machine.

sFile est le nom complet du fichier BMP

SystemParametersInfo 20, 0&, ByVal xFile, &H2 Or &H1

Daniel

Seth77 · Answer

ok 

faudras que je reessaie



merci

Herve

Seth77 · Answer

marche pas .....je ne comprends pas 



RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, WALLPAPER_BMP, 1)



retval est toujours a 0 !







Herve

Gobillot · Answer

je suppose que tu as le chemin complet dans WALLPAPER_BMP, les paramètres &H1 et &H2 je sais pas s'ils sont nécessaires, le plus important c'est le Byval (le deuxième n'est pas obligatoire s'il est dans la déclaration). Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Byval WALLPAPER_BMP, SPIF_UPDATEINIFILE or SPIF_SENDWININICHANGE) Daniel

Seth77 · Answer

en mettant : 

RetVal = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal WALLPAPER_BMP, 1)



ca a l air de marcher !!!

j ai pas compris la !!!! Pourquoi ici le Byval est necessaire alors qu autre part dans mon app il n est pas necessaire??



le pire c qu il n y avait pas moyen de recupere le type d erreur quand ce ne marchais pas.



Encore merci !


Herve

Gobillot · Answer

"autre part" &#231;a veut dire quoi, comment tu utilises SystemParametersInfo autrement ?

il y a 2 cas ou tu passes la chaine par Byval dans ce cas VB cr&#233;e une copie de la cha&#238;ne et renvoie un pointeur, sinon tu passes directement un pointeur qui pointe sur la chaine, mais &#231;a risque de ne pas marcher parce que la cha&#238;ne sera en Unicode et ...
bref, bien compliqu&#233; tout &#231;a, le principal c'est que &#231;a marche...

une question: combien tu peux mettre de fichiers dans ton Wallpaper ?

Daniel

Seth77 · Answer

en fait j utilise "SystemParametersInfo " une fois pour changer le fond d ecran, et la ca marche sans le ByVal.

La ou j avais un probleme c est lorsque je voulais changer la position du fond d ecran.



Sinon dans mon prog Wallpaper , je peux mettre un nombre "illimite" de
fichier. j ai reussis a faire un programme qui charge rapidement ma
tres grande liste de fond d ecran (+ de 13000)!

je travaille en ce moment pour essaye de limiter l occupation en memoire du prog !

InMem Kb : 11220

Private Kb : 14586

Total Kb : 68384



un peu beaucoup non ?


Herve

Gobillot · Answer

j'en ai plus de 18000 et je sais pas combien j'ai d'occupation m&#233;moire
le fichier fait que 300k, c'est la ListView qui doit prendre de la place.

en testant vite fait, je compte une vingtaine de Mo utilis&#233;.

pour le ByVal j'en ai aucune id&#233;e, pourquoi &#231;a marcherait sans et apr&#232;s avec, L'API &#233;tant le m&#234;me, &#231;a devrait r&#233;agir de la m&#234;me fa&#231;on.

comment tu changes la position avec SystemParametersInfo ?

Daniel

Seth77 · Answer

Ben en fait je fais les modifs dans la base de registre et je fais reaffiche le fond d ecran avec SystemParametersInfo  pour obtenir un refresh.



tu as aussi fais un programmes pour les fonds d ecrans ?


Herve

Gobillot · Answer

&#231;a doit &#234;tre le m&#234;me "SystemParametersInfo" si c'est pour afficher le m&#234;me fichier, donc avec Byval non ?
j'ai pas inclus la routine pour centrer les images, &#231;a devrait &#234;tre fait depuis longtemps mais puisque je n'utilise plus que mon programme, il reste sur la position "center" et n'en bougera plus, surtout pas "strech"  affreux !

mon Wallpaper a aussi un nombre illimit&#233; d'images, les r&#233;pertoires sont dans un fichier &#224; part, que je modifie &#224; la main pour l'instant, j'ai abandonn&#233;
le browse r&#233;pertoire et le multis&#233;lection, trop long, un double click sur le nom du r&#233;pertoire et il se met &#224; jour automatiquement, &#231;a prend 2 secondes par r&#233;pertoire.
il fait aussi Screen Saver, au bout d'un moment, si pas d'activit&#233; il se d&#233;clenche, ferme toutes les fen&#234;tres, et c'est parti pour le diaporama, r&#233;glage de 10 secondes &#224; 23H59m59s

Daniel

Seth77 · Answer

En fait dans mon prog je mets la position en fonction de la taille de l image....

pour les images inferieurs a 640*480 -> Mosaique

pour les images avec un ratio de 4/3 ou 5/4 -> Etirer 

sinon c est centrer !



sinon pour les fichiers , je garde le repertoire principale, et ensuite
je scanne tous les sous-repertoires pour faire ma liste de fichier !


le plus embetant est de classer les fichiers et de "detecter" les doublons !


Herve

Gobillot · Answer

j'ai laiss&#233; "center" pour toutes les images qui sont cadr&#233;es &#224; la taille de l'&#233;cran soit en hauteur, soit en largeur, c'est suffisant pour moi.

pour les doublons, je trie sur le nom et je fait une recherche dichotomique et ensuite je v&#233;rifie si le r&#233;pertoire est le m&#234;me ou pas avec un autre boucle, mais comme le programme est en sans cesse &#233;volution, je vais surement encore optimis&#233; avec une colonne cach&#233;e qui contiendra le num&#233;ro de r&#233;pertoire + le nom, et une seule boucle suffira.
sinon pendant la recherche, le Sorted est mis sur False, et le Enabled &#233;galement, &#231;a va tr&#232;s vite, 15 boucles de recherche pour 18000.

sais tu que quand tu modifie le tri, la colonne et le type ascendant ou descendant, le tri est fait 2 fois et &#231;a prend 2 fois plus de temps.
sais tu aussi que quand le tri est le m&#234;me, m&#234;me colonne et m&#234;me type, cela prend &#233;galement du temps alors qu'il n'y a rien &#224; faire ?
d'o&#249; l'utilit&#233; de tester si le tri est n&#233;cessaire avant de le lancer, et de mettre le Sorted &#224; False, de modifier les param&#232;tres de tri, et ensuite de remettre &#224; True.

Daniel

Seth77 · Answer

Ah oui c bon a savoir !



y aurait il moyen d avoir un exemplaire de ton prog ?

Herve

Gobillot · Answer

va voir dans ta bo&#238;te

Daniel

Gobillot · Answer

j'ai r&#233;ussi &#224; faire marcher ton code.
quelques probl&#232;mes de d&#233;marrage avec un fichier vide mais vite r&#233;solu.la Progressbar n'accepte pas Max 0, j'ai mis un test pour ne pas faire si NbFichier 0. et dans le fichier ini pour DernierRep &#224; la place de D:\ j'ai mis C:\ avec un r&#233;pertoire vide.
sinon dans l'ensemble, tr&#232;s bien &#233;crit avec des commentaires et tout, chose que j'ai pas faite.
j'ai pas tout regard&#233; en d&#233;tail mais j'ai vu des fonctions comme MajtoMin et MintoMaj, elles sont pas utilis&#233;es dans le projet, mais est-ce que Ucase$ et Lcase$ ne suffisent pas ?
est-ce qu'on peut modifier la p&#233;ride d'affichage des images ?

Daniel

Seth77 · Answer

Ok...



c vrai que je n utilise pas  MajtoMin et MintoMaj, oui 
Ucase$ et Lcase$ suffiraient 
. En
fait elle font partie d un ensemble de fonction qui sont dans le
fichier BAS , et que je recopie dans les projets en fonction de mes
besoins.



pour le moment la periode d affichage n est que pour chaque heure fixe,
mais je compte mettre plus d options (tous les jours, toutes les x
minutes, etc ....)



thx


Herve

Position Wallpaper

18 réponses

Discussions similaires