Desktop wallpaper v 5.0

Soyez le premier à donner votre avis sur cette source.

Vue 4 166 fois - Téléchargée 557 fois

Description

Ce programme vous permet de choisir 3 images Bmp favoris (que vous pouvez modifier à chaque fois), puis vous pouvez mettre en un seul clique l'une d'entre elles comme image arrière plan de windows. Le programme se rappelle de vos dernières images séléctionnées comme favories dans la feuille, même après l'avoir fermé. L'image séléctionnée comme arière plan de windows reste affichée même après le redémarrage de l'ordinateur.

Source / Exemple :


Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Sub Command11_Click()
End
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command3_Click()
Form3.Show
End Sub
Private Sub Command4_Click()
Form4.Show
End Sub
Private Sub Form_Load()
Form1.Caption = "HICHAM'S DESKTOP WALLPAPER"
Form2.Label1.Caption = ""
Form3.Label1.Caption = ""
Form4.Label1.Caption = ""
Open "sauvegarde2.txt" For Input As #1
Line Input #1, img2
Image2.Stretch = True
Image2.Picture = LoadPicture(img2)
Close #1

Open "sauvegarde3.txt" For Input As #1
Line Input #1, img3
Image3.Stretch = True
Image3.Picture = LoadPicture(img3)
Close #1

Open "sauvegarde4.txt" For Input As #1
Line Input #1, img4
Image4.Stretch = True
Image4.Picture = LoadPicture(img4)
Close #1
End Sub
Private Sub Image2_Click()
Call calcul2
Call SupprimerFichier
Call CopierFichier2
End
End Sub
Private Sub Image3_Click()
Call calcul3
Call SupprimerFichier
Call CopierFichier3
End
End Sub
Private Sub Image4_Click()
Call calcul4
Call SupprimerFichier
Call CopierFichier4
End
End Sub

Conclusion :


Il y a plusieurs feuilles et un module dans ce programme. Si jamais vous constatez une erreur, veuillez me tenir au courant à partir de vos commentaires.

Codes Sources

A voir également

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.