cs_VVV
Messages postés40Date d'inscriptionmercredi 1 janvier 2003StatutMembreDernière intervention15 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és940Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention 3 février 20119 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és940Date d'inscriptionjeudi 20 février 2003StatutMembreDernière intervention 3 février 20119 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és488Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention21 avril 20091 11 janv. 2004 à 13:12
autant pour moi, il manquait le \\. ; ))
ZeBricoleur
Messages postés7Date d'inscriptiondimanche 28 septembre 2003StatutMembreDernière intervention23 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.
cs_radada
Messages postés488Date d'inscriptionlundi 15 septembre 2003StatutMembreDernière intervention21 avril 20091 10 janv. 2004 à 16:38
Runtime error sur win2k VB6sp5 la -< Set objFolder = objFSO5.GetFolder(Repertoire)
6 déc. 2006 à 17:02
On constate que l'écran "clignote", mais même en faisant un F5 pour rafraîchir l'écran, rien n'a été modifié... Snirf !
12 oct. 2005 à 17:11
Si l'écran clignote, mais le fond d'écran de base reste toujours à l'écran... *-)
12 oct. 2005 à 16:23
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
11 janv. 2004 à 13:12
11 janv. 2004 à 00:43
-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.
10 janv. 2004 à 16:38