ECRAN DE VEILLE

Signaler
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006
-
Messages postés
51
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 mars 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1850-ecran-de-veille

Messages postés
51
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 mars 2008

C mieux si tu te sers du dossiers des fond d'écrans non ?
voici les modifs que j'y ai apportées suites

Private Sub fichiers_Click()
strSave = String(200, Chr$(0))
Fichier$ = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) & "webwallpaper" & images.fichiers.FileName
images.Image1.Left = (Screen.Width / 2) - (images.Image1.Width / 2)
images.Image1.Top = Screen.Height / 2 - (images.Image1.Height / 2)
images.Image1.Picture = LoadPicture(Fichier$)
End Sub

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim Path As String, strSave As String
Messages postés
51
Date d'inscription
mercredi 25 décembre 2002
Statut
Membre
Dernière intervention
17 mars 2008

C mieux si tu te sers du dossiers des fond d'écrans non ?
voici les modifs que j'y ai apportées et tu declare GetWindowsDirectory pour avoir le dossier Windows
au quel tu ajoute "webwallpaper" et le tour est joué

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
--------------------------------------------------------------------------------
Private Sub Form_Load()
Unload Valeur
Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
images.fichiers.FileName = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) & "webwallpaper"
images.Image1.Visible = False
Memorisation.initialise
End Sub
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006

en principe, c pas le code, kon met dans la capture...