PAPIER PEINT DU BUREAU ANIMÉ

Commentaire de CCJ le 19/10/2004 19:48:54

j'aimerai bien te donner une note mais moi ca marche pas , l'ecran clignote bien mais y a rien en fond d'ecran(peut etre a cause de ma resolution 1248x1024)

Commentaire de yoman64 le 20/10/2004 20:07:12

bouv > Cool , lol je savais meme pas qu'on pouvais mettre un gif animé comme background :P
En t-k sa bouffe les ressource par exemple :-S

Je m'abstien de noter puisque la source est déja a 1

YoMan64
PhPKoDe.Com

Commentaire de sibi12 le 23/10/2004 14:43:53

Outre le clignotement, le code est pas très très beau...Ne m'en veux pas je vais essaier d'être constructif.

1) dans changeur_Timer:

i = i + 1
If i = 6 Then i = 0

met plutôt

i = (i + 1) mod 6

2) dans lancer_Click:

Call changerimage
i = 0

l'inverse ne serai pas plus logique ?

3) Pourquoi utilise tu i comme nom de variable ??? comment appellera tu une variable pour une boucle For si tu dois etendre ton programme ? de plus c'est pas très explicite pour une variable portant sur tout le module de ta form.

4) Les déclaration
Public Declare Function SystemParametersInfoA Lib "user32" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
' API pour le Papier-Peint:
' -------------------------
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

sont identique !!! sauf que t'as fait un alias pour l'une d'elle

5) dans ton module :

Public X As Long

Public Sub SauveChaine(Hkey As Long, strpath As String, strValue As String, strdata As String)
  
Dim keyhand As Long
Dim r As Long
  
   X = RegCreateKey(Hkey, strpath, keyhand)
   X = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
   X = RegCloseKey(keyhand)

End Sub

Pourquoi declare tu X comme membre publique ? pourquoi le declare-tu tout court je dirai meme! la procedure :
Public Sub SauveChaine(Hkey As Long, strpath As String, strValue As String, strdata As String)
  
Dim keyhand As Long
Dim r As Long
  
   RegCreateKey(Hkey, strpath, keyhand)
   RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))
   RegCloseKey(keyhand)

End Sub

serait identique...

6) la constante Public Const ERROR_SUCCESS = 0& est inutile...Mais c'est un detail

7) dans
Sub changerimage()

  
        Call SauveChaine(HKEY_CURRENT_USER, "Control Panel\Desktop", "WallpaperStyle", "0")
        Call SauveChaine(HKEY_CURRENT_USER, "Control Panel\Desktop", "TileWallpaper", "0")

        
SystemParametersInfo SPI_SETDESKWALLPAPER, 0&, App.Path & "\img\Photo" & i & ".bmp", SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE

End Sub

Pourquoi indente tu 2 fois les 2 premiere ligne et utilise l'instruction Call (Qui est tout à fait facultative mais à le merite d'eclaircir le code) et la 3eme sans indentation et sans le Call.

(
8) Chacun ces goût mais ça fait pas très propre les noms de procedure en minuscule..surtout quand tu melange des procedure avec des majuscule minuscule et puis d'autre tt en minuscule. Idem pour les nom de contrôles. Prefixe les nom par le type de controle. Par exemple pour le bouton "lancer", nomme le "cmdLancer" ou "btnLancer". Idem pour ta form "fondecrananime", "frmFondEcranAnime". C'est beaucoup plus agreable a relire.
)

ça fait pas mal de chose a ameliorer pour un si petit programme...

Commentaire de zavier666 le 23/10/2004 15:27:15

De plus, j'ai essayé de mettre un gif animé en theme de bureau, cela ne marche pas!!!!!

Commentaire de sibi12 le 23/10/2004 15:37:06

le gif animé fonctionne chez moi...

Commentaire de zavier666 le 24/10/2004 14:03:18

A la base, je voulais mettre des videos en fond de bureau, mais je n'arrive pas a en extraire les image en temps réel, alors je me suis rabbatu sur des images, cependant, cela ne resout toujours pas mon prob de clognotement